飞狐副图,控盘情况。帮助你分析是否有庄

阅读 作者:股海网时间 2014-11-27 飞狐公式

运行平台:飞狐交易师、大交易师、阳光股道
F10支持:F10--------<聚源资讯>。

源码:
a:=F10FIND('【十大流通股东】:',1);a0:=F10FIND('主要指标:',1);
c0:=F10FIND('控盘情况:',a0);hs:=F10FIND('总户数',500);
IF c0>0 THEN BEGIN
bb:=F10TEXT(c0+196,12);bb0:=F10TEXT(c0+9,63);bb1:=F10TEXT(c0+72,63);
bb2:=F10TEXT(c0+134,63);bb3:=F10TEXT(c0+196,63);bb4:=F10TEXT(c0+258,63);
bb5:=F10TEXT(c0+319,63);bb6:=F10TEXT(c0+382,63);bb7:=F10TEXT(c0+445,63);
q1:=F10FIND('201',hs+10);q2:=F10FIND('201',q1+40);
g1:=LTRIM(F10TEXT(q1+14,10));g2:=LTRIM(F10TEXT(q2+14,10));
gd1:=STRTONUM(g1);gd2:=STRTONUM(g2);户数差:=gd1-gd2;
DRAWTEXTex(户数差<0,1,740,130,'市场筹码较上期集中'),color0000FF;
DRAWTEXTex(户数差>0,1,740,130,'市场筹码较上期分散'),color00FF00;
DRAWTEXTEX(c,1,670,0,'报表日期:'+bb+'日'+'   控盘情况');
DRAWTEXTEX(c,1,610,200,''+bb0+' \n'+bb1+' \n'+bb2+' \n'+bb3+' \n'
+bb4+' \n'+bb5+' \n'+bb6+' \n'+bb7+''),COLOR00DDDD;
END;
QSq:=F10FIND('按照资产负债率排名',5000);QSZ:=F10FIND('按照每股收益排名',5000);
GD:=STRTONUM(STRRIGHT(F10TEXT(F10FIND('占流通A股比例:',500),22),8));
a1:=F10FIND(' 1│',a);a2:=F10FIND(' 2│',a1);a3:=F10FIND(' 3│',a2);
a4:=F10FIND(' 4│',a3);a5:=F10FIND(' 5│',a4);a6:=F10FIND(' 6│',a5);
a7:=F10FIND(' 7│',a6);a8:=F10FIND(' 8│',a7);a9:=F10FIND(' 9│',a8);
a10:=F10FIND('10│',a9);hj:=FINANCE(7)/gd1;
DRAWTEXTEX(C,1,130,0,''+F10TEXT(a1,0)+'\n'+F10TEXT(a2,0)+'\n'+F10TEXT(a3,0)
+'\n'+F10TEXT(a4,0)+'\n'+F10TEXT(a5,0)+'\n'+F10TEXT(a6,0)+'\n'+F10TEXT(a7,0)
+'\n'+F10TEXT(a8,0)+'\n'+F10TEXT(a9,0)+'\n'+F10TEXT(a10,0)),color00DDDD;
DRAWTEXTEX(C,1,0,10,'证券代码: '+STKLABEL+'\n\n证券名称:'+STKNAME),color00DDDD;
DRAWTEXTEX(c,1,0,220,'每股收益:'+'第 '+F10TEXT(QSz+50,0)+' 位'),ColorAAAAAA;
DRAWTEXTEX(c,1,0,330,'资产负债:'+'第 '+F10TEXT(QSq+52,0)+' 位'),ColorAAAAAA;
DRAWTEXTEX(C,1,0,440,'户均持股:'+NUMTOSTR(hj,2)+'万股'),ColorAAAAAA;
DRAWTEXTEX(C,1,0,550,'大股东占:'+NUMTOSTR(GD,2)+' %'),ColorAAAAAA;
DRAWTEXTEX(C,1,0,660,''+IF(户数差<0,'户数减少:'+NUMTOSTR(abs(户数差),0)+'户','')),Color0000FF;
DRAWTEXTEX(C,1,0,660,''+IF(户数差>0,'户数增加:'+NUMTOSTR(户数差,0)+'户','')),Color00FF00;

飞狐副图,控盘情况。帮助你分析是否有庄

收藏
全部看法共 0 条
上传会员: 
股海网
上传时间: 
2014-11-27
下载积分: 
-
免责申明: 
请仔细阅读并同意后才能下载
本附件为用户分享上传,股海网没有对文件进行验证,不能保证下载资源的准确性、安全性和完整性,也不保证下载资源能正常安装和使用,且下载后扣除的积分无法退还,除非您充分理解并完全接受本声明,否则您无权下载。
本站对提供下载的软件、指标、资料等不拥有任何权利,其版权归该下载资源的合法拥有者所有。本附件仅供学习和研究,不得用于商业或非法用途,如有侵犯您的版权,请参看 《侵权处理流程》《免责声明条款》
点击下载无反应时,更换手机自带浏览器重登录操作,如华为浏览器,苹果Safari浏览器,第三方浏览器有不兼容现象,或先收藏再到电脑端下载。
同意以上声明才能下载,扣除积分无法退还!
我已知晓! 点我同意 所有条款自愿下载!
如有问题请点关闭提交问题反馈→
关闭

问题反馈 取消