港澳F10副图-迎国庆公式 飞狐港澳指标 源码

指标公式详细说明

我原来使用wind f10
由于近段时间不知什么原因已经更新不了啦 所以自己编写
我使用通达信下载港澳f10，然后飞狐调用！


公式一：
f:=f10find('【2.股东变化】',1);
f0:=f10find(' ',f);
u0:=f10text(f0+440,57);
f1:=f10find('截至日期：',f);
u1:=f10text(f1,1);
f2:=f10find(' ',f1);
u2:=f10text(f2+111,75);
f3:=f10find(' ',f1);
u3:=f10text(f2+187,75);
f4:=f10find(' ',f1);
u4:=f10text(f2+265,75);
f5:=f10find(' ',f1);
u5:=f10text(f2+340,75);
f6:=f10find(' ',f1);
u6:=f10text(f2+491,75);
f7:=f10find(' ',f1);
u7:=f10text(f2+567,75);
f8:=f10find(' ',f1);
u8:=f10text(f2+643,75);
f9:=f10find(' ',f1);
u9:=f10text(f2+719,75);
f10:=f10find(' ',f1);
u10:=f10text(f2+795,75);
f11:=f10find(' ',f1);
u11:=f10text(f2+871,75);
f12:=f10find(' ',f1);
u12:=f10text(f2+947,75);
f13:=f10find(' ',f1);
u13:=f10text(f2+1025,75);
f14:=f10find(' ',f1);
u14:=f10text(f2+1100,75);
f15:=f10find(' ',f1);
u15:=f10text(f2+n4,75);
drawtextex(c,0,0,15,u0),coloryellow;
drawtextex(c,0,0,15,u1),coloryellow;
drawtextex(c,0,0,30,u2),coloryellow;
drawtextex(c,0,0,45,u3),coloryellow;
drawtextex(c,0,0,60,u4),coloryellow;
drawtextex(c,0,0,75,u5),coloryellow;
drawtextex(c,0,0,90,u6),coloryellow;
drawtextex(c,0,0,105,u7),coloryellow;
drawtextex(c,0,0,120,u8),coloryellow;
drawtextex(c,0,0,135,u9),coloryellow;
drawtextex(c,0,0,150,u10),coloryellow;
drawtextex(c,0,0,165,u11),coloryellow;
drawtextex(c,0,0,180,u12),coloryellow;
drawtextex(c,0,0,195,u13),coloryellow;
drawtextex(c,0,0,210,u14),coloryellow;
drawtextex(c,0,0,225,u15),coloryellow;


公式二：
查找:=f10find('【2.股东户数】',100);股东:=f10find('股东户数',查找);
x:=f10find('｜2009-06-30｜',股东);
股东户数x:=strtonum(f10text(x+19,10));
户均持股x:=strtonum(f10text(x+35,10));
x1:=f10find('｜2009-03-31｜',股东);
股东户数x1:=strtonum(f10text(x1+19,10));
户均持股x1:=strtonum(f10text(x1+33,10));
x2:=f10find('｜2008-12-31｜',股东);
股东户数x2:=strtonum(f10text(x2+19,10));
户均持股x2:=strtonum(f10text(x2+33,10));
a3:=sysparam(3);ag:=intpart((sysparam(3)-sysparam(2))/if(datacount>120,40,20));a5:=sysparam(5);
更新:=if(finance(0)=200909,1,if(finance(0)=200906,2,if(finance(0)=200903,3,if(finance(0)=200812,4,if(finance(0)=200809,5,0)))));
{柱线}
stickline(barpos=a3-ag*3 and 股东户数x>0,0,股东户数x,ag*20,1),colorf1a8ff;
stickline(barpos=a3-ag*2 and 户均持股x>0,0,户均持股x,ag*20,0),colorf1a8ff;
drawtext(barpos=a3-ag*3,0,'090630'),colorwhite,align5,pxdn5;
stickline(barpos=a3-ag*8 and 更新 and 股东户数x1>0,0,股东户数x1,ag*20,1),colorf1a8ff;
stickline(barpos=a3-ag*7 and 更新 and 户均持股x1>0,0,户均持股x1,ag*20,0),colorf1a8ff;
drawtext(barpos=a3-ag*8,0,'090331'),colorwhite,align5,pxdn5;
stickline(barpos=a3-ag*13 and 更新 and 股东户数x2>0,0,股东户数x2,ag*20,1),colorf1a8ff;
stickline(barpos=a3-ag*12 and 更新 and 户均持股x2>0,0,户均持股x2,ag*20,0),colorf1a8ff;
drawtext(barpos=a3-ag*13,0,'081231'),colorwhite,align5,pxdn5;


