相關標簽: 優化macd指標參數設置 、 博易大師優化macd指標 、 macd優化指標 、 主圖疊加macd指標公式 、 macd主圖指標 、 macd指標詳解l圖 、 期貨macd指標詳解l圖 、 副圖使用macd指標公式 、 macd指標詳解圖 、

源碼：
AA:=MA((2*CLOSE+HIGH+LOW)/4,5);通1:=AA*102/100;通2:=AA*(200-102)/100;CC:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);DD:=DMA(CLOSE,CC);上:(1+7/100)*DD,LINEDASHDOT,COLOR0099FF;下:(1-7/100)*DD,LINEDASHDOT,COLOR0099FF;中:(上+下)/2,LINETHICK0,COLOR0099FF;逃頂:(1+14/100)*DD,LINETHICK2,COLORWHITE;抄底:(1-14/100)*DD,LINETHICK2,COLORBLUE;DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);DEA := EMA(DIFF,9);MACD := 2*(DIFF-DEA);PARTLINE(DIFF<=0 OR MACD<=0,中),LINETHICK2,COLORGREEN;PARTLINE(DIFF>0 and MACD>0,中),LINETHICK2,COLORRED;OO:=if(DATATYPE=6,ma(O,22),if(DATATYPE=7,ma(O,10),ma(O,6)));j:=STKINDI('','kdj.j',0,6);CC:=if(DATATYPE=6,ma(c,22),if(DATATYPE=7,ma(c,10),ma(c,6)));hs:=vol/CAPITAL*100;jj:=(H+L+C)/3;qj0:=vol/IF(H=L,4,H-L);qj1:=IF(CAPITAL=0,qj0*(jj-MIN(C,O)),qj0*(MIN(O,C)-L));qj2:=IF(CAPITAL=0,qj0*(MIN(O,C)-L),qj0*(jj-MIN(C,O)));qj3:=qj0*(H-MAX(O,C));qj4:=qj0*(MAX(C,O)-jj);qj5:=qj1+qj2;qj6:=qj3+qj4;DD:=(qj5-qj6)/(qj5+qj6)*100;DDX:=((qj1+qj2)-(qj3+qj4))/sum(vol,10)*100;DDZ:=DD*17;DDY:=((qj2+qj4)-(qj1+qj3))/sum(vol,10)*100;bb:=(cross(j,0)and ((ddx>0 and ddy>0) or DDZ>400));主:=qj1+qj2;散:=qj3+qj4;T0:=VOL>REF(VOL,1) and MA(VOL,5)>REF(MA(VOL,5),1);QJ11:=(HIGH+LOW)/2;QJ12:=EMA(QJ11,22);QJ13:=STD(QJ11,22);QJ14:=((QJ11-QJ12)/QJ13*100+200)/4;QJ15:=(EMA(QJ14,5)-22)*1.56;QJ16:=SMA(QJ15,3,1);TJ1:=SMA(QJ16,3,1);TJ2:=3*QJ16-2.1*TJ1;P:=SYSPARAM(1);Q6:=atan((MA(C,5)/ref(MA(C,5),1)-1)*100)*57.3;Q2:=atan((MA(C,13)/ref(MA(C,13),1)-1)*100)*57.3;Q1:=atan((MA(C,23)/ref(MA(C,23),1)-1)*100)*57.3;Q:=atan((MA(C,34)/ref(MA(C,34),1)-1)*100)*57.3;Q3:=atan((MA(C,68)/ref(MA(C,68),1)-1)*100)*57.3;Q5:=atan((MA(C,250)/ref(MA(C,250),1)-1)*100)*57.3;T1:=VOL<REF(VOL,1) and MA(VOL,5)>REF(MA(VOL,5),1);T2:=VOL>REF(VOL,1) and MA(VOL,5)<REF(MA(VOL,5),1);T3:=VOL<REF(VOL,1) and MA(VOL,5)<REF(MA(VOL,5),1);T4:=主>REF(主,1) and 主>散 and if(CAPITAL=0,hs>1.3,hs>5);T5:=主<REF(主,1) and 主>散 and if(CAPITAL=0,hs>0.5 and hs<1.3,hs>3 and hs<=5);T6:=主>REF(主,1) and 主<散 and if(CAPITAL=0,hs<1.3 and hs>0.5,hs<5 and hs>3);T7:=主<REF(主,1) and 主<散 and if(CAPITAL=0,hs<1.3,hs<3 and hs>=1);DRAWTEXTEX(CLOSE,1,0,100,'5 日線夾角: '+NUMTOSTR(Q6[P],2)+' 度'),COLORAAAAAA;DRAWTEXTEX(CLOSE,1,220,100,'13日線夾角: '+NUMTOSTR(Q2[P],2)+' 度'),COLORAAAAAA;DRAWTEXTEX(CLOSE,1,450,100,'22日線夾角: '+NUMTOSTR(Q1[P],2)+' 度'),COLORAAAAAA;DRAWTEXTEX(CLOSE,1,0,150,'34日線夾角: '+NUMTOSTR(Q[P],2)+' 度'),COLORAAAAAA;DRAWTEXTEX(CLOSE,1,220,150,'68日線夾角: '+NUMTOSTR(Q3[P],2)+' 度'),COLORAAAAAA;DRAWTEXTEX(CLOSE,1,450,150,'250日線夾角: '+NUMTOSTR(Q5[P],2)+' 度'),COLORAAAAAA;DRAWTEXTEX(CLOSE,1,20,0,'上漲家數:'+NUMTOSTR(INDEXADV,0)+' 家'),COLOR0066FF;DRAWTEXTEX(CLOSE,1,180,0,'下跌家數:'+NUMTOSTR(INDEXDEC,0)+' 家'),COLOR99FF99;DRAWTEXTEX(CLOSE,1,340,0,'平盤家數:'+NUMTOSTR(PINGPAN,0)+' 家'),COLOREEEEEE;DRAWTEXT(bb,L*0.98,'弄\n點\n錢\n玩\n玩'),COLOR00FFFF;DRAWTEXTEX(T0,1,500,0,'成交大于昨日,有繼續增大趨勢'),Color00FFFF;DRAWTEXTEX(T1,1,500,0,'成交小于昨日,但有放大跡象'),Color00DDFF;DRAWTEXTEX(T2,1,500,0,'成交大于昨日,但有縮小跡象'),ColorFFFF00;DRAWTEXTEX(T3,1,500,0,'成交小于昨日,且有縮小跡象'),ColorFFbb00;DRAWTEXTEX(T4,1,760,0,'資金比較活躍,大資金活動明顯'),Color00FFff;DRAWTEXTEX(T5,1,760,0,'資金開始積極,大資金溫和進場'),Color00DDff;DRAWTEXTEX(T6,1,760,0,'散亂資金積極,散戶行為明顯'),ColorFFDD00;DRAWTEXTEX(T7,1,760,0,'交易頻率上升,散戶相當積極'),ColorFFFF00;DRAWTEXTEX(CLOSE,1,20,50,STKLABEL+' '+STKNAME+' '+STRLEFT(BLKNAME,40)),Color00AAAA;a:=F10FIND('【十大流通股東】:',1);a0:=F10FIND('主要指標:',1);c0:=F10FIND('控盤情況:',a0);hs:=F10FIND('總戶數',500);q1:=F10FIND('200',hs+40);q2:=F10FIND('200',q1+40);g1:=LTRIM(F10TEXT(q1+14,10));g2:=LTRIM(F10TEXT(q2+14,10));gd1:=STRTONUM(g1);gd2:=STRTONUM(g2);qq1:=gd1-gd2;qq2:=gd1-gd2;DRAWTEXTex(qq1<0,1,820,960,'市場籌碼較上期集中'),color00EEFF;DRAWTEXTex(qq2>0,1,820,960,'市場籌碼較上期分散'),colorFFAA00;QSW:=F10FIND('按照資產負債率排名',5000);QSZ:=F10FIND('按照每股收益排名',5000);DRAWTEXTEX(c,1,10,900,'按照每股收益排名,'+F10TEXT(QSz+20,0));DRAWTEXTEX(c,1,10,950,'按照資產負債率排名,'+F10TEXT(QSW+22,0));復制代碼{ www.kzuj.com.cn } {<span style="display:none;"><a data-cke-saved-href="http://www.kzuj.com.cn" href="http://www.kzuj.com.cn" title="同花順程序化交易">同花順程序化交易</a></span>}
點擊復制上述代碼粘貼到到公式管理器

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】