【通达信分享源码】精品指标公式－MACD变异指标源码

公式源码：

 

WY1001:=(2*CLOSE+HIGH+LOW)/4;

 

WY1002:=EMA(WY1001,4);

 

WY1003:=EMA(WY1002,4);

 

WY1004:=EMA(WY1003,4);

 

XYS0:=(WY1004-REF(WY1004,1))/REF(WY1004,1)*100;

 

STICKLINE(XYS0>=0,XYS0,0,2,0),COLORRED;

 

STICKLINE(XYS0<0,XYS0,0,2,0),COLORGREEN;

 

HD:=FILTER(BACKSET(XYS0>0 AND XYS0<REF(XYS0,1) AND REF(XYS0,1)>REF(XYS0,2),2),1);

 

DRAWLINE(HD,XYS0,REF(HD,1),REF(XYS0,1),1);

 

LD:=FILTER(BACKSET(XYS0<0 AND XYS0>REF(XYS0,1) AND REF(XYS0,1)<REF(XYS0,2),2),1);

 

DRAWLINE(LD,XYS0,REF(LD,1),REF(XYS0,1),1);

 

PJGJ:=AMOUNT/AMO/100;

 

SSRYDJX:=MA(PJGJ,13);

 

SSRCJL:=EMA(AMO,13);

 

SSRCJE:=EMA(AMOUNT,13);

 

SSRCBJX:=SSRCJE/SSRCJL/100;

 

CYS13:=(CLOSE-SSRCBJX)/SSRCBJX*100;

 

XYSHSL:=EMA(AMO/CAPITAL*100,13);

 

ZZX:0,COLORWHITE;

 

{STICKLINE(XYSHSL>6.1 AND CYS13>5,2,0,2,0),COLORGREEN;

 

STICKLINE(XYSHSL>3.8 AND CYS13>5,1.5,0,2,0),COLORYELLOW;

 

STICKLINE(XYSHSL>2.1 AND CYS13>5,1,0,2,0),COLORCYAN;

 

STICKLINE(XYSHSL>1.8 AND CYS13>5,0.5,0,2,0),COLORBLUE;}

 

XYS1:MA(XYS0,2);

 

XYS2:MA(XYS0,1);

 

DRAWICON(CROSS(XYS2,XYS1),XYS0,11);    

 

DRAWICON(CROSS(XYS1,XYS2),XYS0,15);