小心地雷的综合公式。可以排序，可以选股指标源码

阅读作者：公式网时间 2012-07-22 00:48:06 大智慧公式

INPUT:X1(500,100,1000),Y(80,10,100),M(0);
动态股东人数:extradata('散户线'),COLOR00C0C0,PRECIS0,LINETHICK1;
季报:PFFINTERM( M),PRECIS0,LINETHICK0;
流通盘万股:=CAPITAL/10000;
aa:=(PFFIN(4002,0)/10000+PFFIN(4012,0)/10000+PFFIN(4022,0)/10000
+PFFIN(4032,0)/10000+PFFIN(4042,0)/10000+PFFIN(4052,0)/10000+PFFIN(4062,0)/10000
+PFFIN(4072,0)/10000+PFFIN(4082,0)/10000+PFFIN(4092,0)/10000)/流通盘万股;
bb:=(PFFIN(4002,1)/10000+PFFIN(4012,1)/10000+PFFIN(4022,1)/10000+PFFIN(4032,1)/10000+PFFIN(4042,1)/10000+PFFIN(4052,1)/10000
+PFFIN(4062,1)/10000+PFFIN(4072,1)/10000+PFFIN(4082,1)/10000+PFFIN(4092,1)/10000)/流通盘万股;

股东增减:(PFFIN(4253,M)-PFFIN(4253,M+1))/PFFIN(4253,M+1)*100,LINETHICK0;
人均增减:(PFFIN(4254,M)-PFFIN(4254,M+1))/PFFIN(4254,M+1)*100,LINETHICK0;
合计增减:(PFFIN(4251,M)-PFFIN(4251,M+1))/PFFIN(4251,M+1)*100,LINETHICK0;
股东占比: PFFIN(4252,M),LINETHICK0,precis2;
筹码集中度:PFFIN(4254,M)/PFFIN(3003,M)*100000,LINETHICK0;
新进大股东数:
(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),linethick0,precis0;
未变大股东数:
(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),linethick0,precis0;
增仓大股东数:
(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),linethick0,precis0;
基金家数:(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),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),LINETHICK0;
其它股东:10-基金家数-个人股东,LINETHICK0;
DRAWRECTREL(0,924,1100,1100,0),COLOR0000C0,LAYER1;
DRAWRECTREL(0,0,1000,1000,0),COLOR0000C0,LAYER1;
DRAWRECTREL(0,0,1100,120,0),COLOR0000C0,LAYER1;
DRAWRECTREL(0,0,40,925,0),COLOR0000C0,LAYER1;DRAWRECTREL(450,0,390,925,0),COLOR0000C0,LAYER1;DRAWRECTREL(590,0,540,925,0),COLOR0000C0,LAYER1;DRAWRECTREL(870,0,540,925,0),COLOR0000C0,LAYER1;
DRAWTEXTREL(5,35,'名次'),COLOR00FFFF;DRAWTEXTREL(120,35,'本期十大股东名称'),COLOR00FFFF;DRAWTEXTREL(405,35,'增减情况'),COLORFF00FF;DRAWTEXTREL(478,35,'持股比例'),Color8080FF;DRAWTEXTREL(550,35,'前期比例'),colorwhite;DRAWTEXTREL(650,35, '前期十大股东名称'),COLOR00FFFF;DRAWTEXTREL(880,35,'股票名称:'+'【'+STKLABEL+' '+STKNAME+'】'),COLOR00FFFF;
DRAWTEXTREL(20,135,'1'),COLOR00FFFF; DRAWTEXTREL(45,135,PFSTR(4001,M)),COLOR00FF00;DRAWTEXTREL(410,135,PFSTR(4004,M)),COLORFF00FF;DRAWTEXTREL(482,135,STR(PF