YP:= (HIGH + LOW + CLOSE)/3;
CCI:(YP-MA(YP,14))/(0.015*AVEDEV(YP,14));
CI1:MA(CCI,6);
CI2:MA(CCI,13);
S3:=REF(CI1,5)-CI1>30 AND CI1>REF(CI1,1);
VERTLINE(S3,3),Colorred;
-100,COLORGREEN;
100,COLORwhite;

FILLRGN(CCI,100,CCI>100,RGB(255,0,0));
FILLRGN(CCI,-100,CCI<-100,RGB(0,255,0));

aa:=cross(ma(c,5),ma(c,20)) and  cross(ma(c,5),ma(c,30)) and cross(ma(c,5),ma(c,60));
bb:=ma(c,60)>ma(c,10) and cross(ma(c,10),ma(c,30)) and ma(c,30)>ma(c,20) and abs(ma(c,60)-ma(c,20))/ma(c,20)<0.05;
cc:=ma(c,30)>ma(c,5) and cross(ma(c,5),ma(c,20)) and ma(c,20)>ma(c,10);
dd:=abs((ma(c,5)-ma(c,10))+(ma(c,10)-ma(c,20))+(ma(c,20)-ma(c,30)))<0.02 and ma(c,5)>ref(ma(c,5),1) and ma(c,10)>ref(ma(c,10),1);
ee:=ma(c,20)>ma(c,5) and cross(ma(c,5),ma(c,10)) and ma(c,10)>ma(c,60) and abs(ma(c,20)-ma(c,60))/ma(c,60)<0.05;
ff:=aa or bb or cc or dd or ee ;
天堂星雷达:=ff and FILTER( ff,8);
drawtext(天堂星雷达,l*0.08,'庄现'),colorwhite;
aa1:=AMOUNT/vol;
bb1:=l<aa1*0.9;
cc1:=(c-ref(c,1))/ref(c,1)*100>1.2;
dd1:=l<ma(c,5)*0.921;
ee1:=vol<ma(v,5)*1.5;
ff1:=bb1 and cc1 and dd1 and ee1;
drawtext(ff1,l*0.08,'庄影'),COLORyellow;