通达信资金强度黑马改进版及选股指标公式源码

通达信资金强度黑马改进版及选股指标公式源码

源码正文：

ZLCM:=ema(WINNER(CLOSE)*70,3){XG51};
SHCM:=Ema((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3){XG51};
ZSHTL:=SHCM/(ZLCM+SHCM)*100{XG51};
ZZLKP:=ZLCM/(ZLCM+SHCM)*100{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};
散户套牢系数:INTPART(ZSHTL),COLORBLUE{XG51};
主力控盘系数:INTPART(ZZLKP),COLORGREEN{XG51};
资金流入强度:ZJLRQD,LINETHICK2,COLORWHITE{XG51};
市场筹码总量:INTPART(ZCMZL),COLORRED,NODRAW{XG51};
K1:=LLV(LOW,5){XG51};
K2:=HHV(HIGH,5){XG51};
K3:=EMA((((C-K1)/(K2-K1))*100),4){XG51};
K5:=((HIGH+LOW)/2){XG51};
K6:=dma(K5,(vol/SUM(VOL,5))){XG51};
K7:=DMA(K5,(VOL/SUM(VOL,13))){XG51};
K8:=DMA(K5,(VOL/SUM(VOL,34))){XG51};
K9:=DMA(K5,(VOL/SUM(VOL,75))){XG51};
KA:=EMA(WINNER((0.9*C)),5){XG51};
KB:=(1-EMA(WINNER((1.2*C)),5)){XG51};
KC:=EMA(WINNER(CLOSE),5){XG51};
kdY:=((100*(C-K6))/K6){XG51};
KE:=((100*(C-K7))/K7){XG51};
KF:=((100*(MIN(C,O)-K8))/K8){XG51};
KG:=BARSLAST(((K8>K9) AND (REF(K8,1)<= REF(K9,1)))){XG51};
KH:=((((COUNT(((WINNER(CLOSE)<0.11) AND (EMA(WINNER(CLOSE),5)<0.15)),2)>0) OR (((1-WINNER((1.2*C))) >=0.8)
AND (WINNER(C)<0.05))) AND (COUNT((KE<(0-16)),2)>0)) AND (COUNT((KF<(0-20)),2)>0)){XG51};
K12:=((((COUNT((KDY<(0-10)),2)>0) AND (COUNT((KE<(0-15)),2)>0)) AND (COUNT((KF<(0-15)),2)>0)) AND (COUNT((KA>0.8),KG)=0)){XG51};
K13:=(((COUNT((KH OR K12),2)>0) AND (K3>REF(K3,1))) AND (((1-WINNER((1.15*CLOSE)))*100)>80)){XG51};
K14:=IF((K13 AND (COUNT(K13,3)<=1)),1,0){XG51};
ZVF:=100*(C-REF(C,1))/REF(C,1){XG51};
控盘:主力控盘系数>10 AND 资金流入强度>-10,COLOR0066FF{XG51};
高度控盘:crOSS(主力控盘系数,50),COLORCYAN{XG51};
XG:BARSSINCEN(K14,10) AND ZVF>3 AND 控盘,COLORLIMAGENTA{XG51};
DRAWTEXT(XG,50+10,'买入'),COLORLIMAGENTA{XG51};
STICKLINE(C>0,ZSHTL,ZZLKP,0,0),COLOREEEEEE{XG51};
STICKLINE(ZSHJJ>REF(ZSHJJ,1),ZSHTL,ZSHJJ,1,0),COLORAAAAAA{XG51};
STICKLINE(C>0,ZZLKP,0,0,0),COLORYELLOW{XG51};
STICKLINE(ZZLKP>75,ZZLKP,0,2,0),COLORFFFFFF{XG51};
STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,ZZLJJ,4,0),COLORWHITE{XG51};
STICKLINE(ZSHTL>=90,ZZLKP,0,5,0),COLOR66FFCC{X.G!5_1.C.N.{};