F10数据调用公式下载 大智慧调用公式

指标公式详细说明

f10数据调用

网上找到的公式，但好似不显示，大家看看！

f10:=if(f10find('万国测评制作',1)>0,1,0);
hw1:=f10find('每股收益',50);
qsw:=f10find('◆ 控盘情况 ◆',500);
qsw1:=f10find('出]☆',1000)+120;
jsw1:=f10find('红]☆',qsw1+300)-80;
{f10数据查找}
if f10=1 and qsw>0 and qsw1>0 and jsw1>0 then{万国测评的资料是否完整，不完整就什么都不做}
begin
{年报tip}
f10str:=f10text(hw1,1024);
三季收益 := strmid(f10str,23-3,6);
hw2:=strfind(f10str,'每股净资产',1);
净资产:= strmid(f10str,hw2+22-3,6);
hw3:=strfind(f10str,'预计年报公布日' ,hw2+80);
if(hw3>0) then
begin
年报日:= strmid(f10str,hw3+18-3,10);
end;
{控盘情况数据栏数据提取}
f10str:=f10text(qsw,320);
wz1:=strfind(f10str,'',0)-4;
wz2:=strfind(f10str,'-',wz1+10)-4;
wz3:=strfind(f10str,'-',wz2+10)-4;
wz4:=strfind(f10str,'-',wz3+10)-4;
wz5:=f10find('◆ 概念题材',wz1);{查找结束位}
{取时间}
t1:= strmid(f10str,wz1,10);
t2:= strmid(f10str,wz2,10);
t3:=strmid(f10str,wz3,10);
t4:= strmid(f10str,wz4,10);
{取股东户数}
ls:=138;
hs1:=strtonum(strmid(f10str,wz1+ls,10));
hs2:=if(wz2<wz5,strtonum(strmid(f10str,wz2+ls,10)),0);
hs3:=if(wz3<wz5,strtonum(strmid(f10str,wz3+ls,10)),0);
hs4:=if(wz4<wz5,strtonum(strmid(f10str,wz4+ls,10)),0);
{取户均持股数}
ls:=208;
rs1:=strtonum(strmid(f10str,wz1+ls,10));
rs2:=if(wz2<wz5 and hs2>100,strtonum(strmid(f10str,wz2+ls,10)),0);
rs3:=if(wz3<wz5 and hs3>100,strtonum(strmid(f10str,wz3+ls,10)),0);
rs4:=if(wz4<wz5 and hs4>100,strtonum(strmid(f10str,wz4+ls,10)),0);
{大股东数据查找}
f10str:=f10text(qsw1,jsw1-qsw1);
sjt:=f10find(' 占流通股 ',qsw1);
if strtonum(f10text(sjt-61,10))>0 then
tt1:=f10text(sjt-61,10);
else tt1:=f10text(sjt-22,10);
hjw:=f10find('总 计',sjt);
持股一:=strtonum(f10text(hjw+6,38));
if strtonum(f10text(hjw+45,5))=0 then
比例一:=持股一/capital*10000;
else
比例一:= strtonum(f10text(hjw+45,5));
sjt1:=f10find(' 占流通股 ',sjt+1);
if strtonum(f10text(sjt1-61,10))>0 then
tt2:=f10text(sjt1-61,10);
else tt2:=f10text(sjt1-22,10);
hjw1:=f10find('总 计',sjt1);
持股二:=strtonum(f10text(hjw1+6,38));
if strtonum(f10text(hjw1+45,5))=0 then
比例二:=持股二/capital*10000;
else
比例二:= strtonum(f10text(hjw1+45,5));
sjt2:=f10find(' 占流通股 ',sjt1+1);
if strtonum(f10text(sjt2-61,10))>0 then
tt3:=f10text(sjt2-61,10);
else tt3:=f10text(sjt2-22,10);
hjw2:=f10find('总 计',sjt2);
持股三:=strtonum(f10text(hjw2+6,38));
if strtonum(f10text(hjw2+45,5))=0 then
比例三:=持股三/capital*10000;
else
比例三:= strtonum(f10text(hjw2+45,5));
sjt3:=f10find(' 占流通股 ',sjt2+1);
if sjt3>0 and sjt3<jsw1 then begin
if strtonum(f10text(sjt3-61,10))>0 then
tt4:=f10text(sjt3-61,10);
else tt4:=f10text(sjt3-22,10);
hjw3:=f10find('总 计',sjt3);
持股四:=strtonum(f10text(hjw3+6,38));
if strtonum(f10text(hjw3+45,5))=0 then
比例四:=持股四/capital*10000;
else
比例四:= strtonum(f10text(hjw3+45,5));
end;
当期:=持股一;
当期1:=比例一;
上期:=持股二;
上期1:=比例二;
±比例:=当期1-上期1;
前二:=持股三;
前二1:=比例三;
前三:=持股四;
前三1:=比例四;
{将变化持股数对应显示在对应位置}
{排序}
股东增幅:(hs1-hs2)/hs2*100,precis2,linethick0,colorff00a0;
持股增幅:(rs1-rs2)/rs2*100,precis2,linethick0,colorred;
主力增幅:(当期-上期)/上期*100,precis2,linethick0,colorblue;
主力流通:(当期-上期1)/当期1*100,precis2,linethick0,colorffcc00;
{-------------------【图解模板】-------------------}
a2:=0;
a3:=1000;
ag:=intpart((a3-a2)/10);
{显示文字}
drawtextrel(0,ag*0,'报表时间'),colorblue;
drawtextrel(0,ag*2,'户均持股'),colorblue;
drawtextrel(0,ag*4,'股东户数'),colorblue;
drawtextrel(0,ag*6,'主力占流通%'),colorblue;
drawtextrel(0,ag*8,'主力持股数(万)'),colorblue;
{时间}
drawtextrel(ag*8,ag*0,t1),align2,colorred;
drawtextrel(ag*6,ag*0,t2),align2,colorred;
drawtextrel(ag*4,ag*0,t3),align2,colorred;
drawtextrel(ag*2,ag*0,t4),align2,colorred;
{户均持股}
drawtextrel(ag*8,ag*2,numtostr(rs1 )),align2,colorffcc00;
drawtextrel(ag*6,ag*2,numtostr(rs2 )),align2,colorffcc00;
drawtextrel(ag*4,ag*2,numtostr(rs3 )),align2,colorffcc00;
drawtextrel(ag*2,ag*2,numtostr(rs4 )),align2,colorffcc00;
{股东户数}
drawtextrel(ag*8,ag*4,numtostr(hs1)),align2,colorffcc00;
drawtextrel(ag*6,ag*4,numtostr(hs2)),align2,colorffcc00;
drawtextrel(ag*4,ag*4,numtostr(hs3)),align2,colorffcc00;
drawtextrel(ag*2,ag*4,numtostr(hs4)),align2,colorffcc00;
{主力占流通比}
temp:=numtostr(当期1);
tem:=tt1;
temp1:='('+tem+')'+temp;
drawtextrel(ag*8,ag*6,temp1),align2,colormagenta;
temp2:=numtostr(上期1);
tem2:=tt2;
temp3:='('+tem2+')'+temp2;
drawtextrel(ag*6,ag*6,temp3),align2,colormagenta;
temp4:=numtostr(前二1);
tem3:=tt3;
temp5:='('+tem3+')'+temp4;
drawtextrel(ag*4,ag*6,temp5),align2,colormagenta;
temp6:=numtostr(前三1);
tem4:=tt4;
temp7:='('+tem4+')'+temp6;
drawtextrel(ag*2,ag*6,temp7),align2,colormagenta;
{10大股东持股}
drawtextrel(ag*8,ag*8,numtostr(当期)),align2,colorred;
drawtextrel(ag*6,ag*8,numtostr(上期)),align2,colorred;
drawtextrel(ag*4,ag*8,numtostr(前二)),align2,colorred;
drawtextrel(ag*2,ag*8,numtostr(前三)),align2,colorred;
{tip draw}
drawtextrel(ag*9,ag*6,'股收益:'+三季收益),align1,colorred;
drawtextrel(ag*9,ag*4,'净资产:'+净资产),align1,colorred;
drawtextrel(ag*9,ag*2,'年报日:'+年报日),align1,colorred;
{柱线}
{持股数柱线}
{stickline(barpos=a3-ag*1-10 and hs1>100,0,rs1,ag*3,1),linethick2,colorffddff;
stickline(barpos=a3-ag*2-15 and hs2>100,0,rs2,ag*3,1),linethick2,colorf1ffb5;
stickline(barpos=a3-ag*3-20 and hs3>100,0,rs3,ag*3,1),linethick2,colorb9ffbc;
stickline(barpos=a3-ag*4-25 and hs4>100,0,rs4,ag*3,1),linethick2,colorb9ffff;}
{10大股东画柱线}
{stickline(barpos=a3-ag*1-6 and 当期>0,0,当期,ag*3,0),linethick2,colorffddff;
stickline(barpos=a3-ag*2-11 and 上期>0,0,上期,ag*3,0),linethick2,colorf1ffb5;
stickline(barpos=a3-ag*3-16 and 前二>0,0,前二,ag*3,0),linethick2,colorb9ffbc;
stickline(barpos=a3-ag*4-21 and 前三>0,0,前三,ag*3,0),linethick2,colorb9ffff;}
end;

需电脑中有f10数据才可以显示

指标公式下载地址

上一指标公式：一个极好的当天低买高卖CDP转载公式下载 大智慧指标当天

下一指标公式：捕捉主力建仓区公式下载 大智慧主力捕捉

相关大智慧公式推荐

指标公式下载注意

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

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

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

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

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

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

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

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

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

☉ 本文F10数据调用公式下载 大智慧调用公式仅供学习研究。