通达信双布林MACD主图选股指标公式源码

通达信双布林MACD主图选股指标公式源码

源码正文：

N:=20;M:=50{XG51};
DP:=(H+L+2*C)/4{XG51};
MID:= ma(DP,N){XG51};
２０中轨:MID,COLORRED,POINTDOT,LINETHICK2{XG51};
DRAWBAND(MID,RGB(225,0,0),REF(MID,2),RGB(00,255,00)){XG51};
２０上轨:MID +1.96*STD(DP,N),COLORBLUE{XG51};
２０下轨:MID-1.96*STD(DP,N),COLORFF0000{XG51};
M2:=MA(DP,M){XG51};
５０中轨:IF(M2>=REF(M2,1),M2,DRAWNULL),COLORFF00FF,CIRCLEDOT{XG51};
IF(M2<REF(M2,1),M2,DRAWNULL),COLORFFB560,POINTDOT,LINETHICK4{XG51};
５０上轨:M2+2.1*STD(DP,M),LINETHICK2,COLORWHITE{XG51};
５０下轨:M2-2.1* STD(DP,M),LINETHICK2,COLOR00FF00{XG51};
ZDF:=(C-REF(C,1))/REF(C,1)*100{XG51};
STICKLINE(ZDF>9.8,O,C,3,0),COLORWHITE{XG51};
STICKLINE(ZDF<-9.8,O,C,3,0),COLORYELLOW{XG51};
dif:=ema(DP,12){XG51};
DEA:=EMA(DP,26){XG51};
macd:=(DIF-DEA){XG51};
XH:=EMA(MacD,9){XG51};
AC:=2*(MACD-XH){XG51};
ao1:=REF(MACD,1){XG51};
AC1:=REF(AC,1){XG51};
KK:=IF(AC>AC1 AND MACD>AO1,5,IF(AC<AC1 AND MACD<AO1,-5,0)){XG51};
STICKLINE(KK=5,H,L,0.1,0),COLORWHITE{XG51};
STICKLINE(KK=5 AND C>O,C,O,4,1),COLORWHITE{XG51};
STICKLINE(KK=5 AND C<O,C,O,4,0),COLORWHITE{XG51};
STICKLINE(KK=0,H,L,0.1,0),COLORFFFF00{XG51};
STICKLINE(KK=0 AND C<O,C,O,4,0),COLORFFFF00{XG51};
STICKLINE(KK=0 AND C>O,C,O,4,1),COLORFFFF00{XG51};
STICKLINE(KK=-5,H,L,0.1,0),,COLORFF0000{XG51};
STICKLINE(KK=-5 AND C>O,C,O,4,1),COLORFF0000{XG51};
STICKLINE(KK=-5 AND C<O,C,O,4,0),COLORFF0000{XG51};
DRAWTEXT_FIX(1,0.5,0,0,'红色K线为多头区域'),COLORWHITE{XG51};
DRAWTEXT_FIX(1,0.5,0.04,0,'青色K线为混沌区域'),COLORFFFF00{XG51};
DRAWTEXT_FIX(1,0.5,0.08,0,'蓝色K线为空头区域'),COLORFF0000{XG51};
DRAWTEXT_FIX(1,0.5,0.12,0,'红色建仓,青色减仓！'),COLORFF00FF{X-G_5~1-C-N-{};