大智慧笑看庄舞第二版,透视主力运作轨迹副图源码，超级机构无处藏身

我们知道财务数据公布是滞后的，这样指标的显示就与时间不同步了，此次升级解决了这个问题。它能让你同步看清历史上超级机构的运作脉络，虽然图形反映的是以前，但可以为你决策提供帮助。特别感谢周易2000老师的“尖端武器”，正是由于用了它才实现了同步问题。另外在副图中又做了显示基金、个人持股的柱状图。
先下载压缩包--解压到大智慧根目录
再用下面的源码公式{

升级版《笑看庄舞》
增仓大股东数:
(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:="REFX@REFX"(增仓大股东数,59 );
减仓大股东数:
(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:=-"REFX@REFX"(减仓大股东数,59);
新进大股东数:
(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:="REFX@REFX"(新进大股东数,59);
未变大股东数:
(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;
基金家数:=(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);
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);
flag