Saturday, May 10, 2008

Perl 펄, 예금 복리이자 계산 소스; Compound Interest

예금의 복리 이자를 계산하는 소스입니다. 각 기간의 단계별로 원리금을 목록 형태로 만들어서 출력해 줍니다.

아래 소스는 원금($wongum)이 1000000원(백만원)이고, 복리 이자($iza)가 5%이고, for문 속에서 기간($gigan)이 20년(또는 20개월, 또는 20일)으로 지정되어 있습니다. 필요에 따라서 소스를 직접 수정해서 사용해야 합니다.

복리 이자 계산하기
소스 파일명: bogri.pl

#!/usr/bin/perl
use strict; use warnings;

### Compound Interest 복리 이자 계산

# 기간이 짧고, 이율이 낮다면 복리 수익이 오히려 단리 수익보다 낮을 수도 있습니다.
# 복리라고 해서 무조건 좋은 것이 아닙니다.

my $wongum = 1000000; # 원금
my $iza = 5; # 이율 (퍼센트)
my $wonri = 0; # 원리금 (0으로 고정)
my $p_w = 0; # 직전 원리금 (0으로 고정)

for (my $gigan = 1; $gigan <= 20; $gigan++) {
$p_w = compoundInterest($wongum, $iza, $gigan - 1);
$wonri = compoundInterest($wongum, $iza, $gigan);
printf("%4d번째: 원리금=%.0f : %.2f%%수익 (원금=%.0f, 이자=%.0f)\n",
$gigan,
$wonri,
( ($wonri - $wongum) / $wongum ) * 100,
$p_w,
$wonri - $p_w
);
}

# 복리 계산 함수와 공식
sub compoundInterest {
my $P = shift; # 원금
my $r = shift; # 이율 (복리 이자)
my $n = shift; # 기간

return $P * (1 + $r / 100)**$n; # 원리금
}

위의 소스를 도스창에서 실행하면 아래와 같은 결과가 나옵니다. 물론 윈도우에 윈도우용 펄이 설치되어 있어야 합니다. 리눅스나 유닉스에는 기본적으로 펄이 설치되어 있을 것입니다.

D:\Z>bogri.pl
1번째: 원리금=1050000 : 5.00%수익 (원금=1000000, 이자=50000)
2번째: 원리금=1102500 : 10.25%수익 (원금=1050000, 이자=52500)
3번째: 원리금=1157625 : 15.76%수익 (원금=1102500, 이자=55125)
4번째: 원리금=1215506 : 21.55%수익 (원금=1157625, 이자=57881)
5번째: 원리금=1276282 : 27.63%수익 (원금=1215506, 이자=60775)
6번째: 원리금=1340096 : 34.01%수익 (원금=1276282, 이자=63814)
7번째: 원리금=1407100 : 40.71%수익 (원금=1340096, 이자=67005)
8번째: 원리금=1477455 : 47.75%수익 (원금=1407100, 이자=70355)
9번째: 원리금=1551328 : 55.13%수익 (원금=1477455, 이자=73873)
10번째: 원리금=1628895 : 62.89%수익 (원금=1551328, 이자=77566)
11번째: 원리금=1710339 : 71.03%수익 (원금=1628895, 이자=81445)
12번째: 원리금=1795856 : 79.59%수익 (원금=1710339, 이자=85517)
13번째: 원리금=1885649 : 88.56%수익 (원금=1795856, 이자=89793)
14번째: 원리금=1979932 : 97.99%수익 (원금=1885649, 이자=94282)
15번째: 원리금=2078928 : 107.89%수익 (원금=1979932, 이자=98997)
16번째: 원리금=2182875 : 118.29%수익 (원금=2078928, 이자=103946)
17번째: 원리금=2292018 : 129.20%수익 (원금=2182875, 이자=109144)
18번째: 원리금=2406619 : 140.66%수익 (원금=2292018, 이자=114601)
19번째: 원리금=2526950 : 152.70%수익 (원금=2406619, 이자=120331)
20번째: 원리금=2653298 : 165.33%수익 (원금=2526950, 이자=126348)

D:\Z>

위의 소스를 이용하여, 원금 100만원으로 하루 1퍼센트씩 수익을 얻으면 1년 후에 복리로 얼마가 되는지를 계산한 표:
▶▶ 100만원 하루 1퍼센트 복리 이자 1년이면? 계산 표; Compound Interest Table

tag: perl

Perl | 펄

tag: stock

주식 투자 | Stock Market

tag: living

생활의 발견 | Living

0 Comments: