源码
N:=10;
MA5:=MA(CLOSE,5);
MA10:=MA(CLOSE,10);
MA20:=MA(CLOSE,20);
MA30:=MA(CLOSE,30);
MA60:=MA(CLOSE,60);
MA90:=MA(CLOSE,90);
MA120:=MA(CLOSE,120);
MA250:=MA(CLOSE,250);
DTPL:=MA10>MA30 AND MA30>REF(MA30,1);
DG:=MAX(MAX(MA5,MA10),MAX(MA20,MA30));
ZG:=MAX(MAX(DG,MA60),MAX(MA90,MA120));
DD:=MIN(MIN(MA5,MA10),MIN(MA20,MA30));
ZD:=MIN(MIN(DD,MA60),MIN(MA90,MA120));
粘合:=(ZG/ZD-1)*100 高粘:=(ZG/ZD-1)*100 穿5:(粘合 AND CROSS(C,MA5))*0.5; 穿10:(粘合 AND CROSS(C,MA10))*1; 穿20:(粘合 AND CROSS(C,MA20))*2; 穿30:(粘合 AND CROSS(C,MA30))*3; FLSZ:=(C/REF(C,1)-1)*100>=2 AND V>REF(V,1); DXTP:=((穿5/0.5)+穿10+(穿20/2)+(穿30/3))>=2; 优选:(FLSZ AND DXTP AND MA30>REF(MA30,1))*3,COLOR00FFFF,LINETHICK2; 选优:(FLSZ AND DXTP AND MA30>REF(MA30,1) AND COUNT(高粘,20)>=15)*3,COLOR0000FF,LINETHICK2; JXDT:=MA5>MA10 AND MA10>MA20 AND MA20>MA30; 发散:(JXDT AND NOT(REF(JXDT,1)))*1,COLOR00FF00,LINETHICK2; 起飞:(NOT(粘合) AND REF(粘合,1) AND COUNT(粘合,20)>=15 AND DTPL)*3,COLORFF00FF,LINETHICK2; STICKLINE(粘合,-0.2,0,4,0),COLOR00FF00; STICKLINE(高粘,0.2,0,4,0),COLORFF00FF; DRAWTEXT(优选,3,'优●选'),COLOR00FFFF; DRAWTEXT(发散,2,'发●散'),COLOR00FF00; DRAWTEXT(起飞,3,'起●WWW.GSZB.COM飞'),COLOR00FFFF; DRAWICON(选优,0.3,1); DRAWICON(起飞,3,1);