变色的macd－精品通达信指标公式源码分享

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

VARB:=EXPMA(EXPMA(EXPMA(VARA,4),4),4);   

J: (VARB-REF(VARB,1))/REF(VARB,1)*1200, COLORSTICK;   

STICKLINE(J<0,0 ,J,0,0),COLORLIGREEN;   

VAR1:=EMA(EMA(CLOSE,9),9);   

控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;   

STICKLINE(控盘<0,控盘,0,1,0),COLORWHITE;   

A10:=CROSS(控盘,0);   

无庄控盘:IF(控盘<0,控盘,0),COLORWHITE,NODRAW;   

开始控盘:IF(A10,1,0),LINETHICK1,COLORYELLOW;   

STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,1,0),COLORRED;   

有庄控盘:IF(控盘>REF(控盘,1) AND 控盘>0,控盘,0),COLORRED,NODRAW;   

VAR2:=100*WINNER(CLOSE*0.95);   

STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,1,0),COLORFF00FF;   

高度控盘:IF(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0),COLORFF00FF,NODRAW;   

STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,1,0),COLOR00FF00;   

主力出货:IF(控盘<REF(控盘,1) AND 控盘>0,控盘,0),COLOR00FF00,NODRAW;   

D: MA(J,3),COLORGREEN,LINETHICK1;   

K: MA(J,1),COLORCYAN,LINETHICK1;   

IF(D>REF(D,1),D,DRAWNULL),COLORYELLOW,LINETHICK2;   

IF(J>REF(J,1),J,DRAWNULL),COLORRED,LINETHICK2;