老指标,新花样:主力筹码

 

这个指标是个老指标了,用来看趋势还是不错的,看过很多老师对它进行过修改的版本.我也花了点时间对它进行画跎添足,发不发贴是我的权利,看不看是你的态度!回不回贴是你的自由,加不加分我更不强求!!


DRAWGBK(v>1,COLORRGB(0,0,0),COLORRGB(40,80,100),1);
//---------------------------------------------------------
RSV2:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*50;
K13:=SMA(RSV2,3,1)+100-20;
D13:=SMA(K13,3,1);
J13:=3*K13-2*D13;
FILLRGN(K13>D13,K13,D13),COLORaa99cc;
FILLRGN(K13<=D13,K13,D13),Color008080;
FILLRGN(J13>K13,K13,J13),COLORBROWN;
FILLRGN(J13<=K13,K13,J13),COLORCYAN;
//---------------------------------------------------------
RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
K1:=SMA(RSV,3,1);
D1:=SMA(K1,3,1);
KK:=INTPART(K1);
DD:=INTPART(D1);
TFXXS:=KK+DD;//变异KD风险系数
TGLXS:=(TFXXS-REF(TFXXS,1))*5;//变异KD乖离系数:资金流向
TYCFX:=TFXXS+TGLXS;//变异KD预测风险
{红}
STICKLINE(TGLXS>0 AND TGLXS>REF(TGLXS,1),100,100+TGLXS/5,4,0 ),COLOR0000AA;
STICKLINE(TGLXS>0 AND TGLXS>REF(TGLXS,1),100,100+TGLXS/5,3.5 ,0 ),COLOR0011BB;
STICKLINE(TGLXS>0 AND TGLXS>REF(TGLXS,1),100,100+TGLXS/5,2.5,0 ),COLOr0022CC;
STICKLINE(TGLXS>0 AND TGLXS>REF(TGLXS,1),100,100+TGLXS/5,1.5 ,0 ),COLOR0033DD;
STICKLINE(TGLXS>0 AND TGLXS>REF(TGLXS,1),100,100+TGLXS/5,1 ,0 ),COLOR0044EE;
STICKLINE(TGLXS>0 AND TGLXS>REF(TGLXS,1),100,100+TGLXS/5,0.5 ,0 ),COLOR0055FF;
{粉}
STICKLINE(TGLXS<0 AND TGLXS>REF(TGLXS,1),100,100+TGLXS/5,4,0 ),COLORAA00BB;
STICKLINE(TGLXS<0 AND TGLXS>REF(TGLXS,1),100,100+TGLXS/5,3.5 ,0 ),COLORBB11BB;
STICKLINE(TGLXS<0 AND TGLXS>REF(TGLXS,1),100,100+TGLXS/5,2.5,0 ),COLORCC22BB;
STICKLINE(TGLXS<0 AND TGLXS>REF(TGLXS,1),100,100+TGLXS/5,1.5,0 ),COLORDD33BB;
STICKLINE(TGLXS<0 AND TGLXS>REF(TGLXS,1),100,100+TGLXS/5,1 ,0 ),COLOREE44BB;
STICKLINE(TGLXS<0 AND TGLXS>REF(TGLXS,1),100,100+TGLXS/5,0.5,0 ),COLORFF55BB;
{黄}
STICKLINE(TGLXS>0 AND TGLXS<=REF(TGLXS,1),100,100+TGLXS/5,4,0 ),COLOR00AAFF;
STICKLINE(TGLXS>0 AND TGLXS<=REF(TGLXS,1),100,100+TGLXS/5,3.5,0 ),COLOR00BBFF;
STICKLINE(TGLXS>0 AND TGLXS<=REF(TGLXS,1),100,100+TGLXS/5,2.5,0 ),COLOR00CCFF;
STICKLINE(TGLXS>0 AND TGLXS<=REF(TGLXS,1),100,100+TGLXS/5,1.5,0 ),COLOR00DDFF;
STICKLINE(TGLXS>0 AND TGLXS<=REF(TGLXS,1),100,100+TGLXS/5,1,0 ),COLOR00EEFF;
STICKLINE(TGLXS>0 AND TGLXS<=REF(TGLXS,1),100,100+TGLXS/5,0.5,0 ),COLOR00FFFF;
{蓝}
STICKLINE(TGLXS<0 AND TGLXS<=REF(TGLXS,1),100,100+TGLXS/5,4,0 ),COLORFF7700;
STICKLINE(TGLXS<0 AND TGLXS<=REF(TGLXS,1),100,100+TGLXS/5,3.5 ,0 ),COLORFF8811;
STICKLINE(TGLXS<0 AND TGLXS<=REF(TGLXS,1),100,100+TGLXS/5,2.5,0 ),COLORFFAA22;
STICKLINE(TGLXS<0 AND TGLXS<=REF(TGLXS,1),100,100+TGLXS/5,1.5 ,0 ),COLORFFBB33;
STICKLINE(TGLXS<0 AND TGLXS<=REF(TGLXS,1),100,100+TGLXS/5,1 ,0 ),COLORFFDD44;
STICKLINE(TGLXS<0 AND TGLXS<=REF(TGLXS,1),100,100+TGLXS/5,0.5 ,0 ),COLORFFFF55;
STICKLINE(TGLXS=0 AND REF(TGLXS,1)>=0,100,100+TGLXS,8,0),COLORBROWN;
STICKLINE(TGLXS=0 AND REF(TGLXS,1)<0,100,100+TGLXS,8,0),COLORWHITE;
动力:sma(ma((c-ref(c,1))/ref(c,1),5)*100,2,1)*8+100,LINETHICK,PRECISION2,ColorFF;
PARTLINE(动力>REF(动力,1),动力),ColorFF,LINETHICK2;
PARTLINE(动力<=REF(动力,1),动力),COLORGREEN,LINETHICK2;
STICKLINE(c>0,100,100,8,0),COLORGREEN,LINEDOT;
STICKLINE(c>0,80,80,8,0),COLORGREEN,LINEDOT;
//--------------------------------------------------
ZLCM:=EMA(WINNER(CLOSE)*70,3),PRECISION2;//主力筹码估算
SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3),PRECISION2;//散户筹码估算
ZSHTL:=SHCM/(ZLCM+SHCM)*100,PRECISION2;//散户套牢筹码系数
ZZLKP:=ZLCM/(ZLCM+SHCM)*100,PRECISION2;//主力控盘筹码系数
ZCMZL:=MA(ZLCM+SHCM,13),PRECISION2;//市场趋势
ZZNTS:=BARSLAST(ZSHTL<90 AND REF(ZSHTL,1)>90),PRECISION2;//走牛天数
ZSHJJ:=EMA(ZSHTL,55),PRECISION2;//散户警戒
ZZLJJ:=EMA(ZZLKP,55),PRECISION2;//主力警戒
ZJLRQD:=INTPART(ZZLKP-ZZLJJ),PRECISION2;//资金流入强度
SH8:=EMA(ZSHTL,8),PRECISION2;
DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0);
//{观望区}
{{深蓝}
STICKLINE(C>0,20,0,4,0),Coloraa0000;
STICKLINE(C>0,20,0,3.5,0),Colorbb0000;
STICKLINE(C>0,20,0,2.5,0),Colorcc0000;
STICKLINE(C>0,20,0,1.5,0),Colordd0000;
STICKLINE(C>0,20,0,1,0),Coloree0000;
STICKLINE(C>0,20,0,0.5,0),Colorff0000;}
//散户套牢筹码
STICKLINE(C>0,ZSHTL,ZZLKP,0.1,0),Color808080;
//散户筹码警戒
STICKLINE(ZSHJJ>REF(ZSHJJ,1),ZSHTL,ZSHJJ,3,0),Colorc0c0C0;
STICKLINE(ZSHJJ>REF(ZSHJJ,1),ZSHTL,ZSHJJ,2.5,0),Colorc0c0aa;
STICKLINE(ZSHJJ>REF(ZSHJJ,1),ZSHTL,ZSHJJ,2,0),Colorc0c0bb;
STICKLINE(ZSHJJ>REF(ZSHJJ,1),ZSHTL,ZSHJJ,1,0),Colorc0c0cb;
STICKLINE(ZSHJJ>REF(ZSHJJ,1),ZSHTL,ZSHJJ,0.5,0),Colorc0c0dd;
//主力控盘筹码
{粉}
STICKLINE(ZZLKP>REF(ZZLKP,1) AND ZZLKP>20,ZZLKP,20,4,0 ),COLORAA00BB;
STICKLINE(ZZLKP>REF(ZZLKP,1) AND ZZLKP>20,ZZLKP,20,3.5 ,0 ),COLORBB11BB;
STICKLINE(ZZLKP>REF(ZZLKP,1) AND ZZLKP>20,ZZLKP,20,2.5,0 ),COLORCC22BB;
STICKLINE(ZZLKP>REF(ZZLKP,1) AND ZZLKP>20,ZZLKP,20,1.5,0 ),COLORDD33BB;
STICKLINE(ZZLKP>REF(ZZLKP,1) AND ZZLKP>20,ZZLKP,20,1 ,0 ),COLOREE44BB;
STICKLINE(ZZLKP>REF(ZZLKP,1) AND ZZLKP>20,ZZLKP,20,0.5,0 ),COLORFF55BB;
{蓝}
STICKLINE(ZZLKP<=REF(ZZLKP,1) AND ZZLKP>20 ,ZZLKP,20,4,0 ),COLORFF7700;
STICKLINE(ZZLKP<=REF(ZZLKP,1) AND ZZLKP>20 ,ZZLKP,20,3.5 ,0 ),COLORFF8811;
STICKLINE(ZZLKP<=REF(ZZLKP,1) AND ZZLKP>20 ,ZZLKP,20,2.5,0 ),COLORFFAA22;
STICKLINE(ZZLKP<=REF(ZZLKP,1) AND ZZLKP>20 ,ZZLKP,20,1.5 ,0 ),COLORFFBB33;
STICKLINE(ZZLKP<=REF(ZZLKP,1) AND ZZLKP>20 ,ZZLKP,20,1 ,0 ),COLORFFDD44;
STICKLINE(ZZLKP<=REF(ZZLKP,1) AND ZZLKP>20 ,ZZLKP,20,0.5 ,0 ),COLORFFFF55;
{亮红}
STICKLINE(ZZLKP>REF(ZZLKP,1) AND ZZLKP<20,ZZLKP,0,4,0 ),color131ffd;
STICKLINE(ZZLKP>REF(ZZLKP,1) AND ZZLKP<20,ZZLKP,0,3.5 ,0 ),color661ffd;
STICKLINE(ZZLKP>REF(ZZLKP,1) AND ZZLKP<20,ZZLKP,0,2.5,0 ),COLOR5050FF;
STICKLINE(ZZLKP>REF(ZZLKP,1) AND ZZLKP<20,ZZLKP,0,1.5,0 ),COLOR5F5FFF;
STICKLINE(ZZLKP>REF(ZZLKP,1) AND ZZLKP<20,ZZLKP,0,1 ,0 ),COLOR6C6CFF;
STICKLINE(ZZLKP>REF(ZZLKP,1) AND ZZLKP<20,ZZLKP,0,0.5,0 ),COLOR7E7EFF;
{深蓝}
STICKLINE(ZZLKP<=REF(ZZLKP,1) AND ZZLKP<20,ZZLKP,0,4,0 ),COLORaa0000;
STICKLINE(ZZLKP<=REF(ZZLKP,1) AND ZZLKP<20,ZZLKP,0,3.5 ,0 ),COLORbb0000;
STICKLINE(ZZLKP<=REF(ZZLKP,1) AND ZZLKP<20,ZZLKP,0,2.5,0 ),COLORcc0000;
STICKLINE(ZZLKP<=REF(ZZLKP,1) AND ZZLKP<20,ZZLKP,0,1.5 ,0 ),COLORdd0000;
STICKLINE(ZZLKP<=REF(ZZLKP,1) AND ZZLKP<20,ZZLKP,0,1 ,0 ),COLORee0000;
STICKLINE(ZZLKP<=REF(ZZLKP,1) AND ZZLKP<20,ZZLKP,0,0.5 ,0 ),COLORFF0000;
//主力筹码警戒
{黄}
STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,ZZLJJ,4,0 ),COLOR00AAFF;
STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,ZZLJJ,3.5,0 ),COLOR00BBFF;
STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,ZZLJJ,2.5,0 ),COLOR00CCFF;
STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,ZZLJJ,1.5,0 ),COLOR00DDFF;
STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,ZZLJJ,1,0 ),COLOR00EEFF;
STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLK