1、大智慧公募私募公式源码:
INPUT:X1(500,100,1000),Y(80,10,100),M(0);
DRAWGBK(C,Strip(RGB(0,10,160),RGB(00,10,160),0));
股东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);
股东:=股东1+股东2+股东3+股东4+股东5+股东6+股东7+股东8+股东9+股东10;
华夏策略:STRFIND(股东,'华夏策略',1)>0,COLOR0000FF,LINETHICK0;
华夏大盘:STRFIND(股东,'华夏大盘',1)>0,COLOR00FFFF,LINETHICK0;
泰达荷银:STRFIND(股东,'泰达荷银',1)>0,COLORFFFF00,LINETHICK0;
易方达:STRFIND(股东,'易方达',1)>0,COLORFFFFFF,LINETHICK0;
刘芳:STRFIND(股东,'刘芳',1)>0,COLOR0000FF,LINETHICK0;
叶晶:STRFIND(股东,'叶晶',1)>0,COLOR00FF00,LINETHICK0;
黄木顺:STRFIND(股东,'黄木顺',1)>0,COLORFF00FF,LINETHICK0;
陈金霞:STRFIND(股东,'陈金霞',1)>0,COLORFF00FF,LINETHICK0;
{以下设置副图显示方式}
y1:=150;
DRAWTEXTREL(20,20,'股票名称:'+'【'+STKLABEL+'
'+STKNAME+'】'),COLOR00FFFF;DRAWTEXTREL(X1*0.97,40,'增减情况'),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,40,'持股数(万股)'),Color8080FF;DRAWTEXTREL(X1*0.97+250,40,'持股比例(%)'),ColorBFBFFF;
DRAWTEXTREL(20,y1,'1.'+股东1),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1,PFSTR(4004,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1,STR(PFFIN(4002,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1,STR(PFFIN(4003,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*1,'2.'+股东2),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1+y*1,PFSTR(4014,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1+y*1,STR(PFFIN(4012,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1+y*1,STR(PFFIN(4013,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*2,'3.'+股东3),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1+y*2,PFSTR(4024,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1+y*2,STR(PFFIN(4022,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1+y*2,STR(PFFIN(4023,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*3,'4.'+股东4),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1+y*3,PFSTR(4034,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1+y*3,STR(PFFIN(4032,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1+y*3,STR(PFFIN(4033,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*4,'5.'+股东5),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1+y*4,PFSTR(4044,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1+y*4,STR(PFFIN(4042,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1+y*4,STR(PFFIN(4043,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*5,'6.'+股东6),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1+y*5,PFSTR(4054,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1+y*5,STR(PFFIN(4052,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1+y*5,STR(PFFIN(4053,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*6,'7.'+股东7),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1+y*6,PFSTR(4064,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1+y*6,STR(PFFIN(4062,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1+y*6,STR(PFFIN(4063,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*7,'8.'+股东8),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1+y*7,PFSTR(4074,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1+y*7,STR(PFFIN(4072,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1+y*7,STR(PFFIN(4073,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*8,'9.'+股东9),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1+y*8,PFSTR(4084,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1+y*8,STR(PFFIN(4082,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1+y*8,STR(PFFIN(4083,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*9,'10.'+股东10),COLOR00FF00;DRAWTEXTREL(X1*0.97,y1+y*9,PFSTR(4094,M)),COLORFF00FF;DRAWTEXTREL(X1*0.97+100,y1+y*9,STR(PFFIN(4092,M)/10000)),Color8080FF;DRAWTEXTREL(X1*0.97+250,y1+y*9,STR(PFFIN(4093,M))),ColorBFBFFF;
DRAWTEXTREL(20,y1+y*10,'流通股东人数:
'+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;
2、选股:
如选陈金霞,就在公式中建立如下源码:陈金霞:STRFIND(股东,'陈金霞',1)>0,COLORFF00FF,LINETHICK0;如选华夏策略,就建立添加如下:华夏策略:STRFIND(股东,'华夏策略',1)>0,COLOR0000FF,LINETHICK0;
选股条件等于1就可以选股了。
3、相关选股公式图:
|