【通达信免费源码】MACD主图+周KDJ+周MACD 主图 副图 KDJ指标 MACD指标

多空分界:MA(C,50),POINTDOT,COLORFFCC00,LINETHICK3;

IF(多空分界>REF(多空分界,1),多空分界,DRAWNULL),COLORMAGENTA,POINTDOT,LINETHICK3;

DIF:=EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);

DEA:=EMA(DIF,M);

MACD:=2*(DIF-DEA);

KK:=IF(DIF>DEA,5,-5);

JCSC:=(M-1)/(M+1)*DEA/(1-2/(M+1));{计算出金叉死叉时的DIFF值}

DD:=(MACD/2+(DEA*(M-1)/(M+1)))/(1-2/(M+1));{计算出明日MACD=MACD时的DIFF值}

DIF拐头价:=(DIF(SHORT+1)(LONG+1)-(LONG+1)(SHORT-1)EMA(C,SHORT)+(SHORT+1)(LONG-1)EMA(C,LONG))/(2*((LONG+1)-(SHORT+1)))COLORCYAN,LINETHICK1;

金死叉价:=(JCSC(SHORT+1)(LONG+1)-(LONG+1)(SHORT-1)EMA(C,SHORT)+(SHORT+1)(LONG-1)EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),NODRAW;

