自编买房贷款小程序

开洋

好啊,最近正在用matlab,不错的程序,就是有点大,作业要求.

开洋

Zinsen=0.05;
tilgung0=[0.01 0.015 0.02 0.025 0.03];

for jj=1:5
rest(jj,1)=1;
for ii=1:600
rest(jj,ii+1)=rest(jj,ii)-((Zinsen+tilgung0(jj))/12-rest(jj,ii)*Zinsen/12);
if rest(jj,ii+1)<=0
iii(jj)=ii+1;
break;
end
end

average_Zinsen(jj)=0;
for ii=1:iii(jj)
average_Zinsen(jj)=average_Zinsen(jj)+rest(jj,ii);
end
average_Zinsen(jj)=average_Zinsen(jj)/iii(jj)*Zinsen;
average_Zinsen(jj)
end


fp=fopen('loan1.out','w');
fprintf(fp,'%1 %1.5 %2 %2.5 %3\n');
for ii=1:iii(1)
fprintf(fp,'%f %f %f %f %f %f\n',ii,rest(1,ii),rest(2,ii),rest(3,ii),rest(4,ii),rest(5,ii));
end
fclose(fp);

ans =

0.0321


ans =

0.0309


ans =

0.0300


ans =

0.0294


ans =

0.0290

开洋

function loan2()

% the program to calculate the loan interest and time to pay the loan

interest=0.0496;
month_pay=1393.33;
total_loan=220000;
tilgung0=(month_pay*12-total_loan*interest)/total_loan;
tilgung0

rest(1)=1;

for ii=1:4000
rest(ii+1)=rest(ii)-((interest+tilgung0)/12-rest(ii)*interest/12);
if rest(ii+1)<=0
iii=ii+1;
break;
end
end

s=0;
for ii=1:iii
s=s+rest(ii);
end
s=s/iii*interest;
s
end


fp=fopen('loan2.out','w');
for ii=1:iii
fprintf(fp,'%f %fn',ii,rest(ii));
end
fclose(fp);

第27行的end(红)好像不需要写,但我也不是很确定,不过出来的结果是一样的,只是少了warning.