通达信趋势大道主图指标公式源码主图[万物公式]

DE:=CONST(LLV(L,90));

JI:=CONST(HHV(H,90))-DE;

DE_K:=DE+JI/3*2;

JI_K:=JI/2;

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

DE_A:=CONST(LLV(RSV,90));

DD_A:=CONST(HHV(RSV,90))-DE_A;

R:=(RSV-DE_A)/DD_A;

RSV1:=R*JI_K+DE_K;

DE_M:=DE+JI/3;

JI_M:=JI/2;

kdL:=CONST(LLV(EMA(C,26),90));

KDH:=CONST(HHV(EMA(C,26),90))-KDL;

R_K1:=(EMA(C,12)-KDL)/KDH;

R_K2:=(EMA(C,26)-KDL)/KDH;

DIF~:(R_K1-R_K2)*JI*1.5+DE_M,NODRAW;

DEA~:EMA(DIF~,9),NODRAW;

macd~:=(DIF~-DEA~)*2+DE_M;

STICKLINE(MACD~>=DE_M,MACD~,DE_M,1,0),COLOR2F2F4F;

D_1:=MACD~>H AND H>=DE_M AND DE_M>=L;

D_2:=MACD~>H AND H>=L AND L>DE_M;

D_3:=H>MACD~ AND MACD~>=L AND L>DE_M;

D_4:=H>MACD~ AND MACD~>DE_M AND DE_M>=L;

STICKLINE(D_1>0,H,DE_M,1,0),COLOR2F2F4F;

STICKLINE(D_2,H,L,1,0),COLOR2F2F4F;

STICKLINE(D_3,MACD~,L,1,0),COLOR2F2F4F;

STICKLINE(D_4,MACD~,DE_M,1,0),COLOR2F2F4F;

D_5:=MACD~< L AND L<=DE_M AND DE_M<=H;

D_6:=MACD~< L AND H< DE_M;

D_7:=L< MACD~ AND MACD~<=H AND H< DE_M;

D_8:=L< MACD~ AND MACD~< DE_M AND DE_M<=H;

STICKLINE(MACD~< DE_M,DE_M,MACD~,1,0),COLOR2F2F4F;

STICKLINE(D_5,DE_M,L,1,0),COLOR2F2F4F;

STICKLINE(D_6,H,L,1,0),COLOR2F2F4F;

STICKLINE(D_7,H,MACD~,1,0),COLOR2F2F4F;

STICKLINE(D_8,DE_M,MACD~,1,0),COLOR2F2F4F;

HAN:=DATE< 1141230;

当前获利筹码:=IF(WINNER(CLOSE),WINNER(CLOSE)*100,0);

DRAWKLINE(H,O,L,C);

九十成本集中:=(COST(95)-COST(5))/(COST(95)+COST(5))*100;

成本价:COST(九十成本集中),LINETHICK2,POINTDOT,COLORFFFFFF;

入1:IF(成本价>REF(成本价,1),成本价,DRAWNULL),COLORFF00FF,POINTDOT,LINETHICK4;

出1:IF(成本价< REF(成本价,1),成本价,DRAWNULL),COLORFFFF00,POINTDOT,LINETHICK4;

STICKLINE(C>=O,H,L,0,0),COLOREAADEA;

STICKLINE(C>=O,C,O,3,0),COLOREAADEA;

STICKLINE(C< O,H,L,0,0),COLORFF0000;

STICKLINE(C< O,C,O,3,0),COLORFF0000;

STICKLINE(C>O,C,O,2.0,0),COLOR8C8C00;

STICKLINE(C>O,C,O,1.8,0),COLOR959500;

STICKLINE(C>O,C,O,1.6,0),COLOR9F9F00;

STICKLINE(C>O,C,O,1.3,0),COLORAAAA00;

STICKLINE(C>O,C,O,1.0,0),COLORB5B500;

STICKLINE(C>O,C,O,0.6,0),COLORBFBF00;

STICKLINE(C>O,C,O,0.3,0),COLORD0D000;

STICKLINE(C=O,C,O,0.1,0),COLOR8C8C00;

STICKLINE(C< O,C,O,2.0,0),COLOR8C8C00;

STICKLINE(C< O,C,O,1.8,0),COLOR959500;

STICKLINE(C< O,C,O,1.5,0),COLOR9F9F00;

STICKLINE(C< O,C,O,1.3,0),COLORAAAA00;

STICKLINE(C< O,C,O,1.0,0),COLORB5B500;

STICKLINE(C< O,C,O,0.6,0),COLORBFBF00;

STICKLINE(C< O,C,O,0.3,0),COLORD0D000;

STICKLINE(C=O,C,O,0.1,0),COLOR8C8C00;

均线7:MA(C,7),NODRAW;

均线13:MA(C,13),NODRAW;

STICKLINE((C>均线13),O,C,2,0),COLOR1313FF;

STICKLINE((C>均线13),O,C,1.6,0),COLOR2424FF;

STICKLINE((C>均线13),O,C,1.2,0),COLOR2D2DFF;

STICKLINE((C>均线13),O,C,0.8,0),COLOR4444FF;

STICKLINE((C>均线13),O,C,0.5,0),COLOR5757FF;

STICKLINE((C>均线13),O,C,0.3,0),COLOR6666FF;

STICKLINE((C>均线13),O,C,0.1,0),COLOR7D7DFF;

STICKLINE((C>均线7),O,C,0.3,0),COLOREBC79E;

B1:=EMA(C,3);

B2:=EMA(C,13);

B3:=B1-B2;

WDIF:EMA(EMA(EMA(C,3),3),3)+B3,COLORFFFFFF;

WDEA:EMA(WDIF,3),COLORFFF000;

重心:(2*C+H+L)/4,COLOR00FFFF,LINETHICK0;

SJ:=WMA((重心-LLV(L,5))/(HHV(H,5)-LLV(L,5))*100,2);

ZJ:=WMA(0.618*REF(SJ,1)+0.382*SJ,2);

DRAWTEXT(crOSS(SJ,ZJ) AND SJ< 30,L-0.1,←低吸),COLOR00FF00;

DRAWTEXT(CROSS(ZJ,SJ) AND SJ>70,H+0.1,←高抛),COLOR0077FF;