变色macd指标公式(自编变色macd指标)

通达信指标公式源码概况：

指标类别： 通达信指标公式

授权方式： 免费版

指标评级： ★★★★★

指标分类： 策略

画线方法： 副图

一、变色macd指标公式

{BBD动能操盘}  

AL:=(C+L+H)/3;  

AO:=SMA(AL,5,1)-SMA(AL,13,1);  

BBD:(AO-SMA(AO,3,1))*100,COLORFFCCFF,NODRAW;  

{动能线定义}  

动能线:AO*10,COLORRED;  

动能辅线:EMA(AO,5)*10,COLOR00FF00;  

{动能线强弱分界带}  

DRAWBAND(动能辅线,RGB(115,95,95),0,RGB(95,95,115));  

{动能彩带}  

DRAWBAND(动能线,RGB(175,0,55),动能辅线,RGB(55,175,0));  

{BBD支撑线定义}  

BBD支撑线:SMA(BBD,5,2),COLOR0033FF,LINETHICK2;  

RSV1:=BBD;  

RSV2:=BBD支撑线;  

弱:IF(BACKSET(RSV2<REF(RSV2,1),1),RSV2,DRAWNULL),LINETHICK2,COLORFF3300;  

{BBD彩色柱体}  

{BBD1:=IF(BBD>=REF(BBD,1),BBD,DRAWNULL);  

BBD2:=IF(BBD<REF(BBD,1),BBD,DRAWNULL);  

STICKLINE(BBD1,0,BBD,1.5,0),COLOR885588;  

STICKLINE(BBD1,0,BBD,1,0),COLORAA77AA;  

STICKLINE(BBD1,0,BBD,0.5,0),COLORBB99BB;  

STICKLINE(BBD1,0,BBD,0.1,0),COLORDDAADD;  

STICKLINE(BBD2,0,BBD,1.5,0),COLOR757500;  

STICKLINE(BBD2,0,BBD,1,0),COLORAAAA00;  

STICKLINE(BBD2,0,BBD,0.5,0),COLORBBBB00;  

STICKLINE(BBD2,0,BBD,0.1,0),COLORDDDD00;}  

{BBD支撑线金叉死叉顶底背离}  

BBD金叉:IF(CROSS(RSV1,RSV2),RSV2,DRAWNULL),CIRCLEDOT,COLORFF33FF;  

BBD死叉:IF(CROSS(RSV2,RSV1),RSV2,DRAWNULL),CIRCLEDOT,COLORFFFF00;  

SV1:=BARSLAST(REF(CROSS(RSV1,RSV2),1));  

SV1A:=REF(CLOSE,SV1+1)>CLOSEANDRSV1>REF(RSV1,SV1+1)AND  

CROSS(RSV1,RSV2);  

B底背:IF(SV1A,RSV2,DRAWNULL),COLOR3366FF;  

DRAWTEXT(SV1A,RSV2,'─B底背'),COLOR0033FF;  

SV2:=BARSLAST(REF(CROSS(RSV2,RSV1),1));  

SV2A:=REF(CLOSE,SV2+1)<CLOSEANDREF(RSV1,SV2+1)>RSV1ANDCROSS(RSV2,RSV1);  

B顶背:IF(SV2A,RSV2,DRAWNULL),COLORFFFF00;  

DRAWTEXT(SV2A,RSV2,'─B顶背'),COLORFFFF00;  

{动能线金叉死叉顶底背离}  

RSV3:=动能线;  

RSV4:=动能辅线;  

动能金叉:IF(CROSS(RSV3,RSV4),RSV3,DRAWNULL),CIRCLEDOT,COLOR0000FF;  

动能死叉:IF(CROSS(RSV4,RSV3),RSV3,DRAWNULL),CIRCLEDOT,COLOR00FF00;  

SV3:=BARSLAST(REF(CROSS(RSV3,RSV4),1));  

SV3A:=REF(CLOSE,SV3+1)>CLOSEANDRSV3>REF(RSV3,SV3+1)AND  

CROSS(RSV3,RSV4);  

动底背:IF(SV3A,RSV3,DRAWNULL),COLOR0000FF;  

DRAWTEXT(SV3A,RSV3,'─动底背'),COLOR0000FF;  

SV4:=BARSLAST(REF(CROSS(RSV4,RSV3),1));  

