飞狐版
{【自用MACD】}
input:p(12,1,100),s(26,1,100),m(9,1,50),N(0,0,1);
DRAWGBK(1,COLORRGB(0,0,0),COLORRGB(0,0,0),1);
周MACD:="MACD.MACD#WEEK",LINETHICK0,ColorCB97FF;
BZ:=WEEKDAY;
ZB:=DATEDIFF(REF(DATE,1),DATE)<>BZ-REF(BZ,1) OR BARPOS=1;
ZW:=BARSLAST(ZB);
Zdg:=ZW=0 or ISLASTBAR;
Zwx:=0*c;
for i=datacount-1 downto lbound(Zdg) do
if Zdg then
Zwx:=0;
else
Zwx:=Zwx[i+1]+1;
Zr:=BACKSET(ISLASTBAR,Zw+1)-ISLASTBAR;
Zwx:=refx(Zwx,1)+Zr,LINETHICK;
zq:=BARSLAST(ref(Zwx,1)=0 or BARPOS=1)+1;
yt:=if(zq=1 and refx(zq,2)=1,13,if(refx(zq,1)=1 or zq=1,7,14));
STICKLINE(周MACD>=0 AND DATATYPE=6,周MACD,0,yt,0),Color000055;
STICKLINE(周MACD<0 AND DATATYPE=6,周MACD,0,yt,0),Color515100;
DIFF:(EMA(CLOSE,P) - EMA(CLOSE,S)),COLORMAGENTA,LINETHICK;
DEA :EMA(DIFF,M),Color1AFFFF,LINETHICK;
macd:(diff-dea)*2,COLORRED,LINETHICK;
STICKLINE(macd>0 and macd>=REF(macd,1),macd,0,4,0),Color0000F2;
STICKLINE(macd>0 and macd<REF(macd,1),macd,0,4,1),Color0000F2;
STICKLINE(macd<0 and macd<REF(macd,1),macd,0,4,0),Color008000;
STICKLINE(macd<0 and macd>=REF(macd,1),macd,0,4,1),Color008000;
PARTLINE(1,0),COLORGRAY;
PARTLINE(1 ,DIFF),COLORCYAN;
PARTLINE(DIFF>=REF(DIFF,1) ,DIFF),ColorFF00FF;
PARTLINE(1 ,DEA),Color1AFFFF;
ES:=IF(N=0,REF(EMA(C,S),1),EMA(C,S));
EP:=IF(N=0,REF(EMA(C,P),1),EMA(C,P));
DI:=IF(N=0,REF(DIFF,1),DIFF);
零度价:=((P+1)*(S-1)*ES-(S+1)*(P-1)*EP)/(2*(S+1)-2*(P+1));
DRAWTEXTEX(IF(N=0,REF(DIFF,1)<0,DIFF<0),1,5,70,'DIFF上穿零度对应的股价:'+NUMTOSTR(零度价,2)+'元'),COLORD0D0D0;
DRAWTEXTEX(IF(N=0,REF(DIFF,1)>0,DIFF>0),1,5,70,'DIFF下穿零度对应的股价:'+NUMTOSTR(零度价,2)+'元'),COLORD0D0D0;
拐点价:=((P-1)*EP/(P+1)-(S-1)*ES/(S+1)-DI)*(S+1)*(P+1)/(2*(P+1)-2*(S+1));
DRAWTEXTEX(IF(N=0,REF(DIFF,1)<REF(DIFF,2),DIFF<REF(DIFF,1)),1,5,270,'DIFF向上拐点对应的股价:'+NUMTOSTR(拐点价,2)+'元'),COLORD0D0D0;
DRAWTEXTEX(IF(N=0,REF(DIFF,1)>REF(DIFF,2),DIFF>REF(DIFF,1)),1,5,270,'DIFF向下拐点对应的股价:'+NUMTOSTR(拐点价,2)+'元'),COLORD0D0D0;
通达信版本
{MACD多周期}
零轴:0;
DIF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIF,9);
周DIF:="MACD.DIF#WEEK"(12,26,9);
周DEA:="MACD.DEA#WEEK"(12,26,9);
STICKLINE("MACD.MACD#WEEK">=0,0,"MACD.MACD#WEEK",2.5,0),COLORLIRED;
STICKLINE("MACD.MACD#WEEK"<0,0,"MACD.MACD#WEEK",2.5,0),COLORLIGREEN;
DRAWBAND(周DIF,RGB(255,200,70),周DEA,RGB(70,100,50));
DRAWBAND(DIF,RGB(155,50,50),DEA,RGB(0,100,50));
{DRAWBAND(DIF,RGB(255,200,70),DEA,RGB(70,100,50));};
MACD:=(DIF-DEA)*2,COLORSTICK;
STICKLINE(MACD>=0,0,MACD,2,0),COLORRED;
STICKLINE(MACD<0,0,MACD,2,0),COLORLICYAN;
通达信版之二
DIF:EMA(CLOSE,12)-EMA(CLOSE,26),COLORFF00FF,NODRAW;
DEA:EMA(DIF,9),COLOR1AFFFF,NODRAW;
MACD:(DIF-DEA)*2,COLOR0000F2,NODRAW;
STICKLINE("MACD.MACD#WEEK">=0,0,"MACD.MACD#WEEK",4,0),COLOR000055;
STICKLINE("MACD.MACD#WEEK"<0,0,"MACD.MACD#WEEK",4,0),COLOR515100;
STICKLINE(MACD>=0 AND MACD>=REF(MACD,1),0,MACD,1,0),COLOR0000F2;
STICKLINE(MACD>=0 AND MACD<REF(MACD,1),0,MACD,1,1),COLOR0000F2;
STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,1,0),COLOR008000;
STICKLINE(MACD<0 AND MACD>=REF(MACD,1),0,MACD,1,1),COLOR008000;
ES:=REF(EMA(C,26),1);
EP:=REF(EMA(C,12),1);
DI:=REF(DIF,1);
DIF穿零价:((12+1)*(26-1)*ES-(26+1)*(12-1)*EP)/(2*(26+1)-2*(12+1)),NODRAW,COLORWHITE;
DIF拐点价:((12-1)*EP/(12+1)-(26-1)*ES/(26+1)-DI)*(26+1)*(12+1)/(2*(12+1)-2*(26+1)),COLORYELLOW,NODRAW;
IF(1,DIF,DRAWNULL),COLORCYAN;
IF(DIF>=REF(DIF,1),DIF,DRAWNULL),COLORFF00FF;
IF(1,DEA,DRAWNULL),COLOR1AFFFF;
大智慧版本
{【自用MACD】}
input:p(12,1,100),s(26,1,100),m(9,1,50),N(0,0,1);
周MACD:="MACD.MACD#WEEK";
STICKLINE(周MACD>=0 AND DATATYPE=8,0,周MACD,11,0),Color000055;
STICKLINE(周MACD<0 AND DATATYPE=8,0,周MACD,11,0),Color515100;
DIFF:(EMA(CLOSE,P) - EMA(CLOSE,S)),LINETHICK1;
DEA :EMA(DIFF,M),Color1AFFFF,LINETHICK1,LAYER0;
macd:(diff-dea)*2,COLORRED,LINETHICK0;
PARTLINE(DIFF,DIFF>=REF(DIFF,1),RGB(200,0,200),DIFF<REF(DIFF,1),RGB(0,200,200)),LAYER0;;
STICKLINE(macd>0 and macd>=REF(macd,1),macd,0,4,0),Color0000F2;
STICKLINE(macd>0 and macd<REF(macd,1),macd,0,4,1),Color0000F2;
STICKLINE(macd<0 and macd<REF(macd,1),macd,0,4,0),Color008000;
STICKLINE(macd<0 and macd>=REF(macd,1),macd,0,4,1),Color008000;
ES:=IF(N=0,REF(EMA(C,S),1),EMA(C,S));
EP:=IF(N=0,REF(EMA(C,P),1),EMA(C,P));
DI:=IF(N=0,REF(DIFF,1),DIFF);
零度价:=((P+1)*(S-1)*ES-(S+1)*(P-1)*EP)/(2*(S+1)-2*(P+1));
IF N=0 AND REF(DIFF,1)<0 and barstatus=2 THEN BEGIN DRAWTEXTREL(5,10,'DIFF上穿零度对应的股价:'+NUMTOSTRN(零度价,2)+'元'),COLOR00D0D0;END;
IF N=1 AND DIFF<0 and barstatus=2 THEN BEGIN DRAWTEXTREL(5,10,'DIFF上穿零度对应的股价:'+NUMTOSTRN(零度价,2)+'元'),COLOR00D0D0;END;
IF N=0 AND REF(DIFF,1)>0 and barstatus=2 THEN BEGIN DRAWTEXTREL(5,10,'DIFF下穿零度对应的股价:'+NUMTOSTRN(零度价,2)+'元'),COLORD0D0D0;END;
IF N=1 AND DIFF>0 and barstatus=2 THEN BEGIN DRAWTEXTREL(5,10,'DIFF下穿零度对应的股价:'+NUMTOSTRN(零度价,2)+'元'),COLORD0D0D0;END;
拐点价:=((P-1)*EP/(P+1)-(S-1)*ES/(S+1)-DI)*(S+1)*(P+1)/(2*(P+1)-2*(S+1));
IF N=0 AND REF(DIFF,1)<REF(DIFF,2) and barstatus=2 THEN BEGIN DRAWTEXTREL(5,80,'DIFF向上拐点对应的股价:'+NUMTOSTRN(拐点价,2)+'元'),COLOR00D0D0;END;
IF N=1 AND DIFF<REF(DIFF,1) and barstatus=2 THEN BEGIN DRAWTEXTREL(5,80,'DIFF向上拐点对应的股价:'+NUMTOSTRN(拐点价,2)+'元'),COLOR00D0D0;END;
IF N=0 AND REF(DIFF,1)>REF(DIFF,2) and barstatus=2 THEN BEGIN DRAWTEXTREL(5,80,'DIFF向下拐点对应的股价:'+NUMTOSTRN(拐点价,2)+'元'),COLORD0D0D0;END;
IF N=1 AND DIFF>REF(DIFF,1) and barstatus=2 THEN BEGIN DRAWTEXTREL(5,80,'DIFF向下拐点对应的股价:'+NUMTOSTRN(拐点价,2)+'元'),COLORD0D0D0;END;
