単利と複利の計算

単利・複利計算 - みずぴー日記 にインスパイヤされて、単利と複利の計算をおこなってみます。 単利と複利に関しては、利子 - Wikipedia のところに出ていますので、参考にしてください。

特に難しいところはないのですが、単利計算を行う simple_interest 関数と複利計算を行う compound_interest 関数を作って、関数化しておきます。

#! /usr/local/bin/nawk -f
# interest.awk
# 単利と複利の計算を行います。
# usage: nawk -f interest.awk

BEGIN {
    original_amount = 1000;
    rate            = 0.1;
    year            = 10;

    for (i = 0; i <= year; i++) {
        print simple_interest(original_amount, rate, i), \
              compound_interest(original_amount, rate, i);
    }
}

# simple_interest():    単利計算
#   in:     初期値 num
#           利率 rate
#           年数 year
function simple_interest(num, rate, year) {
    return num * (1 + rate * year);
}

# compound_interest():  複利計算
#   in:     初期値 num
#           利率 rate
#           年数 year
function compound_interest(num, rate, year) {
    return num * (1 + rate) ^ year;
}

ここでは比較のため 0 年目から 10 年目までの単利と複利を計算するようにしています。

$ nawk -f interest.awk
1000 1000
1100 1100
1200 1210
1300 1331
1400 1464.1
1500 1610.51
1600 1771.56
1700 1948.72
1800 2143.59
1900 2357.95
2000 2593.74

借金のある身としては、あまり嬉しくない計算でした。

tag_nawk.png tag_nawk.png tag_nawk.png tag_nawk.png