home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / m / mcademo2.zip / MORTGAGE.MCD / MORTGAGE.MCD
Text File  |  1991-06-26  |  6KB  |  252 lines
  1. .MCD 30001 1 74
  2. .CMD PLOTFORMAT
  3. 0 0 1 0 0
  4. 0 0 1 0 0
  5. 0 1 0 0 NO-TRACE-STRING
  6. 0 2 1 0 NO-TRACE-STRING
  7. 0 3 2 0 NO-TRACE-STRING
  8. 0 4 3 0 NO-TRACE-STRING
  9. 0 1 4 0 NO-TRACE-STRING
  10. 0 2 5 0 NO-TRACE-STRING
  11. 0 3 6 0 NO-TRACE-STRING
  12. 0 4 0 0 NO-TRACE-STRING
  13. 0 1 1 0 NO-TRACE-STRING
  14. 0 2 2 0 NO-TRACE-STRING
  15. 0 3 3 0 NO-TRACE-STRING
  16. 0 4 4 0 NO-TRACE-STRING
  17. 0 1 5 0 NO-TRACE-STRING
  18. 0 2 6 0 NO-TRACE-STRING
  19. 0 3 0 0 NO-TRACE-STRING
  20. 0 4 1 0 NO-TRACE-STRING
  21. 0 1 21 15
  22.  
  23. .CMD FORMAT  rd=d ct=10 im=i et=12 zt=15 pr=2 mass length time charge
  24. .CMD SET ORIGIN 0
  25. .CMD SET TOL 0.001000000000000
  26. .CMD SET PRNCOLWIDTH 8
  27. .CMD SET PRNPRECISION 4
  28. .CMD PRINT_SETUP 1.200000 0
  29. .CMD DEFINE_FONTSTYLE_NAME fontID=0 name=Variables
  30. .CMD DEFINE_FONTSTYLE_NAME fontID=1 name=Constants
  31. .CMD DEFINE_FONTSTYLE_NAME fontID=2 name=Text
  32. .CMD DEFINE_FONTSTYLE_NAME fontID=3 name=Greek^Variables
  33. .CMD DEFINE_FONTSTYLE_NAME fontID=4 name=User^1
  34. .CMD DEFINE_FONTSTYLE_NAME fontID=5 name=User^2
  35. .CMD DEFINE_FONTSTYLE_NAME fontID=6 name=User^3
  36. .CMD DEFINE_FONTSTYLE_NAME fontID=7 name=User^4
  37. .CMD DEFINE_FONTSTYLE_NAME fontID=8 name=User^5
  38. .CMD DEFINE_FONTSTYLE_NAME fontID=9 name=User^6
  39. .CMD DEFINE_FONTSTYLE fontID=0 family=Tms^Rmn points=10 bold=0 italic=0 underline=0
  40. .CMD DEFINE_FONTSTYLE fontID=1 family=Tms^Rmn points=10 bold=0 italic=0 underline=0
  41. .CMD DEFINE_FONTSTYLE fontID=2 family=Helv points=10 bold=0 italic=0 underline=0
  42. .CMD DEFINE_FONTSTYLE fontID=3 family=Symbol points=10 bold=0 italic=0 underline=0
  43. .CMD DEFINE_FONTSTYLE fontID=4 family=Helv points=10 bold=0 italic=0 underline=0
  44. .CMD DEFINE_FONTSTYLE fontID=5 family=Courier points=10 bold=0 italic=0 underline=0
  45. .CMD DEFINE_FONTSTYLE fontID=6 family=System points=10 bold=0 italic=0 underline=0
  46. .CMD DEFINE_FONTSTYLE fontID=7 family=Script points=10 bold=0 italic=0 underline=0
  47. .CMD DEFINE_FONTSTYLE fontID=8 family=Terminal points=0 bold=0 italic=0 underline=0
  48. .CMD DEFINE_FONTSTYLE fontID=9 family=Modern points=10 bold=0 italic=0 underline=0
  49. .CMD UNITS U=1
  50. .TXT 2 1 0 0
  51. C a308,308,129
  52. {\rtf1\ansi \deff0
  53. {\fonttbl
  54. {\f0\fnil Helv;}
  55. }
  56. {\plain {}{\f0 \fs24 \b \i \ulnone }{}{\f0 
  57. \fs24 \b \i \ulnone }{}{\f0 \fs24 \b \i 
  58. \ulnone }{}{\f0 \fs24 \b \i \ulnone HOME
  59.  MORTGAGE CALCULATIONS}{}}
  60. }
  61. .TXT 3 0 0 0
  62. C a270,391,54
  63. {\rtf1\ansi \deff0
  64. {\fonttbl
  65. {\f0\fnil Helv;}
  66. }
  67. {\plain {}{First, define some convenient
  68.  abbreviations ...}{}}
  69. }
  70. .EQN 0 51 0 0
  71. mo:1
  72. .EQN 0 11 0 0
  73. yr:12*mo
  74. .TXT 3 -62 0 0
  75. C a165,213,36
  76. {\rtf1\ansi \deff0
  77. {\fonttbl
  78. {\f0\fnil Helv;}
  79. }
  80. {\plain {}{Set up parameters of loan ...}{}}
  81. }
  82. .EQN 0 30 0 0
  83. House_price:120000
  84. .EQN 0 23 0 0
  85. Down_pmt:20000
  86. .EQN 3 -23 0 0
  87. Loan_amount:House_price-Down_pmt
  88. .EQN 4 -30 0 0
  89. last:15
  90. .TXT 0 8 0 0
  91. C a136,138,24
  92. {\rtf1\ansi \deff0
  93. {\fonttbl
  94. {\f0\fnil Helv;}
  95. }
  96. {\plain {}{(number of years)}{}}
  97. }
  98. .EQN 0 15 0 0
  99. N:last*yr
  100. .TXT 0 11 0 0
  101. C a112,114,21
  102. {\rtf1\ansi \deff0
  103. {\fonttbl
  104. {\f0\fnil Helv;}
  105. }
  106. {\plain {}{(term of loan)}{}}
  107. }
  108. .EQN 0 13 0 0
  109. i:10*(%)/(yr)
  110. .TXT 0 10 0 0
  111. C a120,122,22
  112. {\rtf1\ansi \deff0
  113. {\fonttbl
  114. {\f0\fnil Helv;}
  115. }
  116. {\plain {}{(interest rate)}{}}
  117. }
  118. .TXT 5 -57 0 0
  119. C a194,232,39
  120. {\rtf1\ansi \deff0
  121. {\fonttbl
  122. {\f0\fnil Helv;}
  123. }
  124. {\plain {}{Compute the monthly  payment 
  125. ...}{}}
  126. }
  127. .EQN 1 30 0 0
  128. payment:Loan_amount*i*(((1+i))^(N))/(((1+i))^(N)-1)
  129. .TXT 5 24 0 0
  130. C a136,138,38
  131. {\rtf1\ansi \deff0
  132. {\fonttbl
  133. {\f0\fnil Helv;}
  134. }
  135. {\plain {}{Payments through term of loan.}{}}
  136. }
  137. .TXT 1 -54 0 0
  138. C a214,231,42
  139. {\rtf1\ansi \deff0
  140. {\fonttbl
  141. {\f0\fnil Helv;}
  142. }
  143. {\plain {}{Now compute a table of payments
  144.  ...}{}}
  145. }
  146. .EQN 0 30 0 0
  147. payment=?_n_u_l_l_
  148. .EQN 0 16 0 0
  149. j:1;N
  150. .EQN 4 -5 0 0
  151. (balance)[(0):Loan_amount
  152. .TXT 1 -41 0 0
  153. C a312,314,105
  154. {\rtf1\ansi \deff0
  155. {\fonttbl
  156. {\f0\fnil Helv;}
  157. }
  158. {\plain {}{To compute monthly balance, start
  159.  with Loan amount and each month add interest,
  160.  subtract payment.}{}}
  161. }
  162. .EQN 3 40 0 0
  163. (balance)[(j):(balance)[(j-1)*(1+i)-payment
  164. .TXT 5 -40 0 0
  165. C a352,354,59
  166. {\rtf1\ansi \deff0
  167. {\fonttbl
  168. {\f0\fnil Helv;}
  169. }
  170. {\plain {}{Also compute principal and interest
  171.  in each payment.}{}}
  172. }
  173. .EQN 4 0 0 0
  174. (int)[(j):(balance)[(j-1)*i
  175. .EQN 0 16 0 0
  176. (p)[(j):payment-(int)[(j)
  177. .EQN 0 18 0 0
  178. (equity)[(j):House_price-(balance)[(j)
  179. .TXT 5 -34 0 0
  180. C a312,314,46
  181. {\rtf1\ansi \deff0
  182. {\fonttbl
  183. {\f0\fnil Helv;}
  184. }
  185. {\plain {}{Choose eight sample months in
  186.  the loan:}{}}
  187. }
  188. .EQN 0 32 0 0
  189. samp:1;8
  190. .EQN 2 13 0 0
  191. (MO)[(samp):1,2,1*yr,1*yr+1,2*yr,2*yr+1,last*yr-1,last*yr
  192. .TXT 19 -45 0 0
  193. C a352,354,51
  194. {\rtf1\ansi \deff0
  195. {\fonttbl
  196. {\f0\fnil Helv;}
  197. }
  198. {\plain {}{Table of values for the eight
  199.  sample months:}{}}
  200. }
  201. .TXT 5 0 0 0
  202. C a568,570,118
  203. {\rtf1\ansi \deff0
  204. {\fonttbl
  205. {\f0\fnil Helv;}
  206. }
  207. {\plain {}{\f0 \fs20 \b0 \i0 \ul MONTH  
  208.       BALANCE AT END           EQUITY   
  209.        INTEREST PAID        PRINCIPAL PAID}{}}
  210. }
  211. .EQN 3 11 0 0
  212. (balance)[((MO)[(samp))=
  213. .EQN 0 16 0 0
  214. (equity)[((MO)[(samp))=
  215. .EQN 0 14 0 0
  216. (int)[((MO)[(samp))=
  217. .EQN 0 16 0 0
  218. (p)[((MO)[(samp))=
  219. .EQN 1 -56 0 0
  220. (MO)[(samp)=
  221. .EQN 22 23 0 0
  222. House_price&0&(equity)[(j),(balance)[(j)@last*yr&0&j
  223. 0 0 0 1 0
  224. 0 0 0 1 0
  225. 0 1 0 5 NO-TRACE-STRING
  226. 0 2 1 0 NO-TRACE-STRING
  227. 0 3 2 0 NO-TRACE-STRING
  228. 0 4 3 0 NO-TRACE-STRING
  229. 0 1 4 0 NO-TRACE-STRING
  230. 0 2 5 0 NO-TRACE-STRING
  231. 0 3 6 0 NO-TRACE-STRING
  232. 0 4 0 0 NO-TRACE-STRING
  233. 0 1 1 0 NO-TRACE-STRING
  234. 0 2 2 0 NO-TRACE-STRING
  235. 0 3 3 0 NO-TRACE-STRING
  236. 0 4 4 0 NO-TRACE-STRING
  237. 0 1 5 0 NO-TRACE-STRING
  238. 0 2 6 0 NO-TRACE-STRING
  239. 0 3 0 0 NO-TRACE-STRING
  240. 0 4 1 0 NO-TRACE-STRING
  241. 0 1 30 16
  242.  
  243. .TXT 5 -22 0 0
  244. C a128,130,50
  245. {\rtf1\ansi \deff0
  246. {\fonttbl
  247. {\f0\fnil Helv;}
  248. }
  249. {\plain {}{Plot equity and loan balance 
  250. over time ...}{}}
  251. }
  252.