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;
十大股東合計(jì):gg+gg1+gg2+gg3+gg4+gg5+gg6+gg7+gg8+gg9,LINETHICK0;
bn:=BARSLAST(PFFINTERM(4)<>ref(PFFINTERM(4),1));
大股東變動(dòng)％:(ref(十大股東合計(jì),bn)/ref(十大股東合計(jì),bn+1)-1)*100;
日期:ref(date,bn),LINETHICK0,PRECIS0;
均價(jià):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+'】提示：請(qǐng)按“←→”開(kāi)啟光標(biāo)'),COLOR00FFFF;
DRAWTEXTABS(x2,1, '持股數(shù)（萬(wàn)股）持股比例（%）增減情況(萬(wàn)股)'),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,' 十大股東合計(jì): '+十大股東合計(jì)+' 持股比 '+(十大股東合計(jì)/(100*gg/PFFIN(4003,M)))*100+'%  股東人數(shù): '+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);