SV4A:=REF(CLOSE,SV4+1)<CLOSEANDREF(RSV3,SV4+1)>RSV3ANDCROSS(RSV4,RSV3);  

动顶背:IF(SV4A,RSV3,DRAWNULL),COLOR00FF00;  

DRAWTEXT(SV4A,RSV3,'─动顶背'),COLOR00FF00;  

市场成本:DMA(AMOUNT/V/100,V/CAPITAL),COLORRED,LINETHICK2;  

上升:IF(市场成本>REF(市场成本,1),市场成本,DRAWNULL),COLORRED,LINETHICK3;  

下降:IF(市场成本<REF(市场成本,1),市场成本,DRAWNULL),COLORLIBLUE,LINETHICK2;  

DRAWICON(CROSS(C,市场成本)AND市场成本>REF(市场成本,1),L-0.20,1);{1号图标显示红脸}  

DRAWICON(CROSS(市场成本,C),H+0.20,2);  

{PARTLINE(市场成本,市场成本>REF(市场成本,1),RGB(255,0,0),NOT(市场成本<REF(市场成本,1)),RGB(0,0,255),1,RGB(0,0,255)),LINETHICK2;}  

MA13:MA(C,13),COLORWHITE;  

MA34:MA(C,34),COLORYELLOW;  

DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);  

DEA:=EMA(DIFF,9);  

A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));  

B1:=REF(C,A1+1)>CANDREF(DIFF,A1+1)<DIFFANDCROSS(DIFF,DEA);  

A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));  

B2:=REF(C,A2+1)>CANDREF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3)ANDCROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));  

A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));  

B3:=REF(C,A3+1)>CANDREF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24)ANDCROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));  

DRAWICON(B1>0,L-0.20,5);  

DRAWTEXT(B1,L-0.30,'MACD底背'),COLORWHITE;  

DRAWICON(B2>0,L-0.20,4);  

DRAWTEXT(B2,L-0.30,'KDJ底背'),COLORFF00FF;  

DRAWICON(B3>0,L-0.20,3);  

DRAWTEXT(B3,L-0.30,'RSI底背'),COLORYELLOW;  

DRAWICON(CROSS(DIFF,DEA)ANDCROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),L-0.20,6);  

DRAWTEXT(CROSS(DIFF,DEA)ANDCROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),L-0.30,'金叉共振'),COLOR0099FF;  

吸筹线1:=COST(50)*COST(50)/COST(80);  

吸筹线2:=COST(40)*COST(40)/COST(60);  

差:吸筹线2-吸筹线1,NODRAW;  

STICKLINE(差>0ANDC>吸筹线2,0,差,2,0),COLORRED;  

STICKLINE(差>0ANDC>吸筹线2ANDC<MA(C,10),0,差*0.2,2,0),COLORYELLOW;  

STICKLINE(差>0ANDC<吸筹线2,0,差,2,0),COLORCYAN;  

STICKLINE(差>0ANDC<吸筹线2ANDC<吸筹线1,0,差*0.5,2,0),COLORBLUE;  

STICKLINE(差>0ANDC<吸筹线2ANDC<吸筹线1,差*0.5,差,2,0),COLORYELLOW;  

STICKLINE(差<0,0,差,2,0),COLORCYAN;  

STICKLINE(差<0ANDC>吸筹线1,0,差,2,0),COLORMAGENTA;  

STICKLINE(差<0ANDC>吸筹线1ANDC<MA(C,5),0,差*0.2,2,0),COLORYELLOW;

二、自编变色macd指标

N:=9;N1:=9;M1:=3;M2:=3;  

RSV:=(CLOSE-LLV(LOW,N1))/(HHV(HIGH,N1)-LLV(LOW,N1))*100;  

K:SMA(RSV,M1,1),LINETHICK2;  

D:SMA(K,M2,1),LINETHICK2;  

J:3*K-2*D,LINETHICK2;  

WR1:100*(HHV(HIGH,N)-CLOSE)/(HHV(HIGH,N)-LLV(LOW,N)),LINETHICK2;  

50,DOTLINE;  

DIFL:=EMA(V,12)-EMA(V,26);  

DIF:=EMA(C,12)-EMA(C,26);  

LOWV:=LLV(LOW,10);  

