通达信主图仪表图源码

Z1:=STRCAT(HYBLOCK,' ');
 Z2:=STRCAT(Z1,DYBLOCK);
 Z3:=STRCAT(Z2,' ');
 DRAWTEXT_FIX(ISLASTBAR,0.1,0,0,STRCAT(Z3,GNBLOCK)),COLORFFFFFF;

M5:MA(C,5),COLORCCCCCC;
 M10:MA(C,10),COLOR00CCCC;
 M20:MA(C,20),COLORCC00CC;
    M30:=MA(C,30),COLORCC00CC;
 M60:IF(PERIOD>4,MA(C,60),DRAWNULL),COLOR00CC00;
 M120:MA(C,120),COLORCCCC00;
主升浪:=ISLASTBAR AND M5>M20 AND M20>M60 AND M60>M120 AND M20>=REF(M20,1) AND M60>=REF(M60,1) AND M120>=REF(M120,1);
主浪回调:=ISLASTBAR AND C<LC AND (C<M5 OR M5<REF(M5,1)) AND M5>M20 AND M20>M60 AND M20>=REF(M20,1) AND M60>=REF(M60,1);
主浪深调:=ISLASTBAR AND C<LC AND C<M5 AND M5<REF(M5,1) AND M5<M60 AND M5<M20 AND M10>M20 AND M20>M60 AND M20>=REF(M20,1) AND M60>=REF(M60,1);
初升浪:=ISLASTBAR AND C>LC AND C>(M5 OR M10) AND M5>(M20 OR M10) AND M5>=REF(M5,1) AND C>M20 AND (M5 OR M10)>M20 AND M20>=REF(M20,1) AND M60<(C OR M5 OR M10);
底部反弹:=ISLASTBAR AND C>LC AND M120>M60 AND M60>M20 AND M5>M20;
探底阶段:=ISLASTBAR AND C<LC AND C<M5 AND M5<M10 AND M10<M20 AND M20<M60;
观望:=ISLASTBAR AND C<LC AND C<M10 AND M10<M20 AND M10<REF(M10,1) AND M20>REF(M20,1);
有牛:=ISLASTBAR AND C>LC AND M20>=REF(M20,1) AND C>=M60 AND M60<(C OR M5 OR M10) AND C>=M120;
放弃:=ISLASTBAR AND C<LC AND C<M10 AND C<M20 AND M20<M60 AND M20<REF(M20,1);
 DRAWGBK(主升浪=0 AND 主浪回调=0 AND 主浪深调=0 AND 初升浪=0 AND 底部反弹=0 AND 探底阶段=0 AND 观望=0 AND 有牛=0 AND
          放弃=0,0,0,0,'观望',0),COLOR00BF00;
 DRAWGBK(主升浪,0,0,0,'主升浪',0),COLORFF00FF;
 DRAWGBK(主浪回调,0,0,0,'主浪回调',0),COLORFF8080;
 DRAWGBK(主浪深调,0,0,0,'主浪深调',0),COLOR009500;
 DRAWGBK(初升浪,0,0,0,'初升浪',0),COLOR00FFFF;
 DRAWGBK(底部反弹,0,0,0,'底部反弹',0),COLORFFFF00;
 DRAWGBK(探底阶段,0,0,0,'探底阶段',0);
 DRAWGBK(观望,0,0,0,'观望',0),COLORFFFF00;
 DRAWGBK(有牛,0,0,0,'有牛',0),COLOR00FFFF;
 DRAWGBK(放弃,0,0,0,'放弃',0),COLOR00BF00;