.048/12;

Typesetting:-RuleAssistant();

.048/12;

with(Finance,annuity);

20*12;

solve(annuity(payment,0.004,240)=250000,payment);

payment:=(5);

Payment:=payment+200;

balance:=[250000];

Balance:=[250000];

for n to 240 do
a:=nops(balance):
b:=1.004*balance[a]-payment:
balance:=[op(balance),b]:
end do:
a:='a':
b:='b':
nops(balance);

balance[241];

for n to 240 do
a:=nops(Balance):
b:=1.004*Balance[a]-Payment:
Balance:=[op(Balance),b]:
end do:
a:='a':
b:='b':
nops(Balance);

balance[241];

Balance[241];

balance2:=[seq([n-1,balance[n]],n=1..241)];

Balance2:=[seq([n-1,Balance[n]],n=1..241)];

with(plots):

plot1:=listplot(balance2,color=black,thickness=3,gridlines=true,tickmarks=[[seq(40*n,n=0..6)],[seq(25000*n,n=-3..10)]],font=[Helvetica,Bold,9]):

plot2:=listplot(Balance2,color=red,thickness=3,gridlines=true,tickmarks=[[seq(40*n,n=0..6)],[seq(25000*n,n=-3..10)]],font=[Helvetica,Bold,9]):

display(plot1,plot2);

payment;

Payment;

balance2[241];

Balance2[201];

240*payment-250000;

200*Payment-250000;

(21)-(22);