HIGHV:=HHV(HIGH,10);  

RSV:=EMA((CLOSE-LOWV)/(HIGHV-LOWV)*100,3);  

K:=EMA(RSV,3);  

D:=MA(K,3);  

底:DIFL>REF(DIFL,1)ANDDIF<REF(DIF,1)ANDK<20,COLORRED,LINETHICK2;  

顶:DIFL<REF(DIFL,1)ANDDIF>REF(DIF,1)ANDK>80,COLORGREEN,LINETHICK2;  

DRAWGBK(C=C,COLORRGB(130,130,130),COLORRGB(30,30,30),1);  

BIAS1:=(CLOSE-MA(CLOSE,5))/MA(CLOSE,5)*100;  

BIAS2:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;  

BIAS3:=(CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*100;  

BIASAA:=(BIAS1+BIAS2+BIAS3)/3;  

dif:=(ema(BIASAA,5)-ema(BIASAA,34));  

de:=ema(dif,9);  

macd:3*(dif-de);  

//////////////  

{红柱}  

STICKLINE(macd>0andmacd>ref(macd,1),macd,0,3,0),COLOR0000AA;  

STICKLINE(macd>0andmacd>ref(macd,1),macd,0,2.7,0),COLOR0000BB;  

STICKLINE(macd>0andmacd>ref(macd,1),macd,0,2.3,0),COLOR0000CC;  

STICKLINE(macd>0andmacd>ref(macd,1),macd,0,2,0),COLOR0000CC;  

STICKLINE(macd>0andmacd>ref(macd,1),macd,0,1.6,0),COLOR0000DD;  

STICKLINE(macd>0andmacd>ref(macd,1),macd,0,1.2,0),COLOR0000EE;  

STICKLINE(macd>0andmacd>ref(macd,1),macd,0,0.8,0),COLOR0000FF;  

STICKLINE(macd>0andmacd>ref(macd,1),macd,0,0.5,0),COLORRED;  

{黄柱}  

STICKLINE(macd>0andmacd<ref(macd,1),macd,0,3,0),color0090FF;  

STICKLINE(macd>0andmacd<ref(macd,1),macd,0,2.7,0),color009FFF;  

STICKLINE(macd>0andmacd<ref(macd,1),macd,0,2.3,0),color00a6FF;  

STICKLINE(macd>0andmacd<ref(macd,1),macd,0,2,0),color00b5FF;  

STICKLINE(macd>0andmacd<ref(macd,1),macd,0,1.6,0),color00c4FF;;  

STICKLINE(macd>0andmacd<ref(macd,1),macd,0,1.2,0),Color00d3ff;  

STICKLINE(macd>0andmacd<ref(macd,1),macd,0,0.8,0),color00e2FF;  

STICKLINE(macd>0andmacd<ref(macd,1),macd,0,0.5,0),color00FFFF;  

{蓝柱}  

STICKLINE(macd<0andmacd<ref(macd,1),macd,0,3,0),COLORFF0000;  

STICKLINE(macd<0andmacd<ref(macd,1),macd,0,2.7,0),COLORFF3300;  

STICKLINE(macd<0andmacd<ref(macd,1),macd,0,2.3,0),COLORFF5500;  

STICKLINE(macd<0andmacd<ref(macd,1),macd,0,2,0),COLORFF7700;  

STICKLINE(macd<0andmacd<ref(macd,1),macd,0,1.6,0),COLORFF9900;  

STICKLINE(macd<0andmacd<ref(macd,1),macd,0,1.2,0),COLORFFBB00;  

STICKLINE(macd<0andmacd<ref(macd,1),macd,0,0.8,0),COLORFFDD00;  

STICKLINE(macd<0andmacd<ref(macd,1),macd,0,0.5,0),COLORFFFF00;  

{粉柱}  

STICKLINE(macd<0andmacd>ref(macd,1),macd,0,3,0),ColorFF00a9;  

STICKLINE(macd<0andmacd>ref(macd,1),macd,0,2.7,0),ColorFF00a1;  

STICKLINE(macd<0andmacd>ref(macd,1),macd,0,2.3,0),ColorFF00aa;  

STICKLINE(macd<0andmacd>ref(macd,1),macd,0,2,0),ColorFF00bb;  

STICKLINE(macd<0andmacd>ref(macd,1),macd,0,1.6,0),ColorFF00cc;  

STICKLINE(macd<0andmacd>ref(macd,1),macd,0,1.2,0),ColorFF00dd;  

STICKLINE(macd<0andmacd>ref(macd,1),macd,0,0.8,0),ColorFF00ee;  

STICKLINE(macd<0andmacd>ref(macd,1),macd,0,0.5,0),ColorFF00ff;  

/////////  

b5:=sMA(BIAS1,2,1),COLORGREEN,LINETHICK1,LINEDOT;  

b13:=sma(BIAS2,2,1),LINETHICK0,COLORRED;  

b34:=sMA(BIAS3,5,1),COLORWHITE,LINETHICK1;  

m13_5:ema(b13,5),COLORWHITE,LINETHICK1;  

m13_10:ema(b13,10),COLORCYAN,LINETHICK1;  

m34_5:=ema(b34,5),COLORGREEN,,LINEDOT;  

m34_10:=ema(b34,10),COLORMAGENTA,LINEDOT;  

PARTLINE(B13>REF(B13,1),B13),COLORRED,LINETHICK3;  

PARTLINE(B13<REF(B13,1),B13),ColorFF0F80,LINETHICK3;  

cysm13:b13,LINETHICK0,COLORBROWN;  

主力:m34_5,COLORGREEN,,LINEDOT;  

游资:m34_10,COLORMAGENTA,LINEDOT;  

DRAWICON(CROSS(b13,m13_5),m13_5,12),ALIGN;  

DRAWICON(CROSS(m13_5,b13),m13_5,11),ALIGN;  

DRAWICON(cross(m13_5,m13_10)andb13>ref(b13,1),0,3),ALIGN;  

DRAWICON(cross(m34_5,m13_10)andb13>ref(b13,1),0,1),ALIGN;  

VERTLINE(cross(主力,游资)),LINEDOT,COLORRED;  

AAA:=REF(CLOSE,1);  

BBB:=SMA(MAX(CLOSE-AAA,0),5,1)/SMA(ABS(CLOSE-AAA),5,1)*1000;  

HHH:=BBB-LLV(BBB,10);  

SS:=(MA(HHH,2)*3+HHH*13)/16;  

短线买点:=IF(SS>13,MA(SS,2),SS)/6;  

短线出击:IF(CROSS(短线买点,1)AND(短线买点<30),10,0),COLORWHITE,LINETHICK2;  

持仓:IF(CLOSE>=SAR(4,2,20),SAR(4,2,20),  

DRAWNULL),CIRCLEDOT,COLORRED;  

空仓:IF(CLOSE<=SAR(4,2,20),SAR(4,2,20),  

DRAWNULL),CIRCLEDOT,COLORGREEN;  

获利%:WINNER(CLOSE)*100,NODRAW,COLORWHITE;  

V1:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);  

