【MACD-金】通达信版.（主图.源码.附图）

大家非要【鸭子上架】我只好勉为其难的试试看.大家不满意.还是另请高明吧.----有人说周月涨幅会害人的.正好我还不会编辑到通达信里去.那就删掉吧-----我说清楚我自己是根本不用【通达信】----这里就不另加说明了.你先看图能用你再下载.没什么特别的你就【路过】好吗.谢谢你进来看看---------------
源码里05引就不用了因为我们删掉了周月涨幅当然【05引】也就要不上了.若是有人能够编辑进去.你就可以利用
 

【05引】源码：-----------------

{05引}
CL:C,LINETHICK1;
OL:O,LINETHICK0;
HL:H,LINETHICK0;
LL:L,LINETHICK0;
QC:REF(C,2),LINETHICK1;
RC:REF(C,1),LINETHICK0;
RH:REF(H,1),LINETHICK0;
RO:REF(O,1),LINETHICK0;

下面就是【MACD-金】通达信源码;-------

RL:REF(L,1),LINETHICK0;DRAWGBK(O>C,RGB(40,0,40),RGB(0,0,120),0,'01',0);
{K线}
STICKLINE(CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1),LOW,HIGH,0.0,0),COLORRED;
STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),LOW,HIGH,0.0,0),COLORCYAN;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR008800;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00AA00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00DD00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR000088;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000AA;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000DD;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLOR0000FF;
现价: IF (DYNAINFO(4)=0,C,DYNAINFO(7)),COLORWHITE,POINTDOT;
TYP:FORCAST(((2*C+H+L)/4*0.618+C*0.382),3),COLOR00FFFF,LINETHICK0;
MA5:WMA(TYP,5),COLOR00FF00,LINETHICK2;
IF(MA5>REF(MA5,1),MA5,DRAWNULL),COLORRED,LINETHICK3;

DIF1:=WMA(CLOSE,5);
DIF2:=WMA(CLOSE,13);
XP:=BARSLAST(0)+1;
E:=LLV(L,XP);
DIFFK:=DIF1-DIF2;
DIF1-DIF2+E,COLOR0000FF;
DEAK:=WMA(DIFFK,8);
WMA(DIFFK,8)+E,COLOR00FF00;
MACD:=2*(DIFFK-DEAK);
STICKLINE((MACD > 0),E,E+MACD,0.5,0),COLOR0000CC;
STICKLINE((MACD > 0),E,E+MACD*0.9,0.5,0),COLOR0000EE;
STICKLINE((MACD > 0),E,E+MACD*0.8,1,0),COLOR0011FF;
STICKLINE((MACD > 0),E,E+MACD*0.7,1,0),COLOR0033FF;
STICKLINE((MACD > 0),E,E+MACD*0.6,1.5,0),COLOR0055FF;
STICKLINE((MACD > 0),E,E+MACD*0.5,1.5,0),COLOR0077FF;
STICKLINE((MACD > 0),E,E+MACD*0.3,2,0),COLOR00BBFF;

STICKLINE((MACD < 0),E,E+MACD,0.5,0),COLORCC0033;
STICKLINE((MACD < 0),E,E+MACD*0.9,0.5,0),COLOREE0033;
STICKLINE((MACD < 0),E,E+MACD*0.8,1,0),COLORFF1133;
STICKLINE((MACD < 0),E,E+MACD*0.7,1,0),COLORFF3333;
STICKLINE((MACD < 0),E,E+MACD*0.6,1.5,0),COLORFF5533;
STICKLINE((MACD < 0),E,E+MACD*0.5,1.5,0),COLORFF7733;
STICKLINE((MACD < 0),E,E+MACD*0.4,1.5,0),COLORFF9933;
STICKLINE((MACD < 0),E,E+MACD*0.1,2,0),COLORFFFF33;

KC:=FORCAST(((2*C+H+L)/4*0.618+C*0.382),3);
AAX:=(KC-MA(KC,9))/MA(KC,9)*100;
VAR0:=MIN(EXIST(KC,55),9);
AAX1:=EMA(AAX,VAR0)*VAR0;
AAX2:=MA(AAX1,3);
AAX3:=MA(AAX1,5);
DRAWTEXT(AAX3>10 AND AAX1<REF(AAX1,1) AND CROSS(AAX2,AAX1) ,H*1.02,'卖'),COLOR00FFFF,LINETHICK1;
DRAWTEXT(AAX3>10 AND AAX1<REF(AAX1,1) AND CROSS(AAX2,AAX1) ,H*1.05,'★'),COLOR0000FF,LINETHICK1;