通达信波段做股主图源码

MA4:=MA(CLOSE,60);
 MA55:=MA(CLOSE,120);
 DRAWBAND(MA4,RGB(100,10,0),MA55,RGB(40,90,10));
 N1:=IF(BARSCOUNT(C)>=10,10,BARSCOUNT(C));
DRAWKLINE(H,O,L,C);
 N:=IF(BARSCOUNT(C)>=45,45,BARSCOUNT(C));
 STICKLINE(C>=MA(C,N),MA(C,N),MA(C,N*0.78),4,0),COLORYELLOW;
 STICKLINE(C<MA(C,N),MA(C,N),MA(C,N*0.78),4,0),COLORBLUE;
 DRAWKLINE(H,O,L,C); 
MA5:MA(CLOSE,5);
 MA10:MA(CLOSE,10),COLORCYAN;
 MA20:MA(CLOSE,20);
 MA60:MA(CLOSE,60);
 MA120:MA(CLOSE,120);
 VVA1:=((CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8)))*(100);
 VVA2:=((CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21)))*(100);
 VVA3:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100);
上升VVA4:=MAX(VVA1,VVA2);
 上升VVA5:=MAX(上升VVA4,VVA3);
 上升VVA6:=EMA(上升VVA5,3);
 上升位置1:=REF(上升VVA6,1),COLOR00FFFF;
 上升位置2:=REF(上升VVA6,2),COLOR00FFFF;
 上升位置3:=REF(上升VVA6,3),COLOR00FFFF;
 上升高位置4:=MAX(上升位置1,上升位置2),COLOR00FFFF;
 上升高位置:=MAX(上升高位置4,上升位置3),COLOR00FFFF; 
下跌VVA4:=MIN(VVA1,VVA2);
 下跌VVA5:=MIN(下跌VVA4,VVA3);
 下跌VVA6:=EMA(下跌VVA5,3);
 下跌位置1:=REF(下跌VVA6,1),COLOR00FFFF;
 下跌位置2:=REF(下跌VVA6,2),COLOR00FFFF;
 下跌位置3:=REF(下跌VVA6,3),COLOR00FFFF;
 下跌低位置4:=MIN(下跌位置1,下跌位置2),COLOR00FFFF;
 下跌低位置:=MIN(下跌低位置4,下跌位置3),COLOR00FFFF; 
上升短高点5:=MAX(REF(C,1),REF(C,2));
 上升短高点:=MAX(上升短高点5,REF(C,3));
 上升短低点5:=MIN(REF(C,4),REF(C,5));
 上升短低点:=MIN(上升短低点5,REF(C,6));
 上升涨幅5:=(上升短高点-上升短低点)/上升短低点*100; 
上升短期高点8:=MAX(REF(C,1),REF(C,2));
 上升短期高点:=MAX(上升短期高点8,REF(C,3));
 上升短期低点8:=MIN(REF(C,7),REF(C,8));
 上升短期低点:=MIN(上升短期低点8,REF(C,9));
 上升涨幅8:=(上升短期高点-上升短期低点)/上升短期低点*100; 
上升中期高点21:=MAX(REF(C,1),REF(C,2));
 上升中期高点:=MAX(上升中期高点21,REF(C,3));
 上升中期低点21:=MIN(REF(C,20),REF(C,21));
 上升中期低点:=MIN(上升中期低点21,REF(C,22));
 上升涨幅21:=(上升中期高点-上升中期低点)/上升中期低点*100; 
上升长期高点34:=MAX(REF(C,1),REF(C,2));
 上升长期高点:=MAX(上升长期高点34,REF(C,3));
 上升长期低点34:=MIN(REF(C,33),REF(C,34));
 上升长期低点:=MIN(上升长期低点34,REF(C,35));
 上升涨幅34:=(上升长期高点-上升长期低点)/上升长期低点*100;
 {股海网提供：www.guhai.com.cn}
上升涨幅1:=IF((上升涨幅8>10 OR 上升涨幅21>20 OR 上升涨幅34>30),1,0);
 上升涨幅2:=IF((上升涨幅8>5 OR 上升涨幅21>10 OR 上升涨幅34>15),1,0);
 上升涨幅:=IF(CAPITAL=0,上升涨幅2,上升涨幅1);
