我来继续点燃国庆学习的热潮F10主图公式下载 飞狐我来热潮指标 源码

指标公式详细说明

input:几月(1,1,6),牛人(1),进日期(91120,90000,100000),n(1,0,10);
{找股东---------港澳资讯f10用}
股东名称:='刘芳';{选填要找的股东名称}
////********//////////
当前月:=month;
季末:=sumbars(cross(mod(当前月,3),0.5),1);
vertline(cross(mod(当前月,3),0.5)),linedashdot,color888888;
当季均价:=ma(c,季末),linethick;
上季均价:=ref(当季均价,季末),linethick;
估算成本:=上季均价*(10-0.618)/10,linethick;
季均涨幅:=(hhv(当季均价,季末)-上季均价)/上季均价*100,linethick;
月均价:=ma(c,sumbars(当前月<>ref(当前月,1),1)),linethick0;
上月均价:=ref(月均价,sumbars(当前月<>ref(当前月,1),1)),linethick0;
partline(上月均价=ref(上月均价,1),月均价),colorffffff,linethick2;
partline(上月均价=ref(上月均价,1),上月均价),colorffffff,linethick1;
partline(上季均价=ref(上季均价,1),当季均价),colorffbb88,linethick1;
partline(上季均价=ref(上季均价,1),上季均价),colorffbb88,linethick1;;
partline(估算成本=ref(估算成本,1),估算成本),colorccaaaa,linethick1;;
kline(o,h,l,c,0);
{综合评级---------港澳资讯f10用}
{评级说明：
评级系数: 1.0=买入 2.0=增持 3.0=中性 4.0=减持 5.0=卖出
综合评级指数：1.00~1.09买入； 1.10~2.09增持；2.10~3.09中性；3.10~4.09减持；4.10~5.00卖出。}
股票名称:=stkname;
股票代码:=stklabel;
{【高管买卖本公司股票情况】---------港澳资讯f10用}
起0:=f10find('【1.高管买卖本公司股票情况】',1);
起:=f10find('最近一年',起0+20);
止:=f10find('【2.高管列表】',起);
起止2:=f10text(起,止-起);
找职务:=strfind(起止2,'职务',1),linethick0 ;
无数据:=strfind(起止2,'无数据',1),linethick0 ;
if 找职务>0 and 无数据=0 then begin
起1:=f10find('├───┼────┼────┼────┼───┼─────┼──────┤',起+20);
起｜1:=f10find('｜',起1);
起｜2:=f10find('｜',起｜1+2);
起｜3:=f10find('｜',起｜2+2);
起｜4:=f10find('｜',起｜3+2);
起｜5:=f10find('｜',起｜4+2);
起｜6:=f10find('｜',起｜5+2);
起｜7:=f10find('｜',起｜6+2);
起｜8:=f10find('｜',起｜7+2);
姓名:=ltrim(rtrim(f10text(起｜1+2,起｜2-起｜1-2)));
if strcmp(姓名,'姓名')<>0 then begin
职务:=rtrim(f10text(起｜2+2,起｜3-起｜2-2));
变动数:=rtrim(f10text(起｜3+2,起｜4-起｜3-2));
变动后:=rtrim(f10text(起｜4+2,起｜5-起｜4-2));
变动均价:=rtrim(f10text(起｜5+2,起｜6-起｜5-2));
变动日期:=rtrim(f10text(起｜6+2,起｜7-起｜6-2));
变动原因:=rtrim(f10text(起｜7+2,起｜8-起｜7-2));
drawtextex(strcmp(姓名,'')<>0,1,10,10,' 【'+股票代码+股票名称+'高管买卖本公司股票情况】 ' ),color9999ff;
drawtextex(strcmp(姓名,'')<>0,1,10,100,'姓名 职务 变动数 变动后 变动均价 变动日期 变动原因 ' ),colorffffff;
drawtextex(strcmp(姓名,'')<>0,1,10,180, 姓名+' '+职务+变动数+'(股)'+变动后+'(股)'+' ' +变动均价+' ' +变动日期+' ' +变动原因),colorffffff;
年0:=strfind(变动日期,'-',1);
年:=strtonum(strleft(变动日期,年0-1))*10000-20000000;
月0:=strfind(变动日期,'-',5);
月:=strtonum(strmid(变动日期,月0+1,2))*100;
日0:=strright(变动日期,2);
日:=strtonum(日0);
最近进出日期:(年+月+日),coloraaaaaa,linethick0;
找最近进日期:if(strtonum(变动数)>0,(年+月+日),0),colorffffff,linethick0;{选股或排序,选股时选大于日期,如选大于2009年11月20日就填大于91120}
partline(最近进出日期+1000000<date,strtonum(变动均价)),color9999ff,linethick2;
;end;end;
pj起点:=f10find('┌────┬───────────┬──────────────┐｜ ｜ 综合评级 ｜ 评级分布 ｜',1);
pj止点:=f10find('└────┴────┴──────┴──┴──┴──┴──┴──┘',pj起点);
pj起止:=f10text(pj起点,pj止点-pj起点);
前或内:=if(几月=1,'内','前');
时间段:=numtostr(几月,0)+'月'+前或内;{}
时间:=f10find(时间段,1);
pj找到│1:=f10find('｜',时间);
pj找到│2:=f10find('｜',pj找到│1+3);
pj找到│3:=f10find('｜',pj找到│2+3);
pj找到│4:=f10find('｜',pj找到│3+2);