V2:=(1-7/100)*(DMA(CLOSE,V1));  

V3:=(1+7/100)*(DMA(CLOSE,V1));  

V5:=MA((LOW+HIGH+CLOSE)/3,5);  

支撑:REFDATE(V2,DATE),POINTDOT,LINETHICK4,COLORCC66FF;  

阻力:REFDATE(V3,DATE),POINTDOT,LINETHICK4,COLORFF0033;  

DRAWKLINE(H,O,L,C);  

涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),1,0);  

STICKLINE(涨停,OPEN,CLOSE,2,0),COLORMAGENTA;  

STICKLINE(涨停,H,L,0,0),COLORMAGENTA;  

跌停:=IF((REF(C,1)-C)*100/REF(C,1)>=(10-0.01*100/REF(C,1)),1,0);  

STICKLINE(跌停,OPEN,CLOSE,2,0),COLORBLUE;  

STICKLINE(跌停,H,L,0,1),COLORBLUE;

[源码注释]通达信公式动态翻译结果

N赋值:60

K1赋值:如果收盘价>=1日前的收盘价,返回最高价-开盘价+收盘价-最低价+收盘价-1日前的收盘价,否则返回最高价-开盘价+收盘价-最低价

K2赋值:如果收盘价<=1日前的收盘价,返回开盘价-最低价+最高价-收盘价+1日前的收盘价-收盘价,否则返回开盘价-最低价+最高价-收盘价

