Z1:=STRCAT(HYBLOCK,' '); Z2:=STRCAT(Z1,DYBLOCK); Z3:=STRCAT(Z2,' '); {需要编写选股公式关注公众号:程序化指标} ZT:=REF(C,1)*1.1-C<0.01 AND H=C;{涨停}; HH:=(20*H+19*REF(H,1)+18*REF(H,2)+17*REF(H,3)+16*REF(H,4)+15*REF(H,5)+14*REF(H,6) +13*REF(H,7)+12*REF(H,8)+11*REF(H,9)+10*REF(H,10)+9*REF(H,11)+8*REF(H,12) +7*REF(H,13)+6*REF(H,14)+5*REF(H,15)+4*REF(H,16)+3*REF(H,17)+2*REF(H,18)+ REF(H,20))/210; 离合:(EMA(HH,5)-((H-EMA(HH,5))*H-EMA(HH,5))/EMA(HH,5)),COLORGREEN,LINETHICK2; 上升离合4:(EMA(HH,90)+((H-EMA(HH,90))*H-EMA(HH,90))/EMA(HH,90)),COLORRED,LINETHICK2; TP1:=CROSS(MAX((EMA(HH,250)-((H-EMA(HH,250))*H-EMA(HH,250))/EMA(HH,250)),MAX((EMA(HH,120)-((H-EMA(HH,120))*H-EMA(HH,120))/EMA(HH,120)),MAX((EMA(HH,90)-((H-EMA(HH,90))*H-EMA(HH,90))/EMA(HH,90)),MAX((EMA(HH,60)-((H-EMA(HH,60))*H-EMA(HH,60))/EMA(HH,60)),MAX((EMA(HH,30)-((H-EMA(HH,30))*H-EMA(HH,30))/EMA(HH,30)),MAX((EMA(HH,10)-((H-EMA(HH,10))*H-EMA(HH,10))/EMA(HH,10)),离合)))))),EMA(HH,5)); TP3:=CROSS(C,MAX((EMA(HH,250)-((H-EMA(HH,250))*H-EMA(HH,250))/EMA(HH,250)),MAX((EMA(HH,120)-((H-EMA(HH,120))*H-EMA(HH,120))/EMA(HH,120)),MAX((EMA(HH,90)-((H-EMA(HH,90))*H-EMA(HH,90))/EMA(HH,90)),MAX((EMA(HH,60)-((H-EMA(HH,60))*H-EMA(HH,60))/EMA(HH,60)),MAX((EMA(HH,30)-((H-EMA(HH,30))*H-EMA(HH,30))/EMA(HH,30)),MAX((EMA(HH,10)-((H-EMA(HH,10))*H-EMA(HH,10))/EMA(HH,10)),离合))))))); TP6:=CROSS((EMA(HH,90)+((H-EMA(HH,90))*H-EMA(HH,90))/EMA(HH,90)),EMA(C,5)); DRAWTEXT(TP1 AND ZT,L,'↖金元宝'),COLORRED,LINETHICK4; DRAWTEXT(TP3 AND ZT,L,'↖精准导弹'),COLORWHITE,LINETHICK4; DRAWTEXT(TP6 AND ZT,L,'↖超级主升'),COLORYELLOW,LINETHICK4; DRAWTEXT(TP3,L,'买'),COLORGREEN,LINETHICK4; DRAWKLINE(H,O,L,C); 黄金线:(EMA(C,15)),POINTDOT,LINETHICK4,COLORYELLOW; {老鼠仓} AA1:=AMOUNT/V; BB1:=L<AA1*0.9; CC1:=(C-REF(C,1))/REF(C,1)*100>1.2; DD1:=L<MA(C,5)*0.921; EE1:=V<MA(V,5)*1.5; FF1:=BB1 AND CC1 AND DD1 AND EE1; DRAWTEXT(FF1,LOW*0.96,'老鼠仓'),COLOR4080FF; {金山谷} 山谷:=MA(C,5)>MA(C,10) AND MA(C,10)>MA(C,30) AND CROSS(MA(C,10),MA(C,30)); DRAWTEXT(山谷 AND MA(C,30)>MA(C,120),MA(C,30)-0.08,'金山谷'),COLORYELLOW; {黑马起飞点} 实在1:=MA(C,5)>MA(C,10) AND MA(C,10)>MA(C,20) AND O<MA(C,10) AND C>MA(C,5) AND C<30 AND V<MA(V,60); DRAWTEXT(实在1,MA(C,20)*0.95,'一阳穿双'),COLORCYAN; DRAWTEXT(实在1,MA(C,20)*0.9,'无量黑马止跌'),COLORCYAN; STICKLINE(实在1,MA(C,20)*0.9,MA(C,20)*0.95,0.01,0),COLORCYAN; 实在2:=MA(C,5)>MA(C,10) AND MA(C,10)>MA(C,20) AND O<MA(C,10) AND C>MA(C,5) AND C<30 AND V>MA(V,60) AND COUNT(V>MA(V,60),2)=1; DRAWTEXT(实在2,MA(C,20)*0.95,'一阳穿双'),COLORWHITE; DRAWTEXT(实在2,MA(C,20)*0.9,'有量黑马起飞'),COLORWHITE; STICKLINE(实在2,MA(C,20)*0.9,MA(C,20)*0.95,0.01,0),COLORWHITE;
|