- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2004-11-14
|
|
哇,终于更新了!!再送上十大股东统计指标,M变量为年参数,N--N3为报表日参数,可以根据具体需要进行修改。比如2007一季度0330的报表出来时,就需要改为M(2007),M1(2006),N(0330)......
{分析家--专业财务统计}
input:M(2006),M1(2005),N(1231),N1(0330),N2(0630),N3(0930);
{总股本:FINANCE(1), POINTDOT;
流通股:FINANCE(7), POINTDOT;
}
DRAWTEXTREL(0,0,'一:'+PROFSTR(5001,0 )),Color00FFFF;
DRAWTEXTREL(0,175,'二:'+PROFSTR(5007,0)),Color00FFFF;
DRAWTEXTREL(0,350,'三:'+PROFSTR(5013,0)),Color00FFFF;
DRAWTEXTREL(0,525,'四:'+PROFSTR(5019,0)),Color00FFFF;
DRAWTEXTREL(0,680,'五:'+PROFSTR(5025,0)),Color00FFFF;
DRAWTEXTREL(350, 0,''+proffinon(5002,M,N)/10000),ColorFFFFFF;
DRAWTEXTREL(350,175,''+proffinon(5008,M,N)/10000),ColorFFFFFF;
DRAWTEXTREL(350,350,''+proffinon(5014,M,N)/10000),ColorFFFFFF;
DRAWTEXTREL(350,525,''+proffinon(5020,M,N)/10000),ColorFFFFFF;
DRAWTEXTREL(350,680,''+proffinon(5026,M,N)/10000),ColorFFFFFF;
DRAWTEXTREL(450, 0,''+proffinon(5003,M,N)),ColorE7F753;
DRAWTEXTREL(450,175,''+proffinon(5009,M,N)),ColorE7F753;
DRAWTEXTREL(450,350,''+proffinon(5015,M,N)),ColorE7F753;
DRAWTEXTREL(450,525,''+proffinon(5021,M,N)),ColorE7F753;
DRAWTEXTREL(450,680,''+proffinon(5027,M,N)),ColorE7F753;
DRAWTEXTREL(510, 0,'六:'+PROFSTR(5031,0)),Color00FFFF;
DRAWTEXTREL(510,175,'七:'+PROFSTR(5037,0)),Color00FFFF;
DRAWTEXTREL(510,350,'八:'+PROFSTR(5043,0)),Color00FFFF;
DRAWTEXTREL(510,525,'九:'+PROFSTR(5049,0)),Color00FFFF;
DRAWTEXTREL(510,680,'十:'+PROFSTR(5055,0)),Color00FFFF;
DRAWTEXTREL(850, 0,''+proffinon(5032,M,N)/10000),ColorFFFFFF;
DRAWTEXTREL(850,175,''+proffinon(5038,M,N)/10000),ColorFFFFFF;
DRAWTEXTREL(850,350,''+proffinon(5044,M,N)/10000),ColorFFFFFF;
DRAWTEXTREL(850,525,''+proffinon(5050,M,N)/10000),ColorFFFFFF;
DRAWTEXTREL(850,680,''+proffinon(5056,M,N)/10000),ColorFFFFFF;
DRAWTEXTREL(940, 0,''+proffinon(5033,M,N)),ColorE7F753;
DRAWTEXTREL(940,175,''+proffinon(5039,M,N)),ColorE7F753;
DRAWTEXTREL(940,350,''+proffinon(5045,M,N)),ColorE7F753;
DRAWTEXTREL(940,525,''+proffinon(5051,M,N)),ColorE7F753;
DRAWTEXTREL(940,680,''+proffinon(5057,M,N)),ColorE7F753;
DRAWTEXTREL(20,750,'期初股东总户数:'+proffinon(5063,M1,N)),ColorF41CF4;
DRAWTEXTREL(20,800,'三月股东总户数:'+proffinon(5063,M,N1)),ColorF41CF4;
DRAWTEXTREL(20,850,'六月股东总户数:'+proffinon(5063,M,N2)),ColorF41CF4;
DRAWTEXTREL(20,900,'九月股东总户数:'+proffinon(5063,M,N3)),ColorF41CF4;
DRAWTEXTREL(20,950,'期末股东总户数:'+proffinon(5063,M,N)),ColorF41CF4;
期初:=proffinon(5003,M1,N)+
proffinon(5009,M1,N)+
proffinon(5015,M1,N)+
proffinon(5021,M1,N)+
proffinon(5027,M1,N)+
proffinon(5033,M1,N)+
proffinon(5039,M1,N)+
proffinon(5045,M1,N)+
proffinon(5051,M1,N)+
proffinon(5057,M1,N);
第一季:=proffinon(5003,M,N1)+
proffinon(5009,M,N1)+
proffinon(5015,M,N1)+
proffinon(5021,M,N1)+
proffinon(5027,M,N1)+
proffinon(5033,M,N1)+
proffinon(5039,M,N1)+
proffinon(5045,M,N1)+
proffinon(5051,M,N1)+
proffinon(5057,M,N1);
第二季:=proffinon(5003,M,N2)+
proffinon(5009,M,N2)+
proffinon(5015,M,N2)+
proffinon(5021,M,N2)+
proffinon(5027,M,N2)+
proffinon(5033,M,N2)+
proffinon(5039,M,N2)+
proffinon(5045,M,N2)+
proffinon(5051,M,N2)+
proffinon(5057,M,N2);
第三季:=proffinon(5003,M,N3)+
proffinon(5009,M,N3)+
proffinon(5015,M,N3)+
proffinon(5021,M,N3)+
proffinon(5027,M,N3)+
proffinon(5033,M,N3)+
proffinon(5039,M,N3)+
proffinon(5045,M,N3)+
proffinon(5051,M,N3)+
proffinon(5057,M,N3);
期末:=proffinon(5003,M,N)+
proffinon(5009,M,N)+
proffinon(5015,M,N)+
proffinon(5021,M,N)+
proffinon(5027,M,N)+
proffinon(5033,M,N)+
proffinon(5039,M,N)+
proffinon(5045,M,N)+
proffinon(5051,M,N)+
proffinon(5057,M,N);
正收益率:=if(FINANCE(33)>0.01,FINANCE(33)*6,0);
市盈率:=if(FINANCE(33)>0,DYNAINFO(39),0);
蓝筹系数:(正收益率*市盈率)/2,LINETHICK0,COLORGREEN;
三增:第一季-期初,linethick0;
六增:第二季-第一季,linethick0;
九增:第三季-第二季,linethick0;
年前增:期末-第三季,linethick0;
DRAWTEXTREL(200,830,'期初十大股东持股比率总计%:'+M1+N+'【'+期初+'】'),Color1AFF1A;
DRAWTEXTREL(600,830,'第一季十大股东持股比率总计%:'+M+N1+'【'+第一季+'】'),Color1AFF1A;
DRAWTEXTREL(200,900,'第二季十大股东持股比率总计%:'+M+N2+'【'+第二季+'】'),Color1AFF1A;
DRAWTEXTREL(600,900,'第三季十大股东持股比率总计%:'+M+N3+'【'+第三季+'】'),Color1AFF1A;
DRAWTEXTREL(400,970,'期末十大股东持股比率总计%:'+M+N+'【'+期末+'】'),Color1AFF1A;
[ 本帖最后由 zhbsystem 于 2007-4-1 19:43 编辑 ] |
|
|