Вычислите расписание амортизации для обычной 30-летней, ипотеки с фиксированной процентной ставкой с фиксированными ежемесячными платежами и примите фиксированную процентную ставку 12% APR и начальной суммы кредита 100 000$.

Rate         = 0.12/12;   % 12 percent APR = 1 percent per month
NumPeriods   = 30*12;     % 30 years = 360 months
PresentValue = 100000;

[Principal, Interest, Balance, Payment] = amortize(Rate, ...
NumPeriods, PresentValue);

Выходной аргумент Payment содержит фиксированную ежемесячную оплату.

format bank

Payment

Payment = 
       1028.61

Обобщите расписание амортизации графически путем графического вывода текущего баланса непогашенного кредита, совокупного принципала и выплат процентов по жизни ипотеки. В частности, обратите внимание, что общая процентная ставка выплатила жизнь ипотеки, превышает 270 000$, далеко сверх исходной суммы кредита.

plot(Balance,'b'), hold('on')
plot(cumsum(Principal),'--k')
plot(cumsum(Interest),':r')

xlabel('Payment Month')
ylabel('Dollars')
grid('on')
title('Outstanding Balance, Cumulative Principal & Interest')
legend('Outstanding Balance', 'Cumulative Principal', ... 
'Cumulative Interest')

Чисто синяя строка представляет уменьшающийся принципал за 30-летний период. Точечная красная линия указывает на увеличивающиеся платежи накопленных процентов. Наконец, пунктирная черная линия представляет совокупные основные платежи, достигая 100 000$ после 30 лет.