天机论坛

 找回密码
 欢迎注册

QQ登录

只需一步,快速开始

天机股票网 争做最牛的股票资讯集散地 注册 - 常见问题 - 联系方式

你有好料 就来分享 你可以将手中的好料分享赚取金币。 如何获得金币 - 金币回购计划

天天来访问 天天有收获 高端信息区区几个金币就可查看 立即注册 - QQ快速登陆

查看: 1690|回复: 0

[大智慧] F10财务公式---小心地雷的综合公式。可以排序,可以选股

[复制链接]
发表于 2012-7-22 10:59:02 | 显示全部楼层 |阅读模式
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(PFFIN(4003,M))),Color8080FF;DRAWTEXTREL(560,135,STR(PFFIN(4003,1))),colorwhite;DRAWTEXTREL(600,135,PFSTR(4001,1)),COLOR00FF00;DRAWTEXTREL(880,135,'A股:'+capital/100+'万'),COLOR0080FF;
DRAWTEXTREL(20,215,'2'),COLOR00FFFF; DRAWTEXTREL(45,215,PFSTR(4011,M)),COLOR00FF00;DRAWTEXTREL(410,215,PFSTR(4014,M)),COLORFF00FF;DRAWTEXTREL(482,215,STR(PFFIN(4013,M))),Color8080FF;DRAWTEXTREL(560,215,STR(PFFIN(4013,1))),colorwhite;DRAWTEXTREL(600,215,PFSTR(4011,1)),COLOR00FF00;DRAWTEXTREL(880,215,'总股本:'+FINANCE2(35)+'万 '),COLOR0080FF;
DRAWTEXTREL(20,295,'3'),COLOR00FFFF; DRAWTEXTREL(45,295,PFSTR(4021,M)),COLOR00FF00;DRAWTEXTREL(410,295,PFSTR(4024,M)),COLORFF00FF;DRAWTEXTREL(482,295,STR(PFFIN(4023,M))),Color8080FF;DRAWTEXTREL(560,295,STR(PFFIN(4023,1))),colorwhite;DRAWTEXTREL(600,295,PFSTR(4021,1)),COLOR00FF00;DRAWTEXTREL(880,295,'每股收益:'+NUMTOSTRN(FINANCE2(3),2)+'元'),COLOR0080FF;
DRAWTEXTREL(20,375,'4'),COLOR00FFFF; DRAWTEXTREL(45,375,PFSTR(4031,M)),COLOR00FF00;DRAWTEXTREL(410,375,PFSTR(4034,M)),COLORFF00FF;DRAWTEXTREL(482,375,STR(PFFIN(4033,M))),Color8080FF;DRAWTEXTREL(560,375,STR(PFFIN(4033,1))),colorwhite;DRAWTEXTREL(600,375,PFSTR(4031,1)),COLOR00FF00;DRAWTEXTREL(880,375,'每股市盈率:'+NUMTOSTRN(DYNAINFO(39),1)+'倍'),COLOR0080FF;
DRAWTEXTREL(20,455,'5'),COLOR00FFFF; DRAWTEXTREL(45,455,PFSTR(4041,M)),COLOR00FF00;DRAWTEXTREL(410,455,PFSTR(4044,M)),COLORFF00FF;DRAWTEXTREL(482,455,STR(PFFIN(4043,M))),Color8080FF;DRAWTEXTREL(560,455,STR(PFFIN(4043,1))),colorwhite;DRAWTEXTREL(600,455,PFSTR(4041,1)),COLOR00FF00;DRAWTEXTREL(880,455,'每股净资产:'+NUMTOSTRN(FINANCE2(4),2)+'元'),COLOR0080FF;
DRAWTEXTREL(20,535,'6'),COLOR00FFFF; DRAWTEXTREL(45,535,PFSTR(4051,M)),COLOR00FF00;DRAWTEXTREL(410,535,PFSTR(4054,M)),COLORFF00FF;DRAWTEXTREL(482,535,STR(PFFIN(4053,M))),Color8080FF;DRAWTEXTREL(560,535,STR(PFFIN(4053,1))),colorwhite;DRAWTEXTREL(600,535,PFSTR(4051,1)),COLOR00FF00;DRAWTEXTREL(880,535,'销售毛利率:'+NUMTOSTRN(FINANCE2(12),2)+'%'),COLOR0080FF;
DRAWTEXTREL(20,615,'7'),COLOR00FFFF; DRAWTEXTREL(45,615,PFSTR(4061,M)),COLOR00FF00;DRAWTEXTREL(410,615,PFSTR(4064,M)),COLORFF00FF;DRAWTEXTREL(482,615,STR(PFFIN(4063,M))),Color8080FF;DRAWTEXTREL(560,615,STR(PFFIN(4063,1))),colorwhite;DRAWTEXTREL(600,615,PFSTR(4061,1)),COLOR00FF00;DRAWTEXTREL(880,615,'主营收入同比增长:'+NUMTOSTRN(FINANCE2(11),2)+'%'),COLOR0080FF;
DRAWTEXTREL(20,695,'8'),COLOR00FFFF; DRAWTEXTREL(45,695,PFSTR(4071,M)),COLOR00FF00;DRAWTEXTREL(410,695,PFSTR(4074,M)),COLORFF00FF;DRAWTEXTREL(482,695,STR(PFFIN(4073,M))),Color8080FF;DRAWTEXTREL(560,695,STR(PFFIN(4073,1))),colorwhite;DRAWTEXTREL(600,695,PFSTR(4071,1)),COLOR00FF00;DRAWTEXTREL(880,695,'净利润同比增长:'+NUMTOSTRN(FINANCE2(10),2)+'%'),COLOR0080FF;
DRAWTEXTREL(20,775,'9'),COLOR00FFFF; DRAWTEXTREL(45,775,PFSTR(4081,M)),COLOR00FF00;DRAWTEXTREL(410,775,PFSTR(4084,M)),COLORFF00FF;DRAWTEXTREL(482,775,STR(PFFIN(4083,M))),Color8080FF;DRAWTEXTREL(560,775,STR(PFFIN(4083,1))),colorwhite;DRAWTEXTREL(600,775,PFSTR(4081,1)),COLOR00FF00;DRAWTEXTREL(880,775,'每股公积金:'+NUMTOSTRN(FINANCE2(7),2)+'元'),COLOR0080FF;
DRAWTEXTREL(15,855,'10'),COLOR00FFFF;DRAWTEXTREL(45,855,PFSTR(4091,M)),COLOR00FF00;DRAWTEXTREL(410,855,PFSTR(4094,M)),COLORFF00FF;DRAWTEXTREL(482,855,STR(PFFIN(4093,M))),Color8080FF;DRAWTEXTREL(560,855,STR(PFFIN(4093,1))),colorwhite;DRAWTEXTREL(600,855,PFSTR(4091,1)),COLOR00FF00;DRAWTEXTREL(880,855,'每股未分配:'+NUMTOSTRN(FINANCE2(8),2)+'元'),COLOR0080FF;
DRAWTEXTREL(20,950,'  股东人数增减比例:'+STR((PFFIN(4253,M)-PFFIN(4253,M+1))/PFFIN(4253,M+1)*100)+ '   人均持股增减比例: '+STR((PFFIN(4254,M)-PFFIN(4254,M+1))/PFFIN(4254,M+1)*100)+'   十大流通股东占流通股比例:'+NUMTOSTRN(aa,2)+'   前期 股东占流通股比例:'+NUMTOSTRN(bb,2)),COLOR00AAFF;

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则