通达信主力进出增强版选股指标公式源码

通达信主力进出增强版选股指标公式源码

源码正文：

ZLCM:=ema(WINNER(CLOSE)*70,3){XG51};
SHCM:=Ema((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3){XG51};
ZSHTL:=SHCM/(ZLCM+SHCM)*200{XG51};
ZZLKP:=ZLCM/(ZLCM+SHCM)*200{XG51};
ZCMZL:=MA(ZLCM+SHCM,13){XG51};
ZZNTS:=BArslAst(ZSHTL<90 AND REF(ZSHTL,1)>90){XG51};
ZSHJJ:=EMA(ZSHTL,89){XG51};
ZZLJJ:=EMA(ZZLKP,89){XG51};
ZJLRQD:=INTPART(ZZLKP-ZZLJJ){XG51};
SH8:=EMA(ZSHTL,8){XG51};
DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0){XG51};
散户套牢线1:=INTPART(ZSHTL),COLORFFEEBB,LINETHICK2{XG51};
主力控盘线1:=INTPART(ZZLKP),COLOR4D4DFF,LINETHICK2{XG51};
DRAWBAND(主力控盘线1,RGB(0,255,255),散户套牢线1,RGB(50,50,50)){XG51};
STICKLINE(((主力控盘线1>REF(主力控盘线1,1)) AND (主力控盘线1>100)),主力控盘线1,散户套牢线1,2,0),COLOR8000FF{XG51};
散:INTPART(ZSHTL),COLORFFEEBB,LINETHICK2{XG51};
主力:INTPART(ZZLKP),COLOR4D4DFF,LINETHICK2{XG51};
B1:=(HHV(H,35)-C)/(HHV(H,35)-LLV(LOW,35))*100-35{XG51};
B2:=SMA(B1,35,1)+100{XG51};
B3:=(C-LLV(L,35))/(HHV(H,35)-LLV(L,35))*100{XG51};
B4:=SMA(B3,3,1){XG51};
B5:=SMA(B4,3,1)+100{XG51};
B6:=B5-B2{XG51};
控盘程度:(IF(B6>1,B6-1,0))*2.5,COLORWHITE,LINETHICK2{XG51};
控盘度:100,COLORRED{XG51};
控盘上:IF(控盘程度>REF(控盘程度,1), 控盘程度,DRAWNULL),
STICK,COLORBLUE,LINETHICK1{XG51};
控盘下:IF(控盘程度<REF(控盘程度,1), 控盘程度,DRAWNULL),
STICK,COLORFF9900,LINETHICK1{XG51};
进:IF(控盘程度>REF(控盘程度,1),5,DRAWNULL),CIRCLEDOT,COLORBLUE{XG51};
出:IF(控盘程度<REF(控盘程度,1),5,DRAWNULL),CIRCLEDOT,COLORFF9900{XG51};
V1:=(C*2+H+L)/4*10{XG51};
V2:=EMA(V1,13)-EMA(V1,34){XG51};
V3:=EMA(V2,5){XG51};
V4:=2*(V2-V3)*20{XG51};
超大主力吃:IF(V4>=0,V4,0)+100,COLOR7F00FF,LINETHICK3{XG51};
超大主力吐:IF(V4<=0,V4,0)+100,COLOR66FF00,LINETHICK2{XG51};
持币:IF(SAR(10,2,20)>=H,100,DRAWNULL),CIRCLEDOT,COLORYELLOW{XG51};
持股:IF(SAR(10,2,20)<=L,100,DRAWNULL),CIRCLEDOT,COLORWHITE;

{X~G~5=1~C~N~{}