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
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
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
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
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;{九毛八公式指标网www.9m8.cn}
当前获利筹码:=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;