x1:=f10find('市场关注度排名',1);
x2:=f10find('说明：关注度是基于机构研究报告以及各大财经网站个股关注数据经过计算得出。
',x1);
z1:=if(x1>1,f10text(x1,x2-x1),'');
t1:=f10find('第',x1);
t2:=f10find('位 较前日',t1);
z2:=f10text(t1+2,t2-t1-4);
综合评级指数:=ltrim(f10text(pj找到│2+2,pj找到│3-pj找到│2-2));
综合评级:strtonum(ltrim(f10text(pj找到│1+2,pj找到│2-pj找到│1-2))),linethick;{越小越好}
空格:=' ';
《》:=' 【 投 资 评 级 】';
评级说明:=if( 综合评级=0,《》+'\n \n '+股票代码+空格+股票名称+空格+时间段+空格+'没有评级',
《》+'\n \n '+股票代码+' '+股票名称+' '+时间段+' '+
'综合评级 '+numtostr(综合评级,2)+' (越小越好) '+' '+'综合评级指数 '+综合评级指数) ;
drawtextex(综合评级>0 or x1>0,1,10,480,评级说明+'\n \n '+z1),color66ccff;

起点0:=f10find('★本栏包括【1.控股股东与实际控制人】【2.股东变化】【3.基金持股】',1);
起点:=f10find('【2.股东变化】',起点0+20);
止点:=f10find('──────────────┴─────┴─────┴────┴─────',起点);
起止:=f10text(起点,止点-起点);
【】:=strfind(起止,股东名称,1);
if 【】=0 then begin exit;end;
drawtextex(【】>0,1,10,270,' 牛 人 持 股 情 况'),color00ffff;
找到股东:=f10find(股东名称,1);
找到│1:=f10find('｜',找到股东);
找到│2:=f10find('｜',找到│1+3);
找到│3:=f10find('｜',找到│2+3);
找到│4:=f10find('｜',找到│3+2);
持股:=f10text(找到│1+2,找到│2-找到│1-2);
持股:=f10text(找到│1+2,找到│2-找到│1-2);
比例:=strtonum(f10text(找到│2+2,找到│3-找到│2));
进出:=sum(v,季末)/100000*比例*季均涨幅/100;
状态:=ltrim(f10text(找到│4+2,0));
if strtonum(状态)<>0 then begin 增或减:=if(strtonum(状态)>0,'增持','减持');end;
该股东持（万）股:strtonum(持股),linethick;{用排序法}
drawtextex(该股东持（万）股>0,1,10,360,'上季末'+股东名称+'持有'+' '+股票代码+' '+股票名称
+持股+'（万）股,'+''+'占流通股比(%)'+' '+numtostr(比例,2)+' '+'\n \n季均价涨跌幅 '+numtostr(季均涨幅,2)+
' 上季'+增或减+' '+状态+' 本季可能出 '+numtostr(进出,2)+'（万）股'),colorffccdf;

指标公式下载地址

上一指标公式：黄金波段漂亮的艺术般公式下载 飞狐漂亮黄金指标 源码

下一指标公式：移动筹码分布附图公式下载 飞狐筹码附图指标 源码

相关飞狐公式推荐

指标公式下载注意

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

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

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

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

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

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

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

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

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

☉ 本文我来继续点燃国庆学习的热潮F10主图公式下载 飞狐我来热潮指标 源码仅供学习研究。