下跌短低点5:=MIN(REF(C,1),REF(C,2));
 下跌短低点:=MIN(下跌短低点5,REF(C,3));
 下跌短高点5:=MAX(REF(C,4),REF(C,5));
 下跌短高点:=MAX(下跌短高点5,REF(C,6));
 下跌跌幅5:=(下跌短高点-下跌短低点)/下跌短低点*100;
 
下跌短期低点8:=MIN(REF(C,1),REF(C,2));
 下跌短期低点:=MIN(下跌短期低点8,REF(C,3));
 下跌短期高点8:=MAX(REF(C,7),REF(C,8));
 下跌短期高点:=MAX(下跌短期高点8,REF(C,9));
 下跌跌幅8:=(下跌短期高点-下跌短期低点)/下跌短期低点*100;
 
下跌中期低点21:=MIN(REF(C,1),REF(C,2));
 下跌中期低点:=MIN(下跌中期低点21,REF(C,3));
 下跌中期高点21:=MAX(REF(C,20),REF(C,21));
 下跌中期高点:=MAX(下跌中期高点21,REF(C,22));
 下跌跌幅21:=(下跌中期高点-下跌中期低点)/下跌中期低点*100;
 
下跌长期低点34:=MIN(REF(C,1),REF(C,2));
 下跌长期低点:=MIN(下跌长期低点34,REF(C,3));
 下跌长期高点34:=MAX(REF(C,33),REF(C,34));
 下跌长期高点:=MAX(下跌长期高点34,REF(C,35));
 下跌跌幅34:=(下跌长期高点-下跌长期低点)/下跌长期低点*100;
 下跌跌幅:=IF((下跌跌幅8>10 OR 下跌跌幅21>20 OR 下跌跌幅34>30),1,0);
 
STICKLINE(  C<MA60,H,L,0,0),COLOR777777;
 STICKLINE(  C<MA60,O,C,3,1),COLOR777777;

QN1:=MA(C,13);
 QN:=ATAN((QN1-REF(QN1,1)))*180/2;
 
QN2:=MA(C,21);
 QN3:=ATAN((QN2-REF(QN2,1)))*180/2;
{股海网提供：www.guhai.com.cn} 
MIN1:=MIN(QN1,QN2);
MAX1:=MAX(QN1,QN2);
 开炮1:=IF(L<MIN1 AND C>MAX1 AND C>REF(C,1) AND VOL>MA(VOL,5) AND (C-REF(C,1))/REF(C,1)*100>3,1,0);
 STICKLINE(开炮1>0,C,O,3,1),COLOR0066BB;
 STICKLINE(开炮1>0,C,O,2,1),COLOR0066BB;
 涨幅10:=(HHV(H,10)-LLV(L,10))/LLV(L,10)*100,NODRAW;
 DRAWTEXT(开炮1>0 AND 下跌低位置<25 AND 下跌跌幅>0,L*0.97,'开炮'),COLOR0000FF;
 短买:=L<QN1 AND C>QN1 AND C>REF(C,1) AND MA(C,5)>REF(MA(C,5),1) AND 开炮1=0;
 DRAWICON(短买 AND 下跌低位置<25 AND 下跌跌幅>0,L,1),COLOR0000FF;
 
撤退:=IF(H>MAX1 AND C<MIN1 AND C<REF(C,1)  AND (REF(C,1)-C)/REF(C,1)*100>3,1,0);
 STICKLINE(撤退>0,C,O,3,1),COLOR008800;
 STICKLINE(撤退>0,C,O,2,1),COLOR008800;
 
DRAWTEXT(撤退>0 AND 上升高位置>75  AND 上升涨幅>0,H*1.02,'撤退'),COLORGREEN;
 短卖:=H>QN1 AND C<QN1 AND C<REF(C,1) AND 撤退=0;
 DRAWICON(短卖 AND 上升高位置>75  AND 上升涨幅>0,H,2),COLORGREEN;
 
