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

我们知道财务数据公布是滞后的，这样指标的显示就与时间不同步了，此次升级解决了这个问题。它能让你同步看清历史上超级机构的运作脉络，虽然图形反映的是以前，但可以为你决策提供帮助。特别感谢周易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);
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);
其它股东:=10-基金家数-个人股东;
持股比例:=PFFIN(4254,0);
比例增减:=(PFFIN(4254,0)-PFFIN(4254,1))/PFFIN(4254,1)*100;
股东增减:=(PFFIN(4253,0)-PFFIN(4253,1))/PFFIN(4253,1)*100;
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(710,180,'【基金】:'+NUMTOSTRN(基金家数,2)),COLOR0000FF;
DRAWTEXTREL(710,380,'【个人】:'+NUMTOSTRN(个人股东,2)),colorgreen;
DRAWTEXTREL(710,560,'【其它】:'+NUMTOSTRN(其它股东,2)),coloryellow;
DRAWTEXTREL(705,740,'股东增减:'+NUMTOSTRN(股东增减,2)+'★'+'持股比例:'+NUMTOSTRN(持股比例,2)+'◆'+'比例增减:'+NUMTOSTRN(比例增减,2)),colorwhite;
W:=BARSLAST(DISPSTATUS=1);
P:=BACKSET(BARSTATUS=2,W/4.5);
K:=BARSLAST(CROSS(P,0.1));
X:=MAX(基金家数,个人股东,其它股东);
Y1:=CEILING((W-K)/12);
STICKLINE(K=Y1*1,0,基金家数,50.8,0),COLORFF00FF;
STICKLINE(K=Y1*2,0,个人股东,50.8,0),COLOR00FF00;
STICKLINE(K=Y1*3,0,其它股东,50.8,0),COLORYELLOW;
0,COLORYELLOW;