home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Archive Magazine 1995
/
ARCHIVE95.iso
/
discs
/
pipeline
/
4_06
/
Iteration
/
Loan
next >
Wrap
Text File
|
1991-02-17
|
2KB
|
174 lines
%OP%TNN
%OP%JUN
%OP%WRN
%OP%DP0
%OP%DFT
%OP%GRY
%OP%PL57
%OP%TM4
%OP%HM0
%OP%FM4
%OP%BM4
%OP%LM8
%OP%RIY
%CO:A,12,72%What monthly payment would need to be made in order to
cover the interest accrued on the principal?
%R%Principal
%V%%R%%D0%1000
%R%Return
%V%%R%A8*(((B8/100)+1)^C8)
Where is the break-even point for a lump sum against
regular monthly payments at the same interest rate?
%R%Lump Sum
%V%%R%1000
%R%Value
%V%%R%A21+(A21*(B21/100))
%V%%R%A25+(A25*(B$21/100))
%V%%R%A26+(A26*(B$21/100))
%V%%R%A27+(A27*(B$21/100))
%V%%R%A28+(A28*(B$21/100))
%V%%R%A29+(A29*(B$21/100))
%V%%R%A30+(A30*(B$21/100))
%V%%R%A31+(A31*(B$21/100))
%V%%R%A32+(A32*(B$21/100))
%V%%R%A33+(A33*(B$21/100))
%CO:B,12,60%
NB Enter data only in "Principal", "Rate"
and "Term" boxes
%R%Rate
%V%%R%10
%R%Repayment
%V%%R%if(loopc=1,E8,F12+(F10/100))
%R%Paid
%V%%R%(B10*12)*C8
%R%Rate
%V%%R%10
áá
%CO:C,12,48%
%R%Term
%V%%R%%D0%3
%R%Value
%V%%R%fv((B10)*12,B8/100,C8)
%R%Saving
%V%%R%C10-B12
%R%Interest
%V%%R%rate(B12,A8,C8*12)*1200
%R%Monthly
%V%%R%25
%R%Value
%V%%R%fv(C$21*12,B$21/100,D26)
%V%%R%fv(C$21*12,B$21/100,D27)
%V%%R%fv(C$21*12,B$21/100,D28)
%V%%R%fv(C$21*12,B$21/100,D29)
%V%%R%fv(C$21*12,B$21/100,D30)
%V%%R%fv(C$21*12,B$21/100,D31)
%V%%R%fv(C$21*12,B$21/100,D32)
%V%%R%fv(C$21*12,B$21/100,D33)
%V%%R%fv(C$21*12,B$21/100,D34)
%CO:D,12,36%
áá
Yrs
áá
áá
á
áá
%R%Year
%V%%R%1
%V%%R%D25+1
%V%%R%D26+1
%V%%R%D27+1
%V%%R%D28+1
%V%%R%D29+1
%V%%R%D30+1
%V%%R%D31+1
%V%%R%D32+1
%V%%R%D33+1
%CO:E,12,24%
%R%Guess
%V%%R%((A8+((A8*B8*C8)/100))/(C8*12))*0.94
%R%Variance
%V%%R%A10-C10
%R%Loop No
%V%%R%loopc
áá
%CO:F,12,12%
á
%V%%R%A8+((A8*B8*C8)/100)
á
%V%%R%sgn(E10)
á
%V%%R%B10
%CO:G,12,0%%CO:H,12,0%%CO:I,12,4%%CO:J,12,0%%CO:K,12,0%%CO:L,12,0%%CO:M,12,0%%CO:N,12,0%%CO:O,12,0%%CO:P,12,0%