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,'销shou毛利率:'+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)-PFFI |
评论内容只代表网友观点,与本站立场无关!
本网提供的公式文件说明:
* alg格式飞狐股票公式,可以用飞狐交易师或者交易师软件导入;
* fnc格式大智慧新一代公式指标,可以用大智慧股票软件使用,少部分可以用分析家股票软件引入使用;
* exp格式大智慧经典版股票公式,仅可以用大智慧经典版股票软件引入使用;
* tni和tnc格式通达信股票公式,仅可以用通达信新引入使用,例如可以用通达信股票软件引入使用;
* tne,tn6格式通达信公式,可以用通达信公式编辑器5.0版导入,推荐通达信金融终端版本;
* hxf格式同花顺股票公式,仅可以用同花顺股票软件引入使用。
以上的各种软件都可以在本网股票软件栏目找到!
* 关于股票公式时间限制,如果在引入大智慧公式,交易师公式或者飞狐公式的时候,发现公式名称栏是空白的,这时候调整电脑时间到1997年,又能出现公式名称,并且能正常显示,可能是公式使用期限已过。
* 关于还原公式源码如果你忘记了自己编写的大智慧公式,通达信公式,同花顺公式,操盘手公式,飞狐公式,博易大师公式,金字塔公式,文华公式和交易师公式等等公式的密码,本网可帮恢复源码,有.偿.服.务无意勿扰,点击在线咨询联系我。
* 关于股票公式源码编辑
本网提供的源码,一般都可以编辑成公式,如果不明白公式的编辑,在本页右侧教程录像可参考,或者找公式教程资料学习,请搜索:教程
* 如果您发现软件内容或者链接错误,请点击报告错误谢谢!
* 站内提供的所有软件包含源码均是由网上搜集,若侵犯了你的版权利益,请联系通知我们!