通达信短线黑马选股副图源码

K:=100;
VAR1:=DMA(CLOSE,VOL/MA(VOL,4)/4);
VAR2:=DMA(CLOSE,VOL/MA(VOL,33)/33);
VAR3:=(CLOSE-VAR1)/VAR1*100<-11/K*100;
VAR4:=(VAR1-VAR2)/VAR2*100<-22.3/K*100;
VAR5:=VAR3 AND VAR4 AND (OPEN>CLOSE OR OPEN<CLOSE) AND
(OPEN-REF(CLOSE,1))/REF(CLOSE,1)>-0.07 AND
(REF(CLOSE,1)>REF(OPEN,1) OR REF(CLOSE,1)<REF(OPEN,1)) AND
(REF(OPEN,2)>REF(CLOSE,2) OR REF
(OPEN,2)<REF(CLOSE,2)) AND (REF(OPEN,3)>REF(CLOSE,3) OR REF(OPEN,3)<REF(CLOSE,3)) AND (REF
(OPEN,4)>REF(CLOSE,4) OR REF(OPEN,4)<REF(CLOSE,4)) AND (REF(OPEN,5)>REF(CLOSE,5) OR REF(OPEN,5)
<REF(CLOSE,5)) AND (REF(OPEN,6)>REF(CLOSE,6) OR REF(OPEN,6)<REF(CLOSE,6)) AND (REF(OPEN,7)>REF
(CLOSE,7) OR REF(OPEN,7)<REF(CLOSE,7));
VAR6:=DMA(CLOSE,VOL/MA(VOL,3)/3);
VAR7:=DMA(CLOSE,VOL/MA(VOL,33)/33);
VAR8:=(CLOSE-VAR6)/VAR6*100<-5;
VAR9:=(VAR6-VAR7)/VAR7*100<-18;
VARA:=(INDEXC-LLV(INDEXL,250))/(HHV(INDEXH,250)-LLV(INDEXL,250))*100;
VARB:=SMA(VARA,30,1);
VARC:=SMA(VARB,50,1);
VARD:=VAR8 AND VAR9 AND (OPEN>CLOSE OR OPEN<CLOSE) AND
(OPEN-REF(CLOSE,1))/REF(CLOSE,1)>-0.05 AND
(REF(CLOSE,1)>REF(OPEN,1) OR REF(CLOSE,1)<REF(OPEN,1));
VARE:=VARD AND COUNT(VARD,2)=1 ;
VAR5 OR VARE;