主力资金监测通达信指标公式源码

  • 格式:docx
  • 大小:36.95 KB
  • 文档页数:3

主力资金监测通达信指标公式源码

价量:3*sma((close-llv(low,27))/(hhv(high,27)-llv(low,27))*100,5,1)-2*sma(sma((close-llv(low,27))/(hhv(high,27)-llv(low,27))*100,5,1),3,1),color00ccff,nodraw;

主线:(((价量-llv(价量,27))/(hhv(价量,27)-llv(价量,27)))*(4))*(25),colorcyan,nodraw;

慢线:(((价量-llv(价量,9))/(hhv(价量,9)-llv(价量,9)))*(4))*(25),color55aaff,nodraw;

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));{变异kd乖离系数:资金流向}

{白}

stickline(tglxs>0andtglxs>ref(tglxs,1),100,tglxs+100,2.5,0),color0000aa;stickline(tglxs>0andtglxs>ref(tglxs,1),100,tglxs+100,1.5,0),color0022cc;stickline(tglxs>0andtglxs>ref(tglxs,1),100,tglxs+100,0.5,0),color0055ff;{粉}

stickline(tglxs<0andtglxs>ref(tglxs,1),100,tglxs+100,2.5,0),coloraa00bb;stickline(tglxs<0andtglxs>ref(tglxs,1),100,tglxs+100,1.5,0),colorcc22bb;stickline(tglxs<0andtglxs>ref(tglxs,1),100,tglxs+100,0.5,0),colorff55bb;{徐}

stickline(tglxs>0andtglxs<=ref(tglxs,1),100,tglxs+100,2.5,0),color00aaff;stickline(tglxs>0andtglxs<=ref(tglxs,1),100,tglxs+100,1.5,0),color00ccff;stickline(tglxs>0andtglxs<=ref(tglxs,1),100,tglxs+100,0.5,0),color00ffff;{蓝}

stickline(tglxs<0andtglxs<=ref(tglxs,1),100,tglxs+100,2.5,0),colorff7700;stickline(tglxs<0andtglxs<=ref(tglxs,1),100,tglxs+100,1.5,0),colorffaa22;stickline(tglxs<0andtglxs<=ref(tglxs,1),100,tglxs+100,0.5,0),colorffff55;stickline(tglxs=0andref(tglxs,1)>=0,100,tglxs+100,8,0),colorbrown;stickline(tglxs=0andref(tglxs,1)<0,100,tglxs+100,8,0),colorwhite;zlcm:=ema(winner(close)*70,3);{主力筹码估计}

shcm:=ema((winner(close*1.1)-winner(close*0.9))*80,3);{散户筹码估算}zshtl:=shcm/(zlcm+shcm)*100;{散户套牢筹码系数}zzlkp:=zlcm/(zlcm+shcm)*100;{主力控盘筹码系数}zshjj:=ema(zshtl,55);{散户警戒}zzljj:=ema(zzlkp,55);{主力警戒}

散兵坑:if(zzlkp<=10,zzlkp,zzlkp),colormagenta,nodraw;{散户套牢筹码}

stickline(c>0,zshtl,zzlkp,2,0),color808080;{散户筹码警戒}

stickline(zshjj>ref(zshjj,1),zshtl,zshjj,2,0),colorc0c0c0;{主力先知先觉筹码}{粉}

stickline(zzlkp>ref(zzlkp,1)andzzlkp>20,zzlkp,20,2.5,0),coloraa00bb;stickline(zzlkp>ref(zzlkp,1)andzzlkp>20,zzlkp,20,1.5,0),colorcc22bb;stickline(zzlkp>ref(zzlkp,1)andzzlkp>20,zzlkp,20,0.5,0),coloree44bb;{蓝}

stickline(zzlkp<=ref(zzlkp,1)andzzlkp>20,zzlkp,20,2.5,0),colorff7700;stickline(zzlkp<=ref(zzlkp,1)andzzlkp>20,zzlkp,20,1.5,0),colorffaa22;stickline(zzlkp<=ref(zzlkp,1)andzzlkp>20,zzlkp,20,0.5,0),colorffff55;{亮红}

stickline(zzlkp>ref(zzlkp,1)andzzlkp<20,zzlkp,0,2.5,0),color131ffd;stickline(zzlkp>ref(zzlkp,1)andzzlkp<20,zzlkp,0,1.5,0),color5050ff;stickline(zzlkp>ref(zzlkp,1)andzzlkp<20,zzlkp,0,0.5,0),color7e7eff;{深蓝}

stickline(zzlkp<=ref(zzlkp,1)andzzlkp<20,zzlkp,0,2.5,0),coloraa0000;

stickline(zzlkp<=ref(zzlkp,1)andzzlkp<20,zzlkp,0,1.5,0),colorcc0000;stickline(zzlkp<=ref(zzlkp,1)andzzlkp<20,zzlkp,0,0.5,0),colorff0000;{主力筹码警戒}{黄}

stickline(zzljj>ref(zzljj,1),zzlkp,zzljj,2.5,0),color00aaff;stickline(zzljj>ref(zzljj,1),zzlkp,zzljj,1.5,0),color00ccff;stickline(zzljj>ref(zzljj,1),zzlkp,zzljj,0.5,0),color00ffff;{白}

stickline(zzlkp>zzljjandzzljj>50,zzlkp,zzljj,2.5,0),color0000aa;stickline(zzlkp>zzljjandzzljj>50,zzlkp,zzljj,1.5,0),color0022cc;stickline(zzlkp>zzljjandzzljj>50,zzlkp,zzljj,0.5,0),color0055ff;{红}

stickline(zzlkp>zzljjandzzljj<50andzzlkp>50andzzljj>ref(zzljj,1),zzlkp,50,2.5,0),color0000aa;stickline(zzlkp>zzljjandzzljj<50andzzlkp>50andzzljj>ref(zzljj,1),zzlkp,50,1.5,0),color0022cc;stickline(zzlkp>zzljjandzzljj<50andzzlkp>50andzzljj>ref(zzljj,1),zzlkp,50,0.5,0),color0055ff;{铸顶风险区}{蓝}

stickline(zzlkp>80,zzlkp,zzlkp-(zzlkp-80)/2,2.5,0),color00aa00;stickline(zzlkp>80,zzlkp,zzlkp-(zzlkp-80)/2,1.5,0),color00cc00;stickline(zzlkp>80,zzlkp,zzlkp-(zzlkp-80)/2,0.5,0),color00ff00;{散兵坑}

stickline(zzlkp<=10,zzlkp,0,5,0),colordd00dd;100,colorgreen;80,colorgreen;{0,colorgreen;}{主线慢线}

价量,color0cc0ff,linethick2;主线,color00ffaa,linethick2;快线,linestick,colorff68dd;