通达信准确逃顶抄底源码

X1:EMA(C,7);
 X2:EMA(C,21);
 X3:EMA(X2,7);
 X4:EMA(X3,27);
 X5:EMA(X2,100);
 X6:EMA(X5,100);
 VAR1:=MA(CLOSE,5);
 VAR2:=X1>X2 AND X2>X3 AND X3>X4 AND X4>X5 AND X5>X6;
 VAR3:=X2>REF(X2,1) AND X3>REF(X3,1) AND X4>REF(X4,1) AND X5>REF(X5,1) AND X6>REF(X6,1);
 VAR4:=(LOW+HIGH+CLOSE+OPEN)/4;
 VAR5:=MA(CLOSE,34);
 VAR6:=MA(CLOSE,60);
 VAR7:=(2*CLOSE+HIGH+LOW)/4;
 VAR8:=600*(EMA(CLOSE,3)-EMA(LOW,30))/EMA(LOW,30);
 VAR9:=EMA(VAR8,7);
 VAR10:=LLV(LOW,34);
 VAR11:=HHV(HIGH,34);
 VAR12:=EMA((VAR7-VAR10)/(VAR11-VAR10)*100,6);
 VAR13:=EMA(0.667*REF(VAR12,1)+0.333*VAR12,4);
 VAR14:=LLV(LOW,120);
 VAR15:=HHV(HIGH,120);
 VAR16:=VAR15-VAR14;
 VARA:=REF(CLOSE,1);
 VARB:=(-100)*(WINNER(120*CLOSE/100)-WINNER(100*CLOSE/100))+5;
 VARC:=(WINNER(120*CLOSE/100)-WINNER(100*CLOSE/100))*100;
 VARE:=SMA(MAX(CLOSE-VARA,0),6,1)/SMA(ABS(CLOSE-VARA),6,1)*100; 

 CB:=MA(VAR4,5);
 A1:=HHV(CB,20);
 A2:=HHV(CB,60);
 B1:=LLV(CB,20);
 MID:=FORCAST(C,10);
上轨:=EMA(MID*1.05,3),COLOR00DDFF;
下轨:=EMA(MID*0.95,4),COLOR00AAFF;
 AA:=100*(C-下轨)/(上轨-下轨);
DRAWTEXT((VARC+VARB< 7 AND CROSS(VAR8,VAR9) AND VAR9< -18 AND VAR9< VARB),L,'短买'),COLOR00FF00;
 DRAWTEXT(FILTER(VAR3 AND VAR2 AND COUNT(X1<REF(X1,1),5)>2 AND X1>REF(X1,1),3),L,'回补'),COLORYELLOW;
 DRAWTEXT(COUNT(CLOSE< REF(CLOSE,1),8)/8> 0.3 AND COUNT(VAR12> VAR13,3) AND REF(LOW,1)=LLV(LOW,120) AND CLOSE> OPEN,L,'低买'),COLORFF00FF;
 DRAWTEXT(REF(AA,1)>AA AND REF(AA,1)>100 AND C>REF(C,1),H,'短出'),COLORFFFF00;
 DRAWTEXT(CROSS(84,VARE),H,'高出1'),COLORF00FF0;
 DRAWTEXT(FILTER((A2>REF(A2,1) AND B1>REF(B1,1)),5),H,'高出2'),COLOR00FFFF;