经传主力状态通达信公式 副图 源码附图

ZLCM:=EMA(WINNER(CLOSE)*7,3);{主力筹码估算}

SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*8,3);{散户筹码估算}

ZSHTL:=SHCM/(ZLCM+SHCM)*10;{散户套牢筹码比率}

ZCMZL:=MA(ZLCM+SHCM,13);{市场筹码总量}

ZZNTS:=BARSLAST(ZSHTL<9 AND REF(ZSHTL,1)>9);{走牛天数}

ZSHJJ:=EMA(ZSHTL,89);

中线强势:IF(ZLCM/(ZLCM+SHCM)*20-4>0,2*(ZLCM/(ZLCM+SHCM)*20-4),0),COLORRED,LINETHICK2;{主力控盘筹码比率}

ZZLJJ:=EMA(中线强势,89);

ZJLRQD:=IF(INTPART(中线强势-ZZLJJ)>0,INTPART(中线强势-ZZLJJ)-1,0),COLORBLUE,LINETHICK2;{资金流入强度}

短线强势:IF(ZJLRQD>0 AND C>REF(C,1),ZJLRQD*1.5,0),LINETHICK3,COLORMAGENTA;

SH8:=EMA(ZSHTL,8);

DKB:=IF(中线强势-REF(中线强势,1)>ZSHTL-REF(ZSHTL,1),1,0);

{主力控盘筹码}

STICKLINE(C>0,中线强势,0,1.5,0),COLORRED;

{筑底散兵坑}

STICKLINE(ZSHTL>=90,中线强势,0,1.5,0),COLOR66FFCC;

{------【数值显示】}

散户套牢系数:=INTPART(ZSHTL),COLORCYAN,LINETHICK2;

中线控盘:INTPART(中线强势)/5,COLORYELLOW,LINETHICK2;

短线超跌:IF(-ZJLRQD>0,ZJLRQD,0),LINETHICK2,COLORBLUE;

STICKLINE(短线超跌,ZJLRQD,0,1.5,0),COLORBLUE;

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

STICKLINE(短线强势,ZJLRQD*1.5,0,1.5,0),COLORMAGENTA;

STICKLINE(中线控盘,中线控盘,0,1.5,0),COLORYELLOW;

 

原理解析：
ZLCM赋值:EMA(收盘价计算的获利盘比例*7,3)
{主力筹码估算}
SHCM赋值:EMA((收盘价*1.1计算的获利盘比例-WINNER(收盘价*0.9))*8,3)
{散户筹码估算}
ZSHTL赋值:SHCM/(ZLCM+SHCM)*10
{散户套牢筹码比率}
ZCMZL赋值:ZLCM+SHCM的13日简单移动平均
{市场筹码总量}
ZZNTS赋值:上次ZSHTL9距今天数
{走牛天数}
ZSHJJ赋值:ZSHTL的89日指数移动平均
输出中线强势:IF(ZLCM/(ZLCM+SHCM)*20-4>0,2*(ZLCM/(ZLCM+SHCM)*20-4),0),画红色, 线宽为2
{主力控盘筹码比率}
ZZLJJ赋值:中线强势的89日指数移动平均
ZJLRQD赋值:IF(INTPART(中线强势-ZZLJJ)>0,INTPART(中线强势-ZZLJJ)-1,0), 画蓝色, 线宽为2
输出{资金流入强度}
短线强势:IF(ZJLRQD>0 AND C>1日前的C,ZJLRQD*1.5,0), 线宽为3,画洋红色
SH8赋值:ZSHTL的8日指数移动平均
DKB赋值:IF(中线强势-1日前的中线强势>ZSHTL-1日前的ZSHTL,1,0)
当满足条件C>0时,在中线强势和0之间画柱状线
当满足条件ZSHTL>=90时,在中线强势和0之间画柱状线
{------【数值显示】}
散户套牢系数赋值:INTPART(ZSHTL),画青色, 线宽为2
输出中线控盘:INTPART(中线强势)/5,画黄色, 线宽为2
如果-ZJLRQD>0返回ZJLRQD否则返回0
当满足条件短线超跌时,在ZJLRQD和0之间画柱状线
市场筹码总量赋值:INTPART(ZCMZL),画白色,LINETHICK0
当满足条件短线强势时,在ZJLRQD*1.5和0之间画柱状线
当满足条件中线控盘时,在中线控盘和0之间画柱状线