通达信战无不胜副图源码

以下是通达信战无不胜副图源码

VAR2:=(2*CLOSE+HIGH+LOW)/4;
 VAR3:=IF(YEAR>=2099 AND MONTH>2,0,1);
 VAR4:=LLV(LOW,5);
 VAR5:=HHV(HIGH,4);
庄家:= EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3{, ,COLORFF9933};
散户:= EMA(0.667*REF(庄家,1)+0.333*庄家,2)*VAR3{, ,COLORWHITE};
 VAR6:=(HHV(HIGH,4)-VAR2)/(HHV(HIGH,4)-LLV(LOW,4))*100-72;
 VAR7:=(VAR2-LLV(LOW,4))/(HHV(HIGH,4)-LLV(LOW,4))*100;
 VAR8:=SMA(VAR7,2,1);
减磅:IF(CROSS(散户,庄家) AND 庄家>70,89,76),STICK,LINETHICK2,COLORRED; 76,STICK,LINETHICK2,COLOR000000;
短出:IF(CROSS(散户,庄家) AND 庄家>40 AND 71>庄家,75,62),STICK,LINETHICK2,COLOR00FF00;62,STICK,LINETHICK2,COLOR000000;
短进:IF(CROSS(庄家,散户) AND 庄家<50 AND 29<庄家,61,49),STICK,LINETHICK2,COLORF000FF;49,STICK,LINETHICK2,COLOR000000;
低吸:IF(CROSS(庄家,散户) AND 庄家<30,48,35),STICK,LINETHICK2,COLORYELLOW;35,STICK,LINETHICK2,COLOR000000;
 80, ,POINTDOT,COLORFFFF00;
 20, ,POINTDOT ,COLOR9933FF;
 12, ,POINTDOT,COLORFF3399;
庄家线:庄家,,COLORWHITE;
散户线:散户,,COLORFFF000;
 {DRAWICON(CROSS(庄家,散户) AND 庄家<30,20,1);
 DRAWICON(CROSS(散户,庄家) AND 庄家>70,80,2); }
 VAR9:=CLOSE-REF(CLOSE,5);
 VARA:=EMA(EMA(VAR9,5),5)/EMA(EMA(ABS(VAR9),5),5)*100;
 VARB:=EMA(EMA(VAR9,10),10)/EMA(EMA(ABS(VAR9),10),10)*100;
 VARC:=EMA(EMA(VAR9,20),20)/EMA(EMA(ABS(VAR9),20),20)*100;
警戒: IF(VARA>0 AND CROSS(VARC,VARA),10,0),LINETHICK1,COLORRED;
 {DRAWTEXT(警戒,6,'！'),LINETHICK1,COLORRED;
 DRAWICON(警戒<0,25,2); };