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

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