通达信MACD双峰画线

                通达信MACD双峰画线

{通达信MACD双峰画线 }

DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  := EMA(DIFF,9);
MACD : 2*(DIFF-DEA), COLORSTICK;
BN:=BARSLAST(CROSS(DIFF,DEA));
BA:=BACKSET(CROSS(DEA,DIFF) OR ISLASTBAR,HHVBARS(MACD,BN+1)+1);
BN2:=BARSLAST(REF(BA,1)=0 AND BA=1);
DA:=REF(MACD,BN2);
CC:=REF(C,BN2);
HBL:=CROSS(BA,0.5) AND CC>REF(CC,1) AND DA<REF(DA,1);
DRAWLINE(CROSS(BA,0.5),REF(MACD,BN2),HBL,MACD,0);

BM:=BARSLAST(CROSS(DEA,DIFF));
BB:=BACKSET(CROSS(DIFF,DEA) OR ISLASTBAR,LLVBARS(MACD,BM+1)+1);
BN1:=BARSLAST(REF(BB,1)=0 AND BB=1) ;
XIAO:=REF(MACD,BN1);
CC1:=REF(C,BN1);
LBL:=CROSS(BB,0.5) AND CC1<REF(CC1,1) AND XIAO>REF(XIAO,1);
DRAWLINE(CROSS(BB,0.5),REF(MACD,BN1),LBL,MACD,0);

                     MACD双峰画线
{MACD双峰画线 }
P:=3;

DIFF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIFF,9);
MACD:2*(DIFF-DEA),COLORSTICK;

AA1:=REF(MACD,P)=HHV(MACD,2*P+1);
BB1:=FILTER(AA1,P) AND MACD>0;
CC1:=BACKSET(BB1,P+1);
DD1:=FILTER(CC1,P);{高点}
AA2:=REF(MACD,P)=LLV(MACD,2*P+1);
BB2:=FILTER(AA2,P) AND MACD<0;
CC2:=BACKSET(BB2,P+1);
DD2:=FILTER(CC2,P);{低点}
上:=REF(MACD,BARSLAST(DD1)),COLORFF00FF,NODRAW;
下:=REF(MACD,BARSLAST(DD2)),COLOR00FF00,NODRAW;
相对能量:=(MACD-下)/(上-下)*100,COLORYELLOW,NODRAW;
R11:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1);
S11:=R11>REF(R11,1);
压力线:DRAWLINE(DD1,MACD,S11,MACD,0),LINETHICK2,COLORYELLOW;
T11:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1);
U11:=T11>REF(T11,1);
支撑线:DRAWLINE(DD2,MACD,U11,MACD,0),LINETHICK2,COLOR00FF00;
0,DOTLINE,COLOR555555;

{画线延长}
延长压力线:DRAWLINE(DD1,MACD,S11,MACD,1),LINETHICK1,COLORYELLOW;
延长支撑线:DRAWLINE(DD2,MACD,U11,MACD,1),LINETHICK1,COLOR00FF00;