大智慧笑看庄舞副图源码 大资金运作的真实轨迹

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;