通达信主图价托量托副图源码

{刘剑价托主图源码}
 {M18  0  1000   18}
 {M30  0  1000   30}
 {M1   0  1000    5}
 {M2   0  1000    10}
 {M3   0  1000   20}
 {M4   0  1000    40}
 {M5   0   1000   60}
 {M6   0   1000   120}
 {M7   0   1000   250}
 
MA18:MA(CLOSE,M18);
 MA30:=MA(CLOSE,M30);
 MA1:=MA(CLOSE,M1);
 MA2:=MA(CLOSE,M2);
 MA3:=MA(CLOSE,M3);
 MA4:=MA(CLOSE,M4);
 MA5:=MA(CLOSE,M5);
 MA6:=MA(CLOSE,M6);
 MA7:=MA(CLOSE,M7);
 DTPL:=MA3>MA30 AND MA30>MA6;
 QSXS:=MA30>REF(MA30,1);
 BDGD:=C=HHV(CLOSE,10);
 GDSJ:=BARSLAST(BDGD);
 前高:=IF(GDSJ>0,REF(C,GDSJ),REF(C,GDSJ)),POINTDOT,COLOR00FF00,LINETHICK0;
 TP:=CROSS(C,REF(前高,1));
 突破:=TP AND COUNT(TP,5)=1,POINTDOT,COLORFF00FF,LINETHICK0;
 TPSJ:=BARSLAST(突破);
 HC:=CROSS(REF(前高,TPSJ+1),L) OR CROSS(REF(前高,TPSJ),C);
 回踩:=HC AND TPSJ>1,POINTDOT,COLOR00FF00,LINETHICK0;
 优选:=(HC AND TPSJ>1 AND DTPL AND QSXS)*2,POINTDOT,COLORYELLOW,LINETHICK0;
 {以下设置主图显示方式}
 STICKLINE(突破,(O+C)/2,(O+C)/2,4,1),COLORFF00FF;
 STICKLINE(突破,H,L,0,0),COLORFF00FF;
 DRAWTEXT(突破,L,'突破'),COLORFF00FF;
 DRAWTEXT(回踩,L,'回踩'),COLOR00FF00;
 DRAWICON(优选,L*0.98,1);
 AAA2:=SUM(IF( CLOSE>REF(CLOSE,1),VOL*C,0),0);
 AAA3:=SUM(IF( CLOSE<REF(CLOSE,1),VOL*C,0),0);
 AAA4:=SUM(IF( CLOSE=REF(CLOSE,1),VOL*C,0),0);
 BB1:=0;}
 B1万元:=DVOL*DCLOSE/100;
 B1差:=B1万元-REF(B1万元,1);
 B2万元:=DVOL*DCLOSE/100;
 B2比:=B2万元/REF(B2万元,1);
 净流入万元:=(AAA2-AAA3-0.5*AAA4);
 PM:=MA(净流入万元,1);
 PMA:=PM/REF(PM,1)>1;
 PMB:=REF(PMA,1)<1 AND PMA;
密电:(EMA(MA(B1万元,2),2))/100000,COLORYELLOW,NODRAW;
 二日比:=密电/REF(密电,1);
 选股:PMB AND 密电>REF(密电,1) AND 二日比>1,COLORRED,NODRAW;
 DRAWNUMBER(选股=1 ,L,密电),COLORYELLOW;
 DRAWICON(选股,L*0.975,1);
 月价托:=MA1>MA3 AND MA1>MA2 AND CROSS(MA2,MA3),COLORYELLOW ;
 季价托:=MA3>MA5 AND MA3>MA4 AND CROSS(MA4,MA5),COLORLIMAGENTA ;
 短、长价托:=MA5>MA5 AND MA1>MA2 AND CROSS(MA2,MA5),COLORRED;
 DRAWTEXT(月价托,H+0.2,'月价托'),COLORYELLOW;
 STICKLINE(月价托,L,H,0.5,1), COLORYELLOW;
 STICKLINE(月价托,O,C,5,1),LINETHICK3, COLORYELLOW;
 DRAWTEXT(季价托,H+0.3,'季价托'),COLORWHITE;
 STICKLINE(季价托,L,H,0.5,1), COLORLIMAGENTA;
 STICKLINE(季价托,O,C,5,1),LINETHICK3, COLORLIMAGENTA;
 
{量托副图源码}
 MA5:=MA(CLOSE,5);
 MA10:=MA(CLOSE,10);
 MA20:=MA(CLOSE,20);
 MA40:=MA(CLOSE,40);
 MA60:=MA(C,60);
 MA120:=MA(C,120);
 MA250:=MA(C,250),COLORYELLOW;
 VOL1:=MA(VOL,5),COLORWHITE;
 VOL2:=MA(VOL,10),COLORYELLOW;
 VOL3:=MA(VOL,20),COLORFF00FF ;
 月量托:VOL1>=VOL3 AND CROSS(VOL2,VOL3) AND REF(VOL2,1)<REF(VOL3,1),COLORYELLOW;
 DRAWTEXT(月量托,L,'▲'),COLORYELLOW;
 DRAWTEXT(月量托,L*0.97,'月量托'),COLORYELLOW;
 STICKLINE(月量托,L,H,0.5,1), COLORYELLOW;
 STICKLINE(月量托,O,C,5,1),LINETHICK3, COLORYELLOW;
 AA:=BARSLAST(MA60>MA40 AND (MA40=MA20 OR MA40>MA20));
 BB:=REF(COUNT(C<MA60,AA)=AA,1);
 CC:=CROSS(C,MA60) AND VOL>MA(VOL,5) AND (C-REF(C,1))/REF(C,1)*100>3;
 芙蓉出水:BB AND CC,COLOR00FF00;
 DRAWTEXT(芙蓉出水,H*1.05,'★'),COLOR00FF00;
 DRAWTEXT(芙蓉出水,H*1.02,'芙蓉出水'),COLOR00FF00;
 STICKLINE(芙蓉出水,H,L,0.5,0),COLOR00FF00;
 STICKLINE(芙蓉出水,O,C,5,0),COLOR00FF00,LINETHICK2;
 VOL4:=MA(VOL,20),COLORWHITE;
 VOL5:=MA(VOL,40),COLORYELLOW;
 VOL6:=MA(VOL,60),COLORFF00FF ;
 季量托:VOL4>=VOL6 AND CROSS(VOL5,VOL6) AND REF(VOL5,1)<REF(VOL6,1),COLORWHITE;
 DRAWTEXT(季量托,L,'▲'),COLORWHITE;
 DRAWTEXT(季量托,L*0.97,'季量托'),COLORWHITE;
 STICKLINE(季量托,L,H,0.5,1), COLORWHITE;
 STICKLINE(季量托,O,C,5,1),LINETHICK3, COLORWHITE;