光标历史《十大股东》（原码、副图）

更新时间：2011-09-08 08:21:00
指标功能：国产软件
公式大小：0 Bytes
解压密码：goodgupiao
推荐星级：
授权方式：共享版
公式分类：大智慧L2公式
指标类型：简体中文
运行环境：Win2000/WinXP/Win2003/
所需积分：0
相关Tags：

光标历史《十大股东》（原码、副图）介绍

好股网(www.goodgupiao.com)提示：您正在下载的是：光标历史《十大股东》（原码、副图）

INPUT:M(0),X1(14);
y:=15;y1:=15; x2:=x1+370;
股东1:=PFSTR(4001,M); 股东2:=PFSTR(4011,M); 股东3:=PFSTR(4021,M);
股东4:=PFSTR(4031,M); 股东5:=PFSTR(4041,M); 股东6:=PFSTR(4051,M);
股东7:=PFSTR(4061,M); 股东8:=PFSTR(4071,M); 股东9:=PFSTR(4081,M);
股东10:=PFSTR(4091,M);
gg:=PFFIN(4002,M)/10000; gg1:=PFFIN(4012,M)/10000;gg2:=PFFIN(4022,M)/10000;
gg3:=PFFIN(4032,M)/10000;gg4:=PFFIN(4042,M)/10000;gg5:=PFFIN(4052,M)/10000;
gg6:=PFFIN(4062,M)/10000;gg7:=PFFIN(4072,M)/10000;gg8:=PFFIN(4082,M)/10000;
gg9:=PFFIN(4092,M)/10000;
十大股东合计:gg+gg1+gg2+gg3+gg4+gg5+gg6+gg7+gg8+gg9,LINETHICK0;
bn:=BARSLAST(PFFINTERM(4)<>ref(PFFINTERM(4),1));
大股东变动％:(ref(十大股东合计,bn)/ref(十大股东合计,bn+1)-1)*100;
日期:ref(date,bn),LINETHICK0,PRECIS0;
均价:ma(c,bn+1),LINETHICK0;
ga:=PFSTR(4004,M);ga1:=PFSTR(4014,M);ga2:=PFSTR(4024,M);
ga3:=PFSTR(4034,M);ga4:=PFSTR(4044,M);ga5:=PFSTR(4054,M);
ga6:=PFSTR(4064,M);ga7:=PFSTR(4074,M);ga8:=PFSTR(4084,M);
ga9:=PFSTR(4094,M);

DRAWTEXTABS(x1,1,' 股票名称:'+'【'+STKLABEL+' '+STKNAME+'】提示：请按“←→”开启光标'),COLOR00FFFF;
DRAWTEXTABS(x2,1, '持股数（万股）持股比例（%）增减情况(万股)'),Color8080FF;
DRAWTEXTABS(x1,y,' 1.'+股东1),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*1,' 2.'+股东2),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*2,' 3.'+股东3),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*3,' 4.'+股东4),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*4,' 5.'+股东5),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*5,' 6.'+股东6),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*6,' 7.'+股东7),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*7,' 8.'+股东8),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*8,' 9.'+股东9),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*9,'10.'+股东10),COLOR00FF00;

DRAWTEXTABS(x2,y1, ' '+strleft(str(gg)+' ',13)+PFFIN(4003,M)+' '+ga),COLOR00FF00;
DRAWTEXTABS(x2,y1+y*1,' '+strleft(str(gg1)+' ',13)+PFFIN(4013,M)+' '+ga1),COLOR00FF00;
DRAWTEXTABS(x2,y1+y*2,' '+strleft(str(gg2)+' ',13)+PFFIN(4023,M)+' '+ga2),COLOR00FF00;
DRAWTEXTABS(x2,y1+y*3,' '+strleft(str(gg3)+' ',13)+PFFIN(4033,M)+' '+ga3),COLOR00FF00;
DRAWTEXTABS(x2,y1+y*4,' '+strleft(str(gg4)+' ',13)+PFFIN(4043,M)+' '+ga4),COLOR00FF00;
DRAWTEXTABS(x2,y1+y*5,' '+strleft(str(gg5)+' ',13)+PFFIN(4053,M)+' '+ga5),COLOR00FF00;
DRAWTEXTABS(x2,y1+y*6,' '+strleft(str(gg6)+' ',13)+PFFIN(4063,M)+' '+ga6),COLOR00FF00;
DRAWTEXTABS(x2,y1+y*7,' '+strleft(str(gg7)+' ',13)+PFFIN(4073,M)+' '+ga7),COLOR00FF00;
DRAWTEXTABS(x2,y1+y*8,' '+strleft(str(gg8)+' ',13)+PFFIN(4083,M)+' '+ga8),COLOR00FF00;
DRAWTEXTABS(x2,y1+y*9,' '+strleft(str(gg9)+' ',13)+PFFIN(4093,M)+' '+ga9),COLOR00FF00;
DRAWTEXTABS(x1,y1+y*10,' 十大股东合计: '+十大股东合计+' 持股比 '+(十大股东合计/(100*gg/PFFIN(4003,M)))*100+'% 股东人数: '+STR(PFFIN(4253,M))
+' 与上期增加:'+STR(PFFIN(4253,M)-PFFIN(4253,M+1))+'户人均持股: '+STR(PFFIN(4254,M))
+' 增加持股: '+STR(PFFIN(4254,M)-PFFIN(4254,M+1))+'户'),COLOR00AAFF;
x:=BARSLAST(DISPSTATUS=1)+1;
bb:='<*t=0092F7*>'+datestr(date)+'十大股东\n<*c=ffffff*> 1.'+股东1+' ' + '<*c=0088ff*> '+ga+'\n2.'+股东2+' '+ga1+'\n3.'+股东3+' '+ga2+'\n4.'
+股东4+' '+ga3+'\n5.'+股东5+' '+ga4+'\n6.'+股东6+' '+ga5+'\n7.'+股东7+
' '+ga6+'\n8.'+股东8+' '+ga7+'\n9.'+股东9+' '+ga8+'\n10.'+股东10+' '+ga9;
drawflagtext(1,1,bb);

好股网(www.goodgupiao.com)提醒您：股市有风险，投资需谨慎。

光标历史《十大股东》（原码、副图）下载地址

论坛转帖

上一公式：熊牛线指标（源码副图贴图）下一公式：资金流向，我学写公式（源码副图贴图）

下载必看（为了保障您的权益，请在下载指标前务必看清楚相关说明）

网站注册、找回密码、下载过程遇到问题，请您联系或，我们会在第一时间指导反馈。
积分指标使用遇到问题，如指标安装不成功或指标介绍的特点与实际发布的不符，请联系好股网客服进行问题处理。
指标来源网络收集和会员提供，不保证提供的下载资源的准确性、安全性和完整性。请自行谨慎甄别公式相关描述后再下载，好股网不保障和承担使用该指标公式投资带来的一切损失。
指标仅供学习和研究使用，不得用于商业或者非法用途。本站对于提供下载的指标、软件等不拥有任何权利，其版权归该下载资源的合法拥有者所有，如有侵犯您的版权，请查看《侵权投诉》，本站将移除相关内容。