[通达信指标]量MACD附图公式

N:=1;

VCD2:=IF((H-MAX(C,O))>((MIN(C,O)-L)) AND C>L,((H+2*L)/3+3*C+2*O)/6,IF((H-MAX(C,O))<((MIN(C,O)-L)) AND C<H,((2*H+L)/3+3*C+2*O)/6,((H+L)/2+3*C+2*O)/6));

VCD3:=IF(PERIOD>=6 AND PERIOD<10,AMOUNT/(VOL*100),VCD2);

VCD4:=IF(SETCODE=0,VCD2,(VCD2+VCD3)/2);

VCD5:=AMOUNT/100000000;

VCD6:=(MA(VCD5,1)/HHV(VCD5,0)+MA(VCD5,1)/HHV(VCD5,IF(N=0,0,IF(N=1,738,IF(N=2,369,184)))))/2;

VCD7:=2;

S:=IF((H-MAX(C,O))>ABS(C-O)AND (MIN(C,O)-L)<ABS(C-O),(H*0.118+C*0.809+IF(H=C,C,VCD4)*0.073),(H*0.073+C*0.809+IF(H=C,C,VCD4)*0.118));

X:=IF((MIN(C,O)-L)>ABS(C-O)AND (H-MAX(C,O))<ABS(C-O),(L*0.118+C*0.809+IF(L=C,C,VCD4)*0.073),(L*0.073+C*0.809+IF(L=C,C,VCD4)*0.118));

VCD10:=IF(C>REF(C,1)AND H>REF(H,1)AND VCD4>REF(VCD4,1),S,IF(C<REF(C,1)AND L<REF(L,1)AND VCD4<REF(VCD4,1),X,C));

VCD11:=(0.809*C+0.191*VCD10);

VCD12:=SUM(IF(VCD11>REF(VCD11,1),VCD5,IF(VCD11<REF(VCD11,1),-VCD5,0)),180);

VCD13:=(WMA(VCD12,2)+WMA(VCD12,4)+WMA(VCD12,8))/3;

VCD14:=(WMA(VCD13,24)+WMA(VCD13,6)+WMA(VCD13,12))/3,COLORFAABEC;

VCD15:=(WMA(VCD14,24)+WMA(VCD14,6)+WMA(VCD14,12))/3;

VCD16:=(WMA(VCD15,24)+WMA(VCD15,6)+WMA(VCD15,12))/3;

VCD17:=(WMA(VCD16,24)+WMA(VCD16,6)+WMA(VCD16,12))/3;

VCD18:=((VCD13+VCD15)/2+VCD14)/2,LINETHICK2;

VCD19:=EMA(VCD18,13);

VCD20:=EMA(VCD18,34);

VCD21:=EMA(VCD18,55);

VCD22:=DMA(VCD18,VCD6/VCD7);

VCD23:=DMA(VCD18,VCD6/VCD7/VCD7);

VCD24:=DMA(VCD18,VCD6/VCD7/VCD7/VCD7);

VCD25:=DMA(VCD18,VCD6/VCD7/VCD7/VCD7/VCD7),COLORFAABEC,COLORRED,LINETHICK2;

VCD26:=DMA(VCD18,VCD6/VCD7/VCD7/VCD7/VCD7/VCD7),COLOR00BB00;

VCD27:(((VCD23-VCD25)/2+(VCD24-VCD25))/2+(((VCD13-VCD15)/2+VCD14-VCD15)/2+(VCD18-VCD19)+((VCD19-VCD21)/2+VCD20-VCD21)/2))/4,COLOR00CCCC;

VCD28:MA(VCD27,8),COLORGRAY;

DRAWBAND(VCD27,RGB(213,43,43),VCD28,RGB(14,1,254));

VCD29:((VCD23-VCD25+VCD22-VCD24)/2+(VCD13-VCD15+(VCD13-VCD17)/2+VCD14-VCD16)/3+VCD19-VCD21)/3,COLOR7F00FF,LINETHICK2;

VCD30:MA(VCD29,4),COLORCYAN;

VCD31:=2*(VCD29-VCD30);

VCD32:2*(VCD27-VCD28),COLORSTICK;

VCD33:(VCD31+VCD32)/2,COLORSTICK,COLORRED;

STICKLINE(VCD33>=0,0,VCD33,5,1),COLORRED;

STICKLINE(VCD33<0,0,VCD33,5,1),COLOR00BB00;

STICKLINE(VCD32>=0,0,VCD32,0,0),COLOR00CCCC;

STICKLINE(VCD32<0,0,VCD32,0,0),COLORCYAN;

VCD34:=REF(VCD33/2,BARSLAST(VCD33=HHV(VCD33,34))),COLOR0099FF,LINETHICK1;

VCD35:REF(VCD33/2,BARSLAST(VCD33=HHV(VCD33,72))),COLORWHITE,LINETHICK1;

VCD36:=REF(VCD33/2,BARSLAST(VCD33=LLV(VCD33,34))),COLORGRAY,LINETHICK2;

VCD37:=REF(VCD33/2,BARSLAST(VCD33=LLV(VCD33,144))),COLOR0099FF,LINETHICK2;

VCD38:=NOT(REF(VCD34,1)=REF(VCD35,1)) AND VCD34=VCD35;

DRAWTEXT(VCD33>VCD34,VCD37*2,’*’),COLORWHITE;

DRAWTEXT(VCD38,VCD35*4,’★’),COLORRED;

VCD39:=REF(HHV(VCD30,9),1),COLORFAABEC;

VCD40:=REF(LLV(VCD30,9),1),COLORAAAA00;

VCD41:=(((VCD29-VCD30)/ABS(VCD30)+(VCD27-VCD28)/ABS(VCD28)+((VCD29-VCD27)/ABS(VCD27)+(VCD30-VCD28)/ABS(VCD28))/2)/3)*10;

VCD42:=(((VCD29-VCD30)/ABS(VCD30)+(VCD29-VCD39)/ABS(VCD39)+(VCD30-VCD40)/ABS(VCD40))/3)*10;

VCD43:=(VCD41+VCD42)/2;

DRAWTEXT(CROSS(VCD41,0)AND VCD29>REF(VCD29,1),VCD27*0.8,’★’),COLORYELLOW;

DRAWTEXT(CROSS(VCD42,0)AND VCD29>REF(VCD29,1) AND VCD29>VCD27,VCD27*1.25,’★’),COLORWHITE;