柱变向价:=(DD(SHORT+1)(LONG+1)-(LONG+1)(SHORT-1)EMA(C,SHORT)+(SHORT+1)(LONG-1)EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORWHITE,DOTLINE;

当日柱变临界:=(((M+1)(2REF(DEA,1)(M-1)+REF(MACD,1)(M+1)))/(2(M+1)(M-1))+(REF(EMA(C,26),1)(26-1)/(26+1))-(REF(EMA(C,12),1)(12-1)/(12+1)))(12+1)(26+1)/(2*(26-12));

拐头价:IF(DIF拐头价<柱变向价,DIF拐头价,DRAWNULL),COLORRED,LINETHICK1;

DRAWNUMBER(DIF<DEA,DIF拐头价,BARSLAST(CROSS(DEA,DIF))+1),COLORCYAN,NODRAW;

DRAWNUMBER(DIF>DEA,DIF拐头价,BARSLAST(CROSS(DIF,DEA))+1),COLORWHITE,NODRAW;

HD0:=CROSS(DIF,DEA);

金收:=REF(L,BARSLAST(HD0)),COLORYELLOW,DOTLINE;

LD0:=CROSS(DEA,DIF);

死收:REF(H,BARSLAST(LD0)),COLOR00FF00,POINTDOT;

DRAWNUMBER(ISLASTBAR,死收,死收),COLORCYAN;

ES:=REF(EMA(C,26),1);

EP:=REF(EMA(C,12),1);

DI:=REF(DIF,1);

本级别开始结束:((12+1)(26-1)ES-(26+1)(12-1)EP)/(2(26+1)-2(12+1)),COLORWHITE,NODRAW;{DIF穿零价}

DRAWTEXT_FIX(1,0.5,1,0,STRCAT('DIF拐点: ',CON2STR(DIF拐头价,2))),COLORYELLOW;

DRAWTEXT_FIX(1,0.4,1,0,STRCAT('0轴价: ',CON2STR(本级别开始结束,2))),COLORRED;

交叉价格:=351/28(EMA(DIF,9)-11/13EMA(C,12)+25/27*EMA(C,26)),COLORLIBLUE,NODRAW;

DRAWTEXT_FIX(1,0.7,1,0,STRCAT('交叉价格: ',CON2STR(交叉价格,2))),COLORGREEN;

DRAWTEXT_FIX(1,0.6,1,0,STRCAT('柱变临界: ',CON2STR(当日柱变临界,2))),COLORGREEN;

ZJ:=DIF>DEA;

HY:=DIF<DEA;

XG1:=ZJ AND C>死收 AND C>多空分界;

STICKLINE(XG1,L,H,0,0),COLOR0000AA;

STICKLINE(XG1,CLOSE,OPEN,3,0),COLOR000055;

STICKLINE(XG1,CLOSE,OPEN,2.8,0),COLOR000066;

STICKLINE(XG1,CLOSE,OPEN,2.5,0),COLOR000077;

STICKLINE(XG1,CLOSE,OPEN,2.2,0),COLOR000088;

STICKLINE(XG1,CLOSE,OPEN,1.7,0),COLOR000099;

STICKLINE(XG1,CLOSE,OPEN,1.2,0),COLOR0000AA;

STICKLINE(XG1,CLOSE,OPEN,0.7,0),COLOR0000CC;

STICKLINE(XG1,CLOSE,OPEN,0.2,0),COLOR0000FF;

AA:=CROSS(C,死收);

STICKLINE(AA,H,L,0,1),COLORYELLOW;

STICKLINE(AA,C,O,3.2,0),COLOR117777;

STICKLINE(AA,C,O,2.6,0),COLOR119999;

STICKLINE(AA,C,O,1.9,0),COLOR11BBBB;

STICKLINE(AA,C,O,1.1,0),COLOR11DDDD;

STICKLINE(AA,C,O,0.3,0),COLOR44FFFF;

K9底:=C<死收 AND DIF<DEA AND C<DIF拐头价;

STICKLINE(K9底,OPEN,CLOSE,3,0),COLORFF0000;

STICKLINE(K9底,OPEN,CLOSE,2.5,0),COLORFF1100;

STICKLINE(K9底,OPEN,CLOSE,2,0),COLORFF2200;

STICKLINE(K9底,OPEN,CLOSE,1.5,0),COLORFF3300;

STICKLINE(K9底,OPEN,CLOSE,1,0),COLORFF4400;

STICKLINE(K9底,OPEN,CLOSE,0.5,0),COLORFF5500;

STICKLINE(K9底,H,L,0,0),COLORFF6600;

W1:=柱变向价>DIF拐头价 AND C<死收;

STICKLINE(W1,H,L,0,1),COLORFF55FF;

STICKLINE(W1,C,O,3.2,0),COLOR880088;

STICKLINE(W1,C,O,2.6,0),COLORAA00AA;

STICKLINE(W1,C,O,1.9,0),COLORCC00CC;

STICKLINE(W1,C,O,1.1,0),COLOREE00EE;

STICKLINE(W1,C,O,0.3,0),COLORFF44FF;

止损差价:C-拐头价,NODRAW;

可买股数:2000/止损差价,COLORRED,NODRAW;

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

K:=SMA(RSV,3,1),COLORWHITE,LINETHICK1,NODRAW;

D:=SMA(K,3,1),COLORYELLOW,LINETHICK1,NODRAW;

LC:=REF(CLOSE,1);

RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;

IF(COUNT(RSI1>80,3)=3,H,DRAWNULL),POINTDOT,COLORGREEN,LINETHICK8;

IF(COUNT(RSI1<20,3)=3,L,DRAWNULL),POINTDOT,COLORYELLOW,LINETHICK8;

IF(COUNT(K>80,3)=3,H,DRAWNULL),POINTDOT,COLORGREEN,LINETHICK5;

IF(COUNT(K<20,3)=3,L,DRAWNULL),POINTDOT,COLORFF33FF,LINETHICK5;

MACD1:=(DIF-DEA)*6,COLORSTICK;

STICKLINE(MACD1>0,多空分界,多空分界+MACD1,0,1),COLOR000066;

STICKLINE(MACD1<0,多空分界,多空分界+MACD1,0,1),COLOR333300;

黄铢消失见顶:IF(柱变向价>=DIF拐头价,DIF拐头价,DRAWNULL),COLORYELLOW,CIRCLEDOT,LINETHICK1;