通达信控盘股道秘籍主图源码

[复制链接]
查看62 | 回复0 | 2022-7-24 07:56:10 | 显示全部楼层 |阅读模式

控盘股道秘籍

控盘股道秘籍
 
通达信公式编辑器5.0版本适用
 
《股金道中》控盘股道秘籍说明:1.30绿色粗线为不参与区,40洋红线为主力吸筹震荡区,适于高抛低吸,50大红区根据均线持有,适当高抛低吸,但不离不弃,70高控区主力长远持股去安全系数高但涨幅平稳,适于长久操作! 本秘籍需要反复实践摸索就可以有耳目一新的新的,网群友自己斟酌会有不错的收益!2012.12.18股道-股灵子力作!!
 
MA3:MA(CLOSE,3),;
 MA5:MA(CLOSE,5),COLOR00FFFF;
 MA10:MA(CLOSE,10);
 MA20:MA(CLOSE,20);
 
主力筹码估算:=EMA(WINNER(CLOSE)*70,3),NODRAW;
 散户筹码估算:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3),NODRAW;
 散户套牢比率:=散户筹码估算/(主力筹码估算+散户筹码估算)*100,NODRAW;
 主力控盘比率:主力筹码估算/(主力筹码估算+散户筹码估算)*100,NODRAW;
 
控盘30:IF(主力控盘比率<30,MA(CLOSE,13),DRAWNULL),COLORGREEN,LINETHICK3;
 控盘40:IF(主力控盘比率<=50 AND 主力控盘比率>=30 ,MA(CLOSE,13),DRAWNULL),COLORCC00FF,LINETHICK3;
 控盘50:IF(主力控盘比率>50,MA(CLOSE,13),DRAWNULL),COLORRED,LINETHICK6;
 控盘70:IF(主力控盘比率>70,MA(CLOSE,13),DRAWNULL),COLOR00FFFF,LINETHICK7;
 
ST:=EXIST(C/REF(C,1)>1.06,100); {除掉S,ST,*ST};
 超B:=L2_VOL(0,0)*VOL/CAPITAL;
大B:=L2_VOL(1,0)*VOL/CAPITAL;
中B:=L2_VOL(2,0)*VOL/CAPITAL;
小B:=L2_VOL(3,0)*VOL/CAPITAL;
超S:=-L2_VOL(0,1)*VOL/CAPITAL;
大S:=-L2_VOL(1,1)*VOL/CAPITAL;
中S:=-L2_VOL(2,1)*VOL/CAPITAL;
小S:=-L2_VOL(3,1)*VOL/CAPITAL;
净流入:=(超B+大B+中B+小B)+(超S+大S+中S+小S);
 超净:=超B+超S;
 大净:=大B+大S;
 中净:=中B+中S;
 散净:=小B+小S;
 大宗净流入:=(超B+大B)+(超S+大S);
 
主力买力度:=LARGEINTRDVOL*100/VOL;
 主力卖力度:=LARGEOUTTRDVOL*100/VOL;
 
AA:=CONST(MAX(ABS(净流入),MAX(ABS(大宗净流入),MAX(ABS(超净),MAX(ABS(大净),MAX(ABS(中净),ABS(散净)))))))*3,NODRAW;
 DRAWRECTREL(10,CONST(830-(ABS(大宗净流入)*500/AA)),50,945,IF(CONST(大宗净流入)>0,RGB(250,0,0),RGB(0,50,0)));
 DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.018,0.85,0,INTPART(大宗净流入)),COLORYELLOW;
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.018,0.90,0,'大宗'),COLORYELLOW;
 DRAWRECTREL(55,CONST(830-(ABS(超净)*500/AA)),95,945,IF(CONST(超净)>0,RGB(255,0,0),RGB(0,50,0)));
 DRAWRECTREL(100,CONST(830-(ABS(大净)*500/AA)),140,945,IF(CONST(大净)<0,RGB(0,50,0),RGB(255,0,0)));
 DRAWRECTREL(145,CONST(830-(ABS(中净)*500/AA)),185,945,IF(CONST(中净)>0,RGB(255,0,0),RGB(0,50,0)));
 DRAWRECTREL(190,CONST(830-(ABS(散净)*500/AA)),230,945,IF(CONST(散净)<0,RGB(0,50,0),RGB(255,0,0)));
 DRAWTEXT_FIX(CURRBARSCOUNT=1,0.062,0.90,0,'超净         大净          中净         散净'),COLORYELLOW;
 DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.062,0.85,0,INTPART(超净)),COLORYELLOW;
 DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.110,0.85,0,INTPART(大净)),COLORYELLOW;
 DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.155,0.85,0,INTPART(中净)),COLORYELLOW;
 DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.200,0.85,0,INTPART(散净)),COLORYELLOW;
 AAD:=CONST(MAX(ABS(主力买力度),ABS(主力卖力度)))*4,NODRAW;
 DRAWRECTREL(0,515,CONST(ABS(主力买力度)*500/AAD),568,IF(CONST(主力买力度)>0,RGB(255,0,0),RGB(0,50,0)));
 DRAWRECTREL(0,570,CONST(ABS(主力卖力度)*500/AAD),623,IF(CONST(主力卖力度)>0,RGB(0,50,0),RGB(255,0,0)));
 DRAWTEXT_FIX(1,0,0.512,0,STRCAT('主力买力度:',CON2STR(主力买力度,0))),COLORYELLOW;
 DRAWTEXT_FIX(1,0,0.57,0,STRCAT('主力卖力度:',CON2STR(主力卖力度,0))),COLORYELLOW;
 
VAR101:=ZIG(3,13);
 STICKLINE((REF(VAR101,2) < REF(VAR101,1)) AND (VAR101 < REF(VAR101,1)),CLOSE,OPEN,5,0),COLOR66FF00;

1748477837.jpg

1748477837.jpg

 

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则