通达信去WINNER化庄家控盘选股指标公式源码

通达信去WINNER化庄家控盘选股指标公式源码

源码正文：

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};
{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;
出:IF(控盘程度<REF(控盘程度,1),5,DRAWNULL),CIRCLEDOT,COLORFF9900;
持币:IF(SAR(10,2,20)>=H,100,DRAWNULL),CIRCLEDOT,COLORYELLOW;
持股:IF(SAR(10,2,20)<=L,100,DRAWNULL),CIRCLEDOT,COLORWHITE{X!G!5=1!C!N!{};