相对能量MACD指标源码

P:=10;

DIF1:EMA(CLOSE,12)-EMA(CLOSE,26)COLORLIGRAY,DOTLINE;

DEA:EMA(DIF1,9)COLORYELLOW,DOTLINE;

VAR1:=(HHV(EMA(EMA(C,5)-EMA(C,13),1),3)+ABS(LLV(EMA(EMA(C,5)-EMA(C,13),1),3)))/2;

F:VAR1/4*4,COLORRED;

DIF:EMA(EMA(C,5)-EMA(C,13),1),COLORWHITE;

AA1:=REF(DIF,P)=HHV(DIF,2*P+1);

BB1:=FILTER(AA1,P);

CC1:=BACKSET(BB1,P+1);

DD1:=FILTER(CC1,P);{高点}

AA2:=REF(DIF,P)=LLV(DIF,2*P+1);

BB2:=FILTER(AA2,P);

CC2:=BACKSET(BB2,P+1);

DD2:=FILTER(CC2,P);{低点}

上:=REF(DIF,BARSLAST(DD1)),COLORFF00FF,NODRAW;

下:=REF(DIF,BARSLAST(DD2)),COLOR00FF00,NODRAW;

相对能量:=(DIF-下)/(上-下)*100,COLORYELLOW,NODRAW;

R11:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1);

S11:=R11>REF(R11,1);

压力线:DRAWLINE(DD1,DIF,S11,DIF,1),COLORYELLOW;

T11:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1);

U11:=T11>REF(T11,1);

支撑线:DRAWLINE(DD2,DIF,U11,DIF,1),COLOR00FF00;

0,DOTLINE,COLOR555555;

DRAWICON(DD1,DIF,2);

DRAWICON(DD2,DIF,1);