AAS:=BARSLAST(MA60>MA20 AND (MA20=MA10 OR MA20>MA10));
 BBS:=REF(COUNT(C<MA60,AAS)=AAS,1);
 CC:=CROSS(C,MA60) AND VOL>MA(VOL,5) AND (C-REF(C,1))/REF(C,1)*100>3;
 芙蓉出水:=BB AND CC,COLOR00FF00;
 STICKLINE(芙蓉出水,O,C,3,1),COLORFF00FF;
 STICKLINE(芙蓉出水,O,C,2,1),COLORFF00FF;
 DRAWTEXT(芙蓉出水,L,'芙蓉出水'),COLORFF00FF;
 {超短压力线（加入主图即可）}
 B:=BARSLAST(C>O AND C>REF(C,1));
 A1C:=CONST(REF(C,B));
 超短压力价:=DRAWLINE(CURRBARSCOUNT=B+10 AND C<REF(C,B), A1C, ISLASTBAR, A1C, 1),LINETHICK2,COLOR0000FF;
 TT:=IF(LOW<=LLV(LOW,3),HHV(HIGH,3),HHV(HIGH,3));
 下降压力线:DRAWLINE(HIGH>=HHV(HIGH,10),HIGH, ISLASTBAR,TT,1),LINETHICK2,COLORFF00FF;
 SS1:=短卖 AND 上升高位置>75  AND 上升涨幅>0;
 SS2:=H>MAX1 AND C<MIN1 AND C<REF(C,1)  AND (REF(C,1)-C)/REF(C,1)*100>3;
 SS3:=IF((SS1>0 OR SS1>0),MA(C,5),DRAWNULL);
 水平压力线:DRAWLINE((SS1>0 OR SS1>0),MA(C,5), ISLASTBAR,SS3,1),LINETHICK2,COLORFF00FF;
 {财务数据}
 DRAWTEXT_FIX(ISLASTBAR,0.18,0.01,1,'上市日期:'),COLOR00FF00;
 DRAWNUMBER_FIX(ISLASTBAR,0.18,0.01,0,FINANCE(42)),COLOR00FF00;
 DRAWTEXT_FIX(1,0.01,0.13,0,EXTERNSTR(0,1)),COLORRED;
DRAWTEXT_FIX(1,0.26,0.01,0,EXTERNSTR(0,2)),COLORDD00DD;
DRAWTEXT_FIX(1,0.01,0.066,0,EXTERNSTR(0,3)),COLOR00DD00;
 DRAWTEXT_FIX(ISLASTBAR ,0.06,0.01,1,DYBLOCK),COLORYELLOW;
 DRAWTEXT_FIX(ISLASTBAR ,0.065,0.01,0,HYBLOCK),COLORYELLOW;
 {股海网提供：www.guhai.com.cn}
总额:=AMOUNT;
 买:=IF(O=C AND (C-REF(C,1))/REF(C,1)*100>9.8,AMOUNT,AMOUNT/((H-L)*2-ABS(O-C))*(C-L));
 买%:=买/AMOUNT*100;
 流入:=AMOUNT*买%/10000000000;
流出:=AMOUNT/100000000-流入;
 净流:=(流入-流出);
 总额3:=SUM(AMOUNT,3);
 流入3:=SUM(流入,3);
 流出3:=SUM(流出,3);
 净流3:=SUM(流入-流出,3);
 总额5:=SUM(AMOUNT,5);
 流入5:=SUM(流入,5);
 流出5:=SUM(流出,5);
 净流5:=SUM(流入-流出,5);
 总额10:=SUM(AMOUNT,10);
 流入10:=SUM(流入,10);
 流出10:=SUM(流出,10);
 净流10:=SUM(流入-流出,10);
 画:=CONST(FINDHIGH(总额10,0,190,1));
 DRAWTEXT_FIX(1,0.71,0.07,0,'净流(亿):'),COLORMAGENTA,LINETHICK1;
 DRAWTEXT_FIX(1,0.78,0.05,0,'1日'),COLORMAGENTA,LINETHICK1;
 DRAWTEXT_FIX(1,0.83,0.05,0,'3日'),COLORMAGENTA,LINETHICK1;
 DRAWTEXT_FIX(1,0.88,0.05,0,'5日'),COLORMAGENTA,LINETHICK1;
 DRAWTEXT_FIX(1,0.93,0.05,0,'10日'),COLORMAGENTA,LINETHICK1;
 DRAWNUMBER_FIX(1,0.78,0.10,0,CONST((净流))),COLORYELLOW;
 DRAWNUMBER_FIX(1,0.83,0.10,0,CONST((净流3))),COLORYELLOW;
 DRAWNUMBER_FIX(1,0.88,0.10,0,CONST((净流5))),COLORYELLOW;
 DRAWNUMBER_FIX(1,0.93,0.10,0,CONST((净流10))),COLORYELLOW;