ep6_f1.m

来自「此代码展示了Euler计算方法与差分方法」· M 代码 · 共 19 行

%  Ep6_f1: << 实验六 >>  个人住房抵押贷款 --- 还款周期
%  Designed by FGH

%  本函数计算每次还款额及本息总额, 返回值为本息总额
%  函数参数: q为贷款年数，k为还款次数。
function  out= ep6_f1(q,k)
A0= 10000;
fdk= 1:9;
fdr= 0.135*(fdk-1)+6.12;
for ii=10:20
   fdk(ii)= ii; 
   fdr(ii)= 7.20;   
end
r= q*fdr(q)/k/100;
m= ( A0*r*(1+r)^k )/( (1+r)^k - 1 );
[sprintf('  %d年期贷款，分%d次还款:',q,k),...
 sprintf('  每次还款%9.4f元, 本息总额为%9.2f元。',m,m*k)]
out= m*k;