通达信隐藏均线主图指标副图+选股源码

　　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;

　　“低吸”的选股公式如下：

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

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

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

　　选股:CROSS(SJ,ZJ) AND SJ< 30;