DT赋值:成交量(手)*K1/(K1+K2)

KT赋值:成交量(手)-DT

输出买量:DT的N日累和,画红色

输出卖量:KT的N日累和,画青色

推荐阅读：macd变红公式

DC:=(2*C+H+L+O)/5;

EMDC:=EMA(EMA(EMA(DC,4),4),4);

BB:=(EMDC-REF(EMDC,1))/REF(EMDC,1)*100,;

BA:=MA(BB,6);

私募资金:(BB-BA)*100,NODRAW,COLORRED;

DRAWBAND(私募资金,RGB(255,1,0),0,RGB(51,255,255));

OBV:=MA(SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0))/25000,0),1);

OBVE:=EMA(OBV,3);

DIFF : EMA(OBVE,12) - EMA(OBVE,26),LINETHICK2;

BBDIFF:=DIFF-REF(DIFF,1);

DEA  : EMA(DIFF,9),LINETHICK2;

BBDEA:=DEA-REF(DEA,1);

MACD : 2*(DIFF-DEA), COLORSTICK;

STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2.5,0),COLORGREEN;

STICKLINE(MACD<REF(MACD,1)AND MACD<0,0,MACD,3,1),COLORFFCC33;

STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,3,1),COLOR0099FF;

STICKLINE(MACD>REF(MACD,1)AND MACD>0,0,MACD,3,1),COLORYELLOW;

IF(BBDEA>0,DEA,DRAWNULL),COLOR9966CC,LINETHICK2;

IF(BBDEA<0,DEA,DRAWNULL),COLOR00FF33,LINETHICK2;

IF(BBDIFF>0,DIFF,DRAWNULL),COLORRED,LINETHICK2;

IF(BBDIFF<0,DIFF,DRAWNULL),COLORCYAN,LINETHICK2;

VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);

OBV:SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0),COLORWHITE;

MAOBV:=MA(OBV,30);

零点:(CONST(LLV(OBV,90))+CONST(HHV(OBV,90)))/2,CIRCLEDOT,COLORWHITE;

DI:=EMA(CLOSE,12)-EMA(CLOSE,26);

F分:=CONST(LLV(DI,90));

F百:=CONST(HHV(DI,90))-F分;

点:=CONST(LLV(OBV,90));

基:=CONST(HHV(OBV,90))-点;

F比:=(DI-F分)/F百;

XFX:=F比*基+点;

DIF:=XFX,LINETHICK2;

DEA:=EMA(DIF,9),LINETHICK2;

MACD:(DIF-DEA)*2+零点;

STICKLINE(MACD>零点,零点,MACD,0,0),COLORRED;

STICKLINE(MACD<零点,零点,MACD,0,0),COLORCYAN;

MAV:=MA(VOL,30);

DRAWICON(VOL>MA(VOL,30)*3 AND CLOSE>REF(CLOSE,1),零点,1);

DRAWICON(VOL>MA(VOL,30)*3 AND CLOSE>REF(CLOSE,1) AND REF(VOL,1)>MA(VOL,30)*3,零点+10,11);

主力:= 3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1), ,LINETHICK2, ;

底部信号:10, ,LINETHICK2,colorred ;

个股参考: IF(CROSS(主力,底部信号),20,10), ,LINETHICK2,coloryellow;

DRAWTEXT(个股参考=20,21,'←买'),colorwhite;

V1:=(C*2+H+L)/4*10;

V2:=EMA(V1,13)-EMA(V1,34);

V3:=EMA(V2,5);

V4:=2*(V2-V3)*5.5;

V5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;

V6:=EMA(3*V5-2*SMA(V5,18,1),5);

V7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10;

V8:=(INDEXC*2+INDEXH+INDEXL)/4;

V9:=EMA(V8,13)-EMA(V8,34);

VA:=EMA(V9,3); VB:=(V9-VA)/2;

V11:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);

庄家撤: IF(V4<=0,V4,0),colorgreen;

庄家进: IF(V4>=0,V4,0),colorred;

每日公式解答：

股票公式编写要求：  

MACD前1-3天小绿柱后2次翻红的选股公式。  

股票公式编写结果：  

MACD:=MACD.MACD;  

T:=BARSLAST(CROSS(0,MACD));  

XG:COUNT(CROSS(MACD,0),T)=1ANDT<=3;