| |
|
|
|
|
|
|
|
|
| 2007-03-30 周佛郎 來源:經(jīng)濟參考報網(wǎng) |
|
|
每月買入中國銀行1000元股票后，20年后成為千萬富翁的計算公式：
中國股市從股改后，股市的上漲空間已經(jīng)無限打開。中國國民經(jīng)濟的高速發(fā)展，將使中國股市的每年平均增長率到17%。由于中國銀行是中國國家海外銀行。在海外有大量的分支機構(gòu)。中國明年將成為世界第二貿(mào)易大國，預(yù)計到2010年中國將是世界第一外貿(mào)強國。這些業(yè)務(wù)將主由中國銀行完成。中國銀行每年的平均增長率將高于中國股市的年平均增長率可達到22%以上。如果投資者買入中國銀行，并按零風險的操作方法操作，把短期波動變成利潤，將使投資者每年提高10%的收益率。其結(jié)果投資者每年將有32%的復(fù)利增長。
下面是我用PASCAL語言為大家編寫的一小段程序來計算每月買1000元中國銀行股票20年的收益是多少。大家可以用這個程序算一下。
function
Sum(const BaseMoney,IntreYear,Years:double ):double;
{
BaseMoney -
每月存的錢 ，譬如 1000元
IntreYear - 1 + 年收益率 , 譬如 1 + 30% =
1.30
Years - 投資年數(shù)（可以是小數(shù)），譬如 20年， 或
5.5年
返回 -
屆時總資金
運行結(jié)果：
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;
|
|
|
|
|
|
|
|