券商持股指标公式详解 飞狐持股

指标公式详细说明

{券商持股--wind}
//确定f10种类
f10:=2;
//f10数据查找
qsw:=f10find('股东进出】 <<占流通股比例区',1000);//起
if qsw<0 then exit;//没找到退出
sjt:=f10find('流通股东名',qsw+50);//取日期位置1

if sjt>0 then begin

rqz:=ltrim(rtrim(f10text(sjt+(-145),12)));//时间
tt:=f10find('券商持股(万股)',1000);
dc:=strtonum(f10text(tt+20,0));//当期
qc:=strtonum(f10text(tt+34,0));//前期
zje:=(dc-qc);

drawgbk(zje>0, colorrgb(150,80,0), colorrgb(0,0,0),1); {增仓变红}
drawgbk(zje<0, colorrgb(0,50,110), colorrgb(0,0,0),1); {减仓变绿}

jsw:=f10find('总计',sjt+200);//取结尾
kg1:=' \n';
kg2:=' ';//空格
gds:='十大流通股东中包括：';//显示
js:=1;//计数
{查找当期明细}
js1:=0;js2:=0;
variable:gdw[10]=0,gdt[10]='',dqcg[10]='str',zjt[10]='str';
for i=1 to 10 do begin
xh:=rtrim(ltrim(numtostr(i,0)));//将i转换为字符的序号
gdw:=if(i=1,f10find('1',sjt+100),f10find(if(f10=2 and i=10,'',' ')+xh,gdw[i-1]+74));//取字符串所在位置
if gdw>jsw then break;//越过“总计”退出
ls:=if(i=1,1,2);
if i<11 then tmp:=f10text(gdw+ls,30);//取字符串
if (strfind(tmp,'证券股份',1)>0 or strfind(tmp,'证券有限',1)>0) then begin
gdt:=tmp;//取字符串
js1:=js1+1;//统计证券公司家数
dqcg:=strright(' '+ltrim(numtostr(strtonum(ltrim(strright(f10text(gdw+27,16),12))),2)),10);
zjt:=strright(' '+rtrim(ltrim(strleft(f10text(gdw+54,12),8))),9);
gdt:=if(js<10,' ','')+numtostr(js,0)+strleft(ltrim(gdt),9)+dqcg+''+zjt;
gds:=gds+kg1+gdt;
js:=js+1;
end;
end;

截止日期:strtonum('1'+strright(strleft(rqz,4),2)+strright('0'+numtostr(strtonum(strmid(rqz,6,2)),0),2)+strmid(rqz,strfind(rqz,'-',6)+1,2)),linethick;
家数:js1,colorddaaaa,linethick;
券商持股:dc,coloreeff,linethick;
前期持股:qc,precision2,coloree00,linethick;
增减额:zje,colorffff00,linethick;//(券商持股-前期持股)
持仓率:(券商持股/capital)*10000,precision2,colorafff,linethick;

drawtext(barpos=sysparam(2),10,gds),colorccff,align4;
end;

{主力动向速览}
zlw:=f10find('主力动向速览',500);
zlq:=f10find('┌',zlw-100);
zlq1:=f10find('┐',zlq-100);
zlend:=f10find('┘',zlq+100);
ss:=floor((zlend+2-zlq)/(zlq1-zlq+2));
nr:=rtrim(f10text(zlq,zlend+2-zlq));
kg:=' ';
kg:=strleft(kg,36);
xsnr:='';
for j=1 to ss do begin
nrt:=rtrim(ltrim(if(j<=3,strleft(nr,74), if(j=4,strmid(nr,strfind(nr,'┤',20)+1,76),strleft(nr,76)))));
xsnr:=xsnr+if(j=1,'',' \n')+kg+nrt;
nr:=ltrim(strmid(nr,75,0));
end;
drawtext(barpos=sysparam(2),10,xsnr),colora9fe63,align4;

{上季以来均价}
bj:=round(month/3+0.3);jb:=bj-ref(bj,1)<>0 or barpos=1;季:=sumbars(jb,1)linethick;j0:=sumbars(jb,2);
起点:=datacount-j0[datacount]+1;
cbzq:=if(起点=1,0,barssince(barpos>=起点));
平均成本:sum(amount,cbzq)/sum(vol,cbzq)/100,color6000ff,linethick;
//

指标公式下载地址

上一指标公式：横盘天数振幅15%-亮点无需指定多少天以内自动回溯自动统计详解 飞狐天数横盘

下一指标公式：现金流量指标公式详解 飞狐现金流量

相关飞狐公式推荐

指标公式下载注意

☉ 好公式网发布的指标公式主要用于软件技术面分析，仅供参考，勿用于实际操作，据此操作风险自负！

☉ 解压密码：www.goodgongshi.com 就是好公式网域名，希望大家看清楚，切勿输错。

☉ tnc和tni格式指标公式，仅可以用通达信软件引入使用，例如可以用通达信软件引入使用指标公式；

☉ tne格式指标公式，仅可以用通达信软件公式编辑器5.0版导入，高版本兼容低版本；

☉ fnc格式指标公式，可以用大智慧软件新一代高速行情分析系统股票软件使用，少部分可以用分析家软件引入使用；

☉ alg格式指标公式，仅仅可以用飞狐交易师软件引入使用；exp格式指标公式，仅可以用大智慧经典版软件引入使用；

☉ hxf格式指标公式，仅可以用同花顺软件引入使用。

☉ 如果您发现下载软件链接错误，请联系管理员报告错误。

☉ 好公式网欢迎各位网友帮忙宣传转发本站网址，有您的支持，我们会做得更好！

☉ 本文券商持股指标公式详解 飞狐持股仅供学习研究。