INPUT:N(2011,1990,3000),Y(9,1,12);
增仓大股东数:
(STRTONUM( PFSTR(4004,0))>0)+
(STRTONUM( PFSTR(4014,0))>0)+
(STRTONUM( PFSTR(4024,0))>0)+
(STRTONUM( PFSTR(4034,0))>0)+
(STRTONUM( PFSTR(4044,0))>0)+
(STRTONUM( PFSTR(4054,0))>0)+
(STRTONUM( PFSTR(4064,0))>0)+
(STRTONUM( PFSTR(4074,0))>0)+
(STRTONUM( PFSTR(4084,0))>0)+
(STRTONUM( PFSTR(4094,0))>0),coloryellow,LINETHICK0;
aa:=增仓大股东数;
减仓大股东数:
(STRTONUM( PFSTR(4004,0))<0)+
(STRTONUM( PFSTR(4014,0))<0)+
(STRTONUM( PFSTR(4024,0))<0)+
(STRTONUM( PFSTR(4034,0))<0)+
(STRTONUM( PFSTR(4044,0))<0)+
(STRTONUM( PFSTR(4054,0))<0)+
(STRTONUM( PFSTR(4064,0))<0)+
(STRTONUM( PFSTR(4074,0))<0)+
(STRTONUM( PFSTR(4084,0))<0)+
(STRTONUM( PFSTR(4094,0))<0),colorgreen,LINETHICK0;
bb:=-减仓大股东数;
新进大股东数:
(STRCMP( PFSTR(4004,0), '新进')=0)+
(STRCMP( PFSTR(4014,0), '新进')=0)+
(STRCMP( PFSTR(4024,0), '新进')=0)+
(STRCMP( PFSTR(4034,0), '新进')=0)+
(STRCMP( PFSTR(4044,0), '新进')=0)+
(STRCMP( PFSTR(4054,0), '新进')=0)+
(STRCMP( PFSTR(4064,0), '新进')=0)+
(STRCMP( PFSTR(4074,0), '新进')=0)+
(STRCMP( PFSTR(4084,0), '新进')=0)+
(STRCMP( PFSTR(4094,0), '新进')=0),colorff00ff,layer7,LINETHICK0;
cc:=新进大股东数;
未变大股东数:
(STRCMP( PFSTR(4004,0), '未变')=0)+
(STRCMP( PFSTR(4014,0), '未变')=0)+
(STRCMP( PFSTR(4024,0), '未变')=0)+
(STRCMP( PFSTR(4034,0), '未变')=0)+
(STRCMP( PFSTR(4044,0), '未变')=0)+
(STRCMP( PFSTR(4054,0), '未变')=0)+
(STRCMP( PFSTR(4064,0), '未变')=0)+
(STRCMP( PFSTR(4074,0), '未变')=0)+
(STRCMP( PFSTR(4084,0), '未变')=0)+
(STRCMP( PFSTR(4094,0), '未变')=0),colorwhite,LINETHICK0;
flag1:=ABS(ABS(STRCMP( STRLEFT(PFstr(4001,0),8),STRRIGHT(PFstr(4001,0),8)))-1);
flag2:=ABS(ABS(STRCMP( STRLEFT(PFstr(4011,0),8),STRRIGHT(PFstr(4011,0),8)))-1);
flag3:=ABS(ABS(STRCMP( STRLEFT(PFstr(4021,0),8),STRRIGHT(PFstr(4021,0),8)))-1);
flag4:=ABS(ABS(STRCMP( STRLEFT(PFstr(4031,0),8),STRRIGHT(PFstr(4031,0),8)))-1);
flag5:=ABS(ABS(STRCMP( STRLEFT(PFstr(4041,0),8),STRRIGHT(PFstr(4041,0),8)))-1);
flag6:=ABS(ABS(STRCMP( STRLEFT(PFstr(4051,0),8),STRRIGHT(PFstr(4051,0),8)))-1);
flag7:=ABS(ABS(STRCMP( STRLEFT(PFstr(4061,0),8),STRRIGHT(PFstr(4061,0),8)))-1);
flag8:=ABS(ABS(STRCMP( STRLEFT(PFstr(4071,0),8),STRRIGHT(PFstr(4071,0),8)))-1);
flag9:=ABS(ABS(STRCMP( STRLEFT(PFstr(4081,0),8),STRRIGHT(PFstr(4081,0),8)))-1);
flag10:=ABS(ABS(STRCMP( STRLEFT(PFstr(4091,0),8),STRRIGHT(PFstr(4091,0),8)))-1);
个人股东:=(flag1+flag2+flag3+flag4+flag5+flag6+flag7+flag8+flag9+flag10);
上期基金家数:=(STRFIND(PFSTR(4001,1),'基金',1)>0)+(STRFIND(PFSTR(4011,1),'基金',1)>0)
+(STRFIND(PFSTR(4021,1),'基金',1)>0)+(STRFIND(PFSTR(4031,1),'基金',1)>0)
+(STRFIND(PFSTR(4041,1),'基金',1)>0)+(STRFIND(PFSTR(4051,1),'基金',1)>0)
+(STRFIND(PFSTR(4061,1),'基金',1)>0)+(STRFIND(PFSTR(4071,1),'基金',1)>0)
+(STRFIND(PFSTR(4081,1),'基金',1)>0)+(STRFIND(PFSTR(4091,1),'基金',1)>0);
基金家数:=(STRFIND(PFSTR(4001,0),'基金',1)>0)+(STRFIND(PFSTR(4011,0),'基金',1)>0)
+(STRFIND(PFSTR(4021,0),'基金',1)>0)+(STRFIND(PFSTR(4031,0),'基金',1)>0)
+(STRFIND(PFSTR(4041,0),'基金',1)>0)+(STRFIND(PFSTR(4051,0),'基金',1)>0)
+(STRFIND(PFSTR(4061,0),'基金',1)>0)+(STRFIND(PFSTR(4071,0),'基金',1)>0)
+(STRFIND(PFSTR(4081,0),'基金',1)>0)+(STRFIND(PFSTR(4091,0),'基金',1)>0);
基金增减:=基金家数-上期基金家数;
其它股东:=10-个人股东-基金家数;
STICKLINE(cc>0 ,0,cc,8.10,0),COLOR0000CC;
STICKLINE(aa>0 ,0,aa,5.10,1),coloryellow;
STICKLINE(bb<0,0,bb,8.10,0),COLORCYAN;
DRAWRECTREL(700,0,1000,1000,RGB(0,0,200));
DRAWTEXTREL(720,100,'■最新周期:'+NUMTOSTRN(N,0)+'年'+NUMTOSTRN(Y,0)+'月'+'====【花儿开了】===='),COLOR0000FF;
DRAWTEXTREL(720,280,'基金家数:'+NUMTOSTRN(基金家数,2)+ '--'+ '基金增减:'+NUMTOSTRN(基金增减,2)),colorgreen;
DRAWTEXTREL(720,460,'【个人股东】:'+NUMTOSTRN(个人股东,2)),coloryellow;
DRAWTEXTREL(720,640,'其它股东:'+NUMTOSTRN(其它股东,2)),colorgreen;
DRAWTEXTREL(720,820,'股票名称:'+'【'+STKLABEL+' '+STKNAME+'】'),coloryellow;
 |
