1.通达信控盘程度指标公式源码副

通达信控盘程度指标公式源码副

       通达信控盘程度指标公式源码副图

       ZLCM:=EMA(WINNER(CLOSE)*,散兵式源维修招标源码3);

       { 主力筹码估算}

       SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*,3);

       { 散户筹码估算}

       ZSHTL:=SHCM/(ZLCM+SHCM)*;

       { 散户套牢筹码比率}

       ZZLKP:=ZLCM/(ZLCM+SHCM)*;

       { 主力控盘筹码比率}

       ZCMZL:=MA(ZLCM+SHCM,);

       { 市场筹码总量}

       ZZNTS:=BArslAST(ZSHTL);

       { 走牛天数}

       ZSHJJ:=EMA(ZSHTL,);

       { 散户警戒}

       ZZLJJ:=EMA(ZZLKP,);

       { 主力警戒}

       ZJLRQD:=INTPART(ZZLKP-ZZLJJ);

       { 资金流入强度}

       SH8:=EMA(ZSHTL,8);

       DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0);

       { 散户套牢筹码}

       STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,,3,0),COLORBBBB;

       STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,,2.5,0),COLORCCCC;

       STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,,2,0),COLORDDDD;

       STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,,1.5,0),COLOREEEE;

       STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,,1,0),COLORFFFF;

       STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,,0.5,0),COLORFFFF;

       { 筑底散兵坑}

       { 底部:(ZSHTL>=),COLORFFCC;}

       STICKLINE(ZSHTL>=,ZZLKP,0,3,0),COLORFF;

       STICKLINE(ZSHTL>=,ZZLKP,0,2.5,0),COLORFF;

       STICKLINE(ZSHTL>=,ZZLKP,0,2,0),COLORFF;

       STICKLINE(ZSHTL>=,ZZLKP,0,1.5,0),COLORFF;

       STICKLINE(ZSHTL>=,ZZLKP,0,1,0),COLORFF;

       STICKLINE(ZSHTL>=,ZZLKP,0,0.5,0),COLORFF;

       0;

       散户套牢:INTPART(ZSHTL),COLORGREEN;

       主力控盘:INTPART(ZZLKP),COLORRED;

       市场筹码总量:=INTPART(ZCMZL),COLORWHITE,NODRAW;

       轴:,COLORWHITE,DOTLINE,LINETHICK1;

       箱顶:=MA(REF(HHV(C,),1),2);

       DRAWTEXT(crOSS(主力控盘,轴) AND C>=箱顶,ZZLKP+5,'高度控盘'),COLORMAGENTA;