| |
|
|
|
|
|
|
|
|
|
|
|
每月买入中国银行1000元股票后，20年后成为千万富翁的计算公式：
中国股市从股改后，股市的上涨空间已经无限打开。中国国民经济的高速发展，将使中国股市的每年平均增长率到17%。由于中国银行是中国国家海外银行。在海外有大量的分支机构。中国明年将成为世界第二贸易大国，预计到2010年中国将是世界第一外贸强国。这些业务将主由中国银行完成。中国银行每年的平均增长率将高于中国股市的年平均增长率可达到22%以上。如果投资者买入中国银行，并按零风险的操作方法操作，把短期波动变成利润，将使投资者每年提高10%的收益率。其结果投资者每年将有32%的复利增长。
下面是我用PASCAL语言为大家编写的一小段程序来计算每月买1000元中国银行股票20年的收益是多少。大家可以用这个程序算一下。
function
Sum(const BaseMoney,IntreYear,Years:double ):double;
{
BaseMoney -
每月存的钱 ，譬如 1000元
IntreYear - 1 + 年收益率 , 譬如 1 + 30% =
1.30
Years - 投资年数（可以是小数），譬如 20年， 或
5.5年
返回 -
届时总资金
运行结果：
Sum(1000,1.32,20) = 11233571.57
Sum(1000,1.31,20) =
9910874.76
Sum(1000,1.30,20) = 8741609.53
}
function
asqrt(const x:Extended; n:Integer):Extended;
begin
result := exp(ln(x)*(1/n));
end;
var
S : double;
IntreMonth : double; { 折算成月利率
}
i : integer;
begin
S := 0.0;
IntreMonth :=
asqrt(IntreYear,12); { 年收益折算成月收益 }
for i := 0 to
trunc(Years*12)-1 do
begin
S := (S + BaseMoney
)*IntreMonth;
end;
result :=
S;
end;
|
|
|
|
|
|
|
|