逃顶专用

VAR1:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),25);   
VAR2:=HIGH-REF(HIGH,1);   
VAR3:=REF(LOW,1)-LOW;   
VAR4:=SUM(IF(VAR2>0 AND VAR2>VAR3,VAR2,0),25);   
VAR5:=SUM(IF(VAR3>0 AND VAR3>VAR2,VAR3,0),25);   
VAR6:=VAR4*100/VAR1;   
VAR7:=VAR5*100/VAR1;   
VAR8:=MA(ABS(VAR7-VAR6)/(VAR7+VAR6)*100,15);   
VAR9:=(VAR8+REF(VAR8,15))/2;   
A:=(VAR7>VAR6 AND VAR7>25 AND VAR6<25);   
B:ZIG(3,5)*100,COLORWHITE;   
G:MA(B,2);   
D:CROSS(B,G)*1000,COLORRED;   
W:CROSS(G,B)*1000,COLORBLUE;   
E:=REF(INDEXC,1);   
F:=SMA(MAX(INDEXC-E,0),3,1)/SMA(ABS(INDEXC-E),3,1);   
VAR10:=F AND F<8;   
VAR11:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;   
VAR12:=SMA(VAR11,3,1);   
VAR13:=SMA(VAR12,3,1);   
VAR14:=VAR13 AND VAR13<20;   
A AND D AND VAR10 AND VAR14 ;   
DRAWTEXT(W=1000,1000,'卖' ),COLORWHITE ;   
DRAWTEXT(D=1000, 1000,'买'),COLORWHITE ;   
VAR33:=PEAKBARS(3,15,1)<10;   
VAR55:=IF(VAR33=1,2,0);   
顶:= IF(VAR55=2,2,0);   
顶A:IF(顶>REF(顶,1),50,0),COLORGREEN;   
DRAWTEXT(顶A=50,45,'逃顶'),COLOR00FF00;