N:=72;
M:=1357;
P1:=151;
P2:=14;
MA3:MA(C,3);
MA5:MA(C,5);
MA8:MA(C,8);
MA13:MA(C,13),LINETHICK2;
MA55:MA(C,55);
{回调预测-M=200-1000-738}
高:=REF(HHV(H,N),3);
顶:REFDATE(高,DATE),COLORRED;
Z1:REFDATE(高/1.0809,DATE),POINTDOT,LINETHICK1,COLORYELLOW;
Z2:REFDATE(高/1.1618,DATE),POINTDOT,LINETHICK1,COLORYELLOW;
Z3:REFDATE(高/1.2558,DATE),POINTDOT,LINETHICK1,COLORMAGENTA;
Z4:REFDATE(高/1.4589,DATE),POINTDOT,LINETHICK1,COLORYELLOW;
Z5:REFDATE(高/1.5770,DATE),POINTDOT,LINETHICK1,COLORRED;
{Z6:REFDATE(高/1.8322,DATE),POINTDOT,LINETHICK1,COLORYELLOW;
Z7:REFDATE(高/1.9804,DATE),POINTDOT,LINETHICK1,COLORGREEN;
Z8:REFDATE(高/2.3008,DATE),POINTDOT,LINETHICK1,COLORYELLOW;
Z9:REFDATE(高/2.4870,DATE),POINTDOT,LINETHICK1,COLORWHITE;}
Z:REFDATE(高/(M/1000),DATE),LINETHICK4,COLORYELLOW;
支:REFDATE(高/(M/1000),DATE),LINETHICK2,COLORRED;
DRAWTEXT(ISLASTBAR,顶,'顶'),COLORRED;
DRAWTEXT(ISLASTBAR,Z1,'8.09'),COLORGREEN;
DRAWTEXT(ISLASTBAR,Z2,'16.18'),COLORGREEN;
DRAWTEXT(ISLASTBAR,Z3,'25.58'),COLORGREEN;
DRAWTEXT(ISLASTBAR,Z4,'45.98'),COLORGREEN;
DRAWTEXT(ISLASTBAR,Z5,'57.7'),COLORGREEN;
{DRAWTEXT(ISLASTBAR,Z6,'83.22'),COLORGREEN;
DRAWTEXT(ISLASTBAR,Z7,'98.04'),COLORGREEN;
DRAWTEXT(ISLASTBAR,Z8,'130.08'),COLORGREEN;
DRAWTEXT(ISLASTBAR,Z9,'148.7'),COLORGREEN;}
DRAWKLINE(H,O,L,C);
{龙抬头Ⅲ}
PL5:=ZIG(3,5);
EN1:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3);
EX1:=ZIG(3,5)=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3);
PL10:=ZIG(3,10);
EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3);
EX2:=ZIG(3,10)=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3);
PL20:=ZIG(3,20);
EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3);
EX3:=ZIG(3,20)=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)>=REF(ZIG(3,20),3);
PL40:=ZIG(3,40);
走强1:=BARSLAST(PL5REF(PL5,1));
走强2:=BARSLAST(PL10REF(PL10,1));
走强3:=BARSLAST(PL20REF(PL20,1));
ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强2),0);
ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强2),0);
DTJZ5:=IF(PL10REF(PL20,1),COUNT(EN2,走强3),0);
ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强3),0);
DTJZ10:=IF(PL20=E2)) OR ISLASTBAR OR BARSCOUNT(C)=1;
L1:=(D2 AND NOT(D1 AND E1