通达信主图叠加MACD源码贴图

{通达信叠加MACD}
轴:CONST(HHV(H,120))-(CONST(HHV(H,120))-CONST(LLV(L,120)))/2;
零轴:IF(CONST(C)<轴,轴*1.07,轴*0.93);
 DAIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
 DAEA:=EMA(DAIF,9);
 MACDZ:=(DAIF-DAEA),COLORSTICK;
系数:=CONST(HHV(ABS(MACDZ),120));
自由度:=MACDZ*零轴/系数*0.08;
 RCC:零轴;
STICKLINE((RCC+自由度)>RCC AND (RCC+自由度)<=REF(RCC+自由度,1),RCC,RCC+自由度,2,1),COLORYELLOW;
 STICKLINE((RCC+自由度)>RCC AND (RCC+自由度)>REF(RCC+自由度,1),RCC,RCC+自由度,2,1),COLORRED;
 STICKLINE((RCC+自由度)<=RCC AND (RCC+自由度)<=REF(RCC+自由度,1),RCC,RCC+自由度,2,1),COLORCYAN;
 STICKLINE((RCC+自由度)<=RCC AND (RCC+自由度)>REF(RCC+自由度,1),RCC,RCC+自由度,2,1),COLORLICYAN;
 DRAWTEXT(ISLASTBAR,零轴,'---MACD'),COLORGREEN;
 DRAWKLINE(H,O,L,C);