公式三：
毛利率(港澳)副图
x1:=f10find('【每股指标】',1);
y1:=f10find('财务指标(单位)',x1);
n1:=strtonum(f10text(y1+20,4));
nn1:=strtonum(f10text(y1+25,2));
nn2:=strtonum(f10text(y1+28,2));
n2:=strtonum(f10text(y1+32,4));
n3:=strtonum(f10text(y1+44,4));
n4:=strtonum(f10text(y1+56,4));
d1:=f10find('【利润构成与盈利能力】',1);
d2:=f10find('销售毛利率(%)',d1);
dd1:=strtonum(f10text(d2+20,10));
dd2:=strtonum(f10text(d2+32,10));
dd3:=strtonum(f10text(d2+44,10));
dd4:=strtonum(f10text(d2+56,10));
a3:=sysparam(3);ag:=intpart((sysparam(3)-sysparam(2))/if(datacount>120,40,20));a5:=sysparam(5);
更新:=if(finance(0)=200909,1,if(finance(0)=200906,2,if(finance(0)=200903,3,if(finance(0)=200812,4,if(finance(0)=200809,5,0)))));
{柱线}
//增
stickline(barpos=a3-ag*3 and 更新 and dd1>0,0,dd1,ag*20,0),colorf1a8ff;//7
stickline(barpos=a3-ag*8 and 更新 and dd2>0,0,dd2,ag*20,1),colorf1a8ff;//14
stickline(barpos=a3-ag*13 and 更新 and dd3>0,0,dd3,ag*20,1),colorf1a8ff;//21
stickline(barpos=a3-ag*18 and 更新 and dd4>0,0,dd4,ag*20,1),colorf1a8ff;//28
//减
stickline(barpos=a3-ag*3 and 更新 and dd1<0,0,dd1,ag*20,0),colorb9ffbc;
stickline(barpos=a3-ag*8 and 更新 and dd2<0,0,dd2,ag*20,1),colorb9ffbc;
stickline(barpos=a3-ag*13 and 更新 and dd3<0,0,dd3,ag*20,1),colorb9ffbc;
stickline(barpos=a3-ag*18 and 更新 and dd4<0,0,dd4,ag*20,1),colorb9ffbc;
//显示时间
drawtext(barpos=a3-ag*3 and dd1>0,0,numtostr(n1,0)+'.'+numtostr(nn1,0)+'.'+numtostr(nn2,0)),colorwhite,align5,pxdn5;
drawtext(barpos=a3-ag*8 and dd2>0,0,numtostr(n2,0)),colorwhite,align5,pxdn5;
drawtext(barpos=a3-ag*13 and dd3>0,0,numtostr(n3,0)),colorwhite,align5,pxdn5;
drawtext(barpos=a3-ag*18 and dd4>0,0,numtostr(n4,0)),colorwhite,align5,pxdn5;
if(dd1=0,-0.05,0),colorblack;


公式四：
净利润(港澳)副图
x1:=f10find('【每股指标】',1);
y1:=f10find('财务指标(单位)',x1);
n1:=strtonum(f10text(y1+20,4));
nn1:=strtonum(f10text(y1+25,2));
nn2:=strtonum(f10text(y1+28,2));
n2:=strtonum(f10text(y1+32,4));
n3:=strtonum(f10text(y1+44,4));
n4:=strtonum(f10text(y1+56,4));
d1:=f10find('【利润构成与盈利能力】',1);
d2:=f10find('净利润(万元)',d1);
dd1:=strtonum(f10text(d2+20,10));
dd2:=strtonum(f10text(d2+32,10));
dd3:=strtonum(f10text(d2+44,10));
dd4:=strtonum(f10text(d2+56,10));
a3:=sysparam(3);ag:=intpart((sysparam(3)-sysparam(2))/if(datacount>120,40,20));a5:=sysparam(5);
更新:=if(finance(0)=200909,1,if(finance(0)=200906,2,if(finance(0)=200903,3,if(finance(0)=200812,4,if(finance(0)=200809,5,0)))));
{柱线}
//增
stickline(barpos=a3-ag*3 and 更新 and dd1>0,0,dd1,ag*20,0),colorf1a8ff;
stickline(barpos=a3-ag*8 and 更新 and dd2>0,0,dd2,ag*20,1),colorf1a8ff;
stickline(barpos=a3-ag*13 and 更新 and dd3>0,0,dd3,ag*20,1),colorf1a8ff;
stickline(barpos=a3-ag*18 and 更新 and dd4>0,0,dd4,ag*20,1),colorf1a8ff;
//减
stickline(barpos=a3-ag*3 and 更新 and dd1<0,0,dd1,ag*20,0),colorb9ffbc;
stickline(barpos=a3-ag*8 and 更新 and dd2<0,0,dd2,ag*20,1),colorb9ffbc;
stickline(barpos=a3-ag*13 and 更新 and dd3<0,0,dd3,ag*20,1),colorb9ffbc;
stickline(barpos=a3-ag*18 and 更新 and dd4<0,0,dd4,ag*20,1),colorb9ffbc;
//显示时间
drawtext(barpos=a3-ag*3,0,numtostr(n1,0)+'.'+numtostr(nn1,0)+'.'+numtostr(nn2,0)),colorwhite,align5,pxdn5;
drawtext(barpos=a3-ag*8,0,numtostr(n2,0)+'年'),colorwhite,align5,pxdn5;
drawtext(barpos=a3-ag*13,0,numtostr(n3,0)+'年'),colorwhite,align5,pxdn5;
drawtext(barpos=a3-ag*18,0,numtostr(n4,0)+'年'),colorwhite,align5,pxdn5;
-0.02,color99;


公式五：
报表更新（选股）_港澳
首先要保证f10是最新的（请务必及时更新下载通达信f10）
先建立中报（6.30）更新板块
然后根据报表时间自己设定更新（选股）
input:年(2009,1990,2099) ,月(6,1,12) ,日(30,1,31);
t:=f10find('【每股指标】',1);
t1:=f10find('财务指标(单位)',t);
nx:=f10text(t1+20,4);
ns:=strtonum(nx),linethick0;
yx:=f10text(t1+25,2);
ys:=strtonum(yx),linethick0;
rx:=f10text(t1+28,2);
rs:=strtonum(rx),linethick0;
ns=年 and ys=月 and rs=日;

指标公式下载地址

上一指标公式：吸筹反转KDJ公式 飞狐反转KDJ指标 源码

下一指标公式：特级抄底买不会套-有了它熊市牛市都赚钱公式 飞狐抄底指标 源码

相关飞狐公式推荐

指标公式下载注意

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

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

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

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

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

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

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

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

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

☉ 本文港澳F10副图-迎国庆公式 飞狐港澳指标 源码仅供学习研究。