通达信主图真实地显示MACD副图 说明 源码

主图真实地显示MACD（副图 说明 源码 贴图）
 可调参数来平移，以免挡住K线, 将MACD显示在主图上而又没有将主图压缩.........................
 

DIFZ:=EMA(C,12)-EMA(C,26);
 DEAZ:=EMA(DIFZ,9);
 MACDZ:=8*(DIFZ-DEAZ);
 NN:=60;
 A01:=REF(HIGH,NN)=HHV(HIGH,2*NN+1); B01:=FILTER(A01,NN);
C01:=BACKSET(B01,NN+1); D01:=FILTER(C01,NN);
 A02:=REF(LOW,NN)=LLV(LOW,2*NN+1); B02:=FILTER(A02,NN);
C02:=BACKSET(B02,NN+1); D02:=FILTER(C02,NN);
 E01:=(REF(LLV(LOW,2*NN),1)+REF(HHV(HIGH,2*NN),1))/2; E02:=(HIGH+LOW)/2;
 H01:=(D01 AND NOT(D02 AND E01>=E02)) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
 L01:=(D02 AND NOT(D01 AND E01<E02));
X01:=REF(BARSLAST(H01),1)+1; F01:=BACKSET(H01 AND COUNT(L01,X01)>0,LLVBARS(IF(L01,LOW,10000),X01));
 G01:=F01>REF(F01,1); I01:=BACKSET(G01,2); LD:=I01>REF(I01,1);
 WW:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);
 QQ:=WW>REF(WW,1);
 RCC:REF(L,BARSLAST(QQ));
 DRAWBAND(MACDZ+RCC,RGB(70,20,20),RCC,RGB(100,100,100));
 DRAWBAND(DIFZ*4+RCC,RGB(255,140,140),EMA(DIFZ*4+RCC,9),RGB(147,234,249));
 STICKLINE((RCC+MACDZ)>RCC AND (RCC+MACDZ)<=REF(RCC+MACDZ,1),RCC,RCC+MACDZ,0,0),COLOR400080;
 STICKLINE((RCC+MACDZ)>RCC AND (RCC+MACDZ)>REF(RCC+MACDZ,1),RCC,RCC+MACDZ,0,0),COLOR00FFFF;
 STICKLINE((RCC+MACDZ)<=RCC AND (RCC+MACDZ)<=REF(RCC+MACDZ,1),RCC,RCC+MACDZ,0,0),COLOR008080;
 STICKLINE((RCC+MACDZ)<=RCC AND (RCC+MACDZ)>REF(RCC+MACDZ,1),RCC,RCC+MACDZ,0,0),COLORC080FF;
 MA1:MA(CLOSE,M1);
 MA2:MA(CLOSE,M2);
 MA3:MA(CLOSE,M3);
 MA4:MA(CLOSE,M4);