光标历史 十大股东 原码、副图

此公式基本保留原创（不知是谁）格式，本人算改编增加光标显示吧。
应同学要求发出。由于用到大智慧的专业财务函数，并非f10,其他软件无法改编。
此公式应与特定大股东的搜索公式成对使用。
◆★特定大股东的搜索与跟踪分析(大智慧专用财务函数应用、源码、附图、简述)
 

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;
DRAWTE