天机论坛

标题: ◆可以不顶★不相信你不用－－光标历史《十大股东》（原码、副图） [打印本页]

作者: 股票王 时间: 2011-9-8 17:06
标题: ◆可以不顶★不相信你不用－－光标历史《十大股东》（原码、副图）
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);
公式下载地址：

光标历史.rar (11.98 KB, 下载次数: 0)

欢迎光临天机论坛 (http://www.tjgp.com/)