高:=REF(HHV(H,80),3);
低:=REF(LLV(L,80),3);
H18:=高-(高-低)*0.181;
L19:=低+(高-低)*0.181;
H中:=高-(高-低)*0.5;
顶点:REFDATE(高,DATE),COLORWHITE;
%18:REFDATE(H18,DATE),COLORYELLOW;
%50:REFDATE(H中,DATE),COLORRED;
%19:REFDATE(L19,DATE),COLORYELLOW;
低点:REFDATE(低,DATE),COLORWHITE;
DRAWTEXT(ISLASTBAR,顶点,'顶点'),COLORWHITE;
DRAWTEXT(ISLASTBAR,%18,'%18'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,%50,'%50'),COLORRED;
DRAWTEXT(ISLASTBAR,%19,'%19'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,低点,'低点'),COLORWHITE;
ZT1:=C/REF(C,1)>1.0975 AND C=H;TS:=BArslAST(ZT1);
ZJ:IF(TS<=60,DRAWLINE(ZT1,(H+L)/2,ISLASTBAR,REF((H+L)/2,TS),1),DRAWNULL),LINETHICK2,COLORRED;
DRAWTEXT(ISLASTBAR,ZJ,' %ZJ'),COLORYELLOW;
MA30:MA(C,30);CPXA:=(3*CLOSE+OPEN+LOW+HIGH)/6;
CPXB:(20*CPXA+19*REF(CPXA,1)+18*REF(CPXA,2)+17*REF(CPXA,3)+16*REF(CPXA,4)+15*REF(CPXA,5)+14*REF(CPXA,6)+13*REF(CPXA,7)+12*REF(CPXA,8)+11*REF(CPXA,9)+10*REF(CPXA,10)+9*REF(CPXA,11)+8*REF(CPXA,12)+7*REF(CPXA,13)+6*REF(CPXA,14)+5*REF(CPXA,15)+4*REF(CPXA,16)+3*REF(CPXA,17)+2*REF(CPXA,18)+1*REF(CPXA,19))/210;
ZT:=IF(REF(C,1)*1.1-C<0.01 ,1,0);LC:=REF(CLOSE,1);
CZX:=SMA(MAX(CLOSE-LC,0),2,1)/SMA(Abs(CLOSE-LC),2,1)*100;
ZCX:=45;ZCX2:=50;CDX:=20;
PP2:=CZX
HH:=COUNT(ZT,9)>=1;
DDDD:=(PP2 AND HH OR PP AND HH OR PP3 AND HH);
A:=SMA(L,4,3) ;ZF:=(C-REF(C,1))/REF(C,1)*100;
ZT9:=INTPART(SUM(ZF>9.9,9));
LSMR:=IF (((A AND REF(PP,1) AND HH AND ZT9) OR (A AND REF(PP3,1) AND HH AND ZT9) OR (A AND REF(PP2,1) AND HH AND ZT9)),1,0 );
LT:=(CAPITAL/100)/10000<=10;
XG1:=LSMR AND REF(LSMR,1) AND CZX>REF(CZX,1) AND LT;
XG2:=LSMR AND REF(LSMR,2) AND CZX>REF(CZX,1) AND LT;
XG3:=REF(LSMR,1) AND CZX>REF(CZX,1) AND LT AND REF(CZX,1)
JD30:=ATAN((MA30/REF(MA30,1)-1)*100)*180/3.14159;
AA30:=JD30>5;
AA:=REF((H+L)/2,TS);
XG:XG1 OR XG2 OR XG3 AND C>MA30 AND C>CPXB AND C>AA,COLORRED,NODRAW;
DRAWICON(XG,REF(CLOSE,1)*0.96,25);