Рассчитать график амортизации обычной 30-летней ипотеки с фиксированной ежемесячной оплатой и принять фиксированную ставку в 12% годовых и первоначальную сумму кредита в 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 лет.