Example 12
A=10000;
M=3*12;
R=8.9;
r=(R/100)/12;
P=A*(r*(1+r)^M/((1+r)^M-1));
B=zeros(M,1);
Ip=B;
Pr=B;
for m=1:M
if m==1
Ip(m)=r*A;
else
Ip(m)=r*B(m-1);
end
Pr(m)=P-Ip(m);
if m==1
B(m)=A-Pr(m);
else
B(m)=B(m-1)-Pr(m);
end
end
format bank
disp(['Amount = ' num2str(A)])
disp(['Interest Rate = ' num2str(R)])
disp(['Number of Months = ' int2str(M)])
disp(['Payment = ' num2str(P)])
disp(' ')
disp(' Amortization Schedule')
disp(' Payment Balance Interest Principal')
disp([(1:M)' B Ip Pr])
format short g
Example
Amount = 10000
Interest Rate = 8.9
Number of Months = 36
Payment = 317.5321
Amortization Schedule
Payment Balance Interest Principal
Columns 1 through 3
1.00 9756.63 74.17
2.00 9511.46 72.36
3.00 9264.48 70.54
4.00 9015.65 68.71
5.00 8764.99 66.87
6.00 8512.46 65.01
7.00 8258.07 63.13
8.00 8001.78 61.25
9.00 7743.60 59.35
10.00 7483.49 57.43
11.00 7221.47 55.50
12.00 6957.49 53.56
13.00 6691.56 51.60
14.00 6423.66 49.63
15.00 6153.77 47.64
16.00 5881.88 45.64
17.00 5607.97 43.62
18.00 5332.03 41.59
19.00 5054.04 39.55
20.00 4773.99 37.48
21.00 4491.87 35.41
22.00 4207.65 33.31
23.00 3921.33 31.21
24.00 3632.88 29.08
25.00 3342.29 26.94
26.00 3049.55 24.79
27.00 2754.63 22.62
28.00 2457.53 20.43
29.00 2158.22 18.23
30.00 1856.70 16.01
31.00 1552.94 13.77
32.00 1246.92 11.52
33.00 938.64 9.25
34.00 628.07 6.96
35.00 315.19 4.66
36.00 -0.00 2.34
Column 4
243.37
245.17
246.99
248.82
250.67
252.53
254.40
256.28
258.19
260.10
262.03
263.97
265.93
267.90
269.89
271.89
273.91
275.94
277.99
280.05
282.12
284.22
286.33
288.45
290.59
292.74
294.91
297.10
299.31
301.53
303.76
306.01
308.28
310.57
312.87
315.19
Please send questions or suggestions about this web page to beatnic@aset.psu.edu
ASET | ITS | Penn State
|
