{适用于万国、wind、鹏搏f10、维赛特f10}
input:gd(5,0,10);//柱高度调节
drawgbk(v>1,colorrgb(6,50,242),colorrgb(200,100,0),1);
//f10数据查找
f10:=if(f10find('万国测评制作',1)>0,1,if(f10find('wind资讯',1)>0,2,if(f10find('鹏搏资讯',1)>0,3,if(f10find('维赛特财经',1)>0,4,0))));
qsw:=if(f10=2,f10find('【1:主力运作】',100),if(f10=3,f10find('控盘情况:',1),if(f10=4,f10find('(三)历年人均持股情况',1),f10find('◆ 控盘情况 ◆',100))));
if qsw>0 then begin
wz1:=f10find('-',qsw)-4;wz2:=f10find('-',wz1+if(f10=1,10,if(f10=4,60,20)))-4;wz3:=f10find('-',wz2+if(f10=1,10,if(f10=4,60,20)))-4;wz4:=f10find('-',wz3+if(f10=1,10,if(f10=4,60,20)))-4;
wz5:=if(f10=2,f10find('【2:机构持股】',wz1),if(f10=3,f10find('公司简况',wz1),if(f10=4,f10find('(四)qfii持股',wz1),f10find('◆ 概念题材',wz1))));//查找结束位
//取时间
t1:=f10text(wz1,10);t2:=if(wz2<wz5,f10text(wz2,10),'');t3:=if(wz3<wz5,f10text(wz3,10),'');t4:=if(wz4<wz5,f10text(wz4,10),'');
//取股东户数
ls:=if(f10=1,142,if(f10=4,29,14));//14;
hs1:=strtonum(f10text(wz1+ls,10));hs2:=if(wz2<wz5,strtonum(f10text(wz2+ls,10)),0);hs3:=if(wz3<wz5,strtonum(f10text(wz3+ls,10)),0);hs4:=if(wz4<wz5,strtonum(f10text(wz4+ls,10)),0);
//取户均持股数
ls:=if(f10=2,28,if(f10=3,38,if(f10=4,43,205)));
rs1:=strtonum(f10text(wz1+ls,10));rs2:=if(wz2<wz5,strtonum(f10text(wz2+ls,10)),0);
rs3:=if(wz3<wz5,strtonum(f10text(wz3+ls,10)),0);rs4:=if(wz4<wz5,strtonum(f10text(wz4+ls,10)),0);
//日期转换
td1:=strtonum('1'+strmid(t1,3,2)+strmid(t1,6,2)+strright(t1,2));
td2:=strtonum('1'+strmid(t2,3,2)+strmid(t2,6,2)+strright(t2,2));
td3:=strtonum('1'+strmid(t3,3,2)+strmid(t3,6,2)+strright(t3,2));
td4:=strtonum('1'+strmid(t4,3,2)+strmid(t4,6,2)+strright(t4,2));
{将变化持股数对应显示在对应位置}
drawnumber(cross(date,td1) and hs1>100,c,rs1,2),colorff00ff,align4;
drawnumber(cross(date,td2) and hs2>100,c,rs2,2),colorffff00,align4;
drawnumber(cross(date,td3) and hs3>100,c,rs3,2),colorff00,align4;
drawnumber(cross(date,td4) and hs4>100,c,rs4,2),coloreeff,align4;
a5:=sysparam(5);a3:=sysparam(3);ag:=intpart((sysparam(3)-sysparam(2))/8);
zx:=(sysparam(4)-a5),linethick;
zy:=max(rs1,max(rs2,max(rs3,rs4))),linethick;
aaa:=zy/zx*10/gd,linethick;
d:=backset(islastbar,80);
a:=d>ref(d,1);
stickline(gd>0 and barpos=a3-ag*1 and hs1>100,a5,rs1/aaa+a5,ag*3,1),colorff00ff,linethick2;
stickline(gd>0 and barpos=a3-ag*2 and hs2>100,a5,rs2/aaa+a5,ag*3,1),colorffff00,linethick2;
stickline(gd>0 and barpos=a3-ag*3 and hs3>100,a5,rs3/aaa+a5,ag*3,1),colorff00,linethick2;
stickline(gd>0 and barpos=a3-ag*4 and hs4>100,a5,rs4/aaa+a5,ag*3,1),colorffcc,linethick2;
//
end;
if qsw=-1 then exit;
//显示文字
xsw:=sysparam(2)+1=barpos;
drawtext(xsw and hs1>100,a5,'股东户数 \n户均持股 \n 时间'),colorffff00,pxup50;
drawnumber(gd>0 andbarpos=a3-ag*1 and hs1>100,sysparam(5),hs1,2),,colorafff00,align,pxup50;
drawnumber(gd>0 andbarpos=a3-ag*2 and hs2>100,sysparam(5),hs2,2),,colorafff00,align,pxup50;
drawnumber(gd>0 andbarpos=a3-ag*3 and hs3>100,sysparam(5),hs3,2),,colorafff00,align,pxup50;
drawnumber(gd>0 andbarpos=a3-ag*4 and hs4>100,sysparam(5),hs4,2),,colorafff00,align,pxup50;
drawnumber(gd>0 andbarpos=a3-ag*1 and hs1>100,sysparam(5),rs1,2),,colordddddd,align,pxup30;
drawnumber(gd>0 andbarpos=a3-ag*2 and hs2>100,sysparam(5),rs2,2),,colordddddd,align,pxup30;
drawnumber(gd>0 andbarpos=a3-ag*3 and hs3>100,sysparam(5),rs3,2),,colordddddd,align,pxup30;
drawnumber(gd>0 andbarpos=a3-ag*4 and hs4>100,sysparam(5),rs4,2),,colordddddd,align,pxup30;
drawtext(gd>0 andbarpos=a3-ag*1 and hs1>100,sysparam(5),t1),colordd00,align;
drawtext(gd>0 andbarpos=a3-ag*2 and hs2>100,sysparam(5),t2),colordd00,align;
drawtext(gd>0 andbarpos=a3-ag*3 and hs3>100,sysparam(5),t3),colordd00,align;
drawtext(gd>0 andbarpos=a3-ag*4 and hs4>100,sysparam(5),t4),colordd00,align;
上一指标公式:揭底专用公式 飞狐揭底指标 源码
下一指标公式:测底王公式 飞狐指标 源码
☉ 好公式网发布的指标公式主要用于软件技术面分析,仅供参考,勿用于实际操作,据此操作风险自负!
☉ 解压密码:www.goodgongshi.com 就是好公式网域名,希望大家看清楚,切勿输错。
☉ tnc和tni格式指标公式,仅可以用通达信软件引入使用,例如可以用通达信软件引入使用指标公式;
☉ tne格式指标公式,仅可以用通达信软件公式编辑器5.0版导入,高版本兼容低版本;
☉ fnc格式指标公式,可以用大智慧软件新一代高速行情分析系统股票软件使用,少部分可以用分析家软件引入使用;
☉ alg格式指标公式,仅仅可以用飞狐交易师软件引入使用;exp格式指标公式,仅可以用大智慧经典版软件引入使用;
☉ hxf格式指标公式,仅可以用同花顺软件引入使用。
☉ 如果您发现下载软件链接错误,请联系管理员报告错误。
☉ 好公式网欢迎各位网友帮忙宣传转发本站网址,有您的支持,我们会做得更好!
☉ 本文持股数适用于万国Wind鹏搏F10维赛特F10公式 飞狐股数Wind指标 源码仅供学习研究。