home *** CD-ROM | disk | FTP | other *** search
/ PC Home 11 / PC_HOME_11.ISO / general / maths / gcemath / ama / am0504e.cha < prev    next >
Encoding:
Text File  |  1994-07-12  |  6.7 KB  |  313 lines
  1. .SET #8(*4, *)
  2. .LET (*#34=#34+#8*) TEXT
  3. .LET (*#24=#24+#6*)
  4. @LAB:SCREEN44
  5. .SCR 0
  6. .SNA(*(.INF 39)0*)
  7. .COL 7,0
  8. .LOC 2,46(*44*)
  9. .COL 0,3
  10. .LOC 5,10(* Parametric Form of the Parabola *)
  11. .PAU(**) #4
  12. .COL 14,0
  13. .LOC 7,11(*The conics form part of a set of curves which are represented*)
  14. .LOC 9,11(*conveniently in parametric form.*)
  15. .PAU(**) #4
  16. .LOC 9,44(*Parametric form is when the*)
  17. .LOC 11,12(*coordinate values x and y are each expressed in terms of a*)
  18. .LOC 13,27(*third variable  -  often  t.*)
  19. .PAU(**) #4
  20. .COL 10,0
  21. .LOC 16,11(*The parabola can be represented this way as:*)
  22. .PAU(**) #4
  23. .COL 11,0
  24. .LOC 19,29(*x  =  at²       y  =  2at*)
  25. .SPE PLAY (*AM050421.SPE*) WAIT
  26. .PAU(**) #4
  27. .COL 0,3
  28. .LOC 24,64(*SPACE >*)
  29. .PAU(*>*)
  30. @LAB:SCREEN45
  31. .SNA(*(.INF 39)0*)
  32. .COL 7,0
  33. .LOC 2,46(*45*)
  34. .COL 11,0
  35. .LOC 4,11(*┌──────────────────┐*)
  36. .LOC 5,11(*│ x = at²  y = 2at │*)
  37. .LOC 6,11(*└──────────────────┘*)
  38. .PAU(**) #4
  39. .COL 14,0
  40. .LOC 8,11(*If you eliminate t from these:*)
  41. .PAU(**) #4
  42. .COL 10,0
  43. .LOC 8,45(*t =*)
  44. .LOC 7,50(*y*)
  45. .LOC 8,49(*──*)
  46. .LOC 9,49(*2a*)
  47. .PAU(**) #4
  48. .COL 14,0
  49. .LOC 8,55(*»*)
  50. .COL 10,0
  51. .LOC 8,58(*x = a.*)
  52. .LOC 7,64(*┌  y ┐²*)
  53. .LOC 9,64(*└ 2a ┘*)
  54. .LOC 8,64(*│ ── │*)
  55. .PAU(**) #4
  56. .COL 14,0
  57. .LOC 12,40(*»*)
  58. .COL 10,0
  59. .LOC 12,45(*x = a.───*)
  60. .LOC 11,52(*y²*)
  61. .LOC 13,51(*4a²*)
  62. .PAU(**) #4
  63. .COL 14,0
  64. .LOC 15,40(*»*)
  65. .COL 11,0
  66. .LOC 15,44(*y² = 4ax*)
  67. .LOC 16,44(*────────*)
  68. .PAU(**) #4
  69. .COL 10,0
  70. .LOC 19,16(*x = at², y = 2at  are called the parametric form of*)
  71. .LOC 21,30(*the parabola  y² = 4ax*)
  72. .SPE PLAY (*AM050422.SPE*) WAIT
  73. .COL 0,3
  74. .LOC 24,64(*C / R >>*)
  75. @SIN(*"C"=L:SCREEN46,"c"=L:SCREEN46,"R"=L:-SCREEN44,"r"=L:-SCREEN44*)
  76. @LAB:SCREEN46
  77. .SNA(*(.INF 39)0*)
  78. .COL 7,0
  79. .LOC 2,46(*46*)
  80. .COL 12,0
  81. .LOC 5,11(*For example:*)
  82. .PAU(**) #4
  83. .COL 14,0
  84. .LOC 7,15(*Given     x = 10t²       y = 20t*)
  85. .PAU(**) #4
  86. .COL 10,0
  87. .LOC 9,27(*= 10.t²        = 2.10.t*)
  88. .PAU(**) #4
  89. .COL 14,0
  90. .LOC 9,59(*»*)
  91. .COL 10,0
  92. .LOC 9,63(*a = 10*)
  93. .PAU(**) #4
  94. .LOC 11,25(*y² = 4.a.x*)
  95. .PAU(**) #4
  96. .COL 14,0
  97. .LOC 11,40(*»*)
  98. .COL 11,0
  99. .LOC 11,44(*y² = 40x*)
  100. .LOC 12,44(*────────*)
  101. .PAU(**) #4
  102. .COL 14,0
  103. .LOC 14,15(*Given     y² = 36x*)
  104. .PAU(**) #4
  105. .LOC 14,40(*»*)
  106. .COL 10,0
  107. .LOC 14,44(*y² = 4.9.x*)
  108. .PAU(**) #4
  109. .COL 14,0
  110. .LOC 14,59(*»*)
  111. .COL 10,0
  112. .LOC 14,63(*a = 9*)
  113. .PAU(**) #4
  114. .COL 11,0
  115. .LOC 16,25(*x = 9t²        y = 18t*)
  116. .LOC 17,25(*──────────────────────*)
  117. .PAU(**) #4
  118. .COL 14,0
  119. .LOC 19,11(*Given that    x = 4t²,  y = 8t   becomes   y² = cx*)
  120. .PAU(**) #4
  121. .COL 10,0
  122. .LOC 21,15(*The value of c is*)
  123. @BEG NOCOUNT
  124. .LET(*#5=#5+#6*)
  125. .LOC 21,33
  126. @REA(*>*)
  127. @RIG(*4*)DECIMAL
  128. .COL 12,0
  129. .LOC 21,40(*Correct, well done.*)
  130. @END
  131. @IF RIGHT L:RIGHT46
  132. @EQU(*#5>#6*):TWICEWRONG46
  133. .COL 13,0
  134. .LOC 21,40(*Incorrect, have a look at the*)
  135. .LOC 22,40(*previous example.*)
  136. .PAU(**) #2
  137. @GOB:SCREEN44
  138. @LAB:TWICEWRONG46
  139. .COL 27,0
  140. .LOC 21,40(*Incorrect, consult your tutor*)
  141. .COL 10,0
  142. .SET #5(*0*)
  143. .SET #10(*SCREEN46Z*)
  144. .PAU(**) #4
  145. .COL 0,3
  146. .LOC 24,64(*SPACE >*)
  147. .PAU(*>*)
  148. @GOT:SCREEN47
  149. @LAB:SCREEN46Z
  150. .SCR 1
  151. .PUT PART=(*AM0504.LIB*)
  152. @GOT:SCREEN47
  153. @LAB:RIGHT46
  154. .SET #5(*0*)
  155. .PUT 250,187 PART=3 PSET
  156. .PAU(**)
  157. @LAB:SCREEN47
  158. .SCR 2
  159. .SNA(*(.INF 39)2*)
  160. .LOC 2,46(*47*)
  161. .LOC 5,11(*Tangent and Normal at (at²,2at)*)
  162. .DRA(*BM73,28C3R259D14L259U14*)
  163. .PAU(**) #4
  164. .LOC 5,50(*Given the parabola  y² = 4ax*)
  165. .PAU(**) #4
  166. .LOC 8,11(*Differentiate:*)
  167. .PAU(**) #4
  168. .LOC 8,33(*2y.*)
  169. .PUT 280,51 PART=20
  170. .LOC 8,40(*= 4a*)
  171. .PAU(**) #4
  172. .LOC 8,50(*»*)
  173. .PUT 424,51 PART=20
  174. .LOC 8,58(*=*)
  175. .LOC 7,60(*2a*)
  176. .LOC 8,60(*──*)
  177. .LOC 9,61(*y*)
  178. .PAU(**) #4
  179. .LOC 8,63(*=*)
  180. .LOC 7,65(*2a*)
  181. .LOC 8,65(*───*)
  182. .LOC 9,65(*2at*)
  183. .PAU(**) #4
  184. .LOC 8,69(*=*)
  185. .LOC 7,72(*1*)
  186. .LOC 8,72(*─*)
  187. .LOC 9,72(*t*)
  188. .PAU(**) #4
  189. .LOC 12,15(*Gradient of tangent  =*)
  190. .PUT 304,86 PART=28
  191. .PAU(**) #4
  192. .LOC 12,46(*Gradient of normal  = - t*)
  193. .PAU(**) #4
  194. .LOC 15,15(*Tangent is:*)
  195. .PAU(**) #4
  196. .LOC 15,31(*y - 2at  =*)
  197. .PUT 336,110 PART=28
  198. .LOC 15,44(*.(x - at²)*)
  199. .PAU(**) #4
  200. .LOC 18,25(*»*)
  201. .LOC 18,30(*ty - 2at² =  x - at²*)
  202. .PAU(**) #4
  203. .LOC 21,25(*»*)
  204. .LOC 21,32(*ty - x  =  at²*)
  205. .DRA(*BM238,156C3R128D16L128U16*)
  206. .PAU(**) #4
  207. .USE PROG=PAUSE.USE
  208. .WIP (4,2)-(23,79) #7
  209. .LOC 2,46(*47a*)
  210. .LOC 16,15(*Normal is:*)
  211. .PAU(**) #4
  212. .LOC 16,30(*y - 2at = - t.(x - at²)*)
  213. .PAU(**) #4
  214. .LOC 18,24(*»*)
  215. .LOC 18,30(*y - 2at = - tx + at*)
  216. .PUT 384,134 PART=29
  217. .PAU(**) #4
  218. .LOC 21,24(*»*)
  219. .LOC 21,31(*y + tx = 2at + at*)
  220. .PUT 376,158 PART=29
  221. .DRA(*BM389,155C3L158D17R158U17*)
  222. .SPE PLAY (*AM050423.SPE*) WAIT
  223. .PUT 500,187 PART=2 PSET
  224. @SIN(*"C"=L:SCREEN48,"c"=L:SCREEN48,"R"=L:-SCREEN47,"r"=L:-SCREEN47*)
  225. @LAB:SCREEN48
  226. .SNA(*(.INF 39)2*)
  227. .LOC 2,46(*48*)
  228. .LOC 5,11(*For example:*)
  229. .PAU(**) #4
  230. .LOC 7,15(*Find the equation of the tangent and the normal to the*)
  231. .LOC 9,15(*parabola  y² = 16x  at the point with parameter t = -3*)
  232. .USE PROG=PAUSE.USE
  233. .LOC 11,5(*Tangent*)
  234. .PAU(**) #4
  235. .LOC 11,15(*Use  ty - x = at²:*)
  236. .PAU(**) #4
  237. .LOC 11,47(*-3.y - x  =  4.(-3)²*)
  238. .PAU(**) #4
  239. .LOC 11,70(*[ a = 4 ]*)
  240. .PAU(**) #4
  241. .LOC 13,32(*»*)
  242. .LOC 13,47(*- 3y - x  =  36*)
  243. .PAU(**) #4
  244. .LOC 15,32(*»*)
  245. .LOC 15,47(*x + 3y + 36 = 0*)
  246. .DRA (*C3BM368,121M490,121*)
  247. .USE PROG=PAUSE.USE
  248. .LOC 17,5(*Normal*)
  249. .PAU(**) #4
  250. .LOC 17,15(*Use  y + tx = 2at + at*)
  251. .PUT 288,126 PART=29
  252. .LOC 17,38(*:*)
  253. .PAU(**) #4
  254. .LOC 17,43(*y + -3.x  =  2.4.(-3) + 4.(-3)*)
  255. .PUT 576,126 PART=29
  256. .PAU(**) #4
  257. .LOC 19,32(*»*)
  258. .LOC 19,44(*y - 3x   = - 24 - 108*)
  259. .PAU(**) #4
  260. .LOC 21,32(*»*)
  261. .LOC 21,44(*y - 3x + 132 = 0*)
  262. .DRA (*C3BM344,169M472,169*)
  263. .PAU(**) #4
  264. .PUT 500,187 PART=4 PSET
  265. .PAU(**)
  266. @LAB:SCREEN49
  267. .COL 0,0
  268. .SCR 1
  269. .SNA(*(.INF 39)1*)
  270. .COL 8
  271. .PAL 1
  272. .LOC 2,23(*49*)
  273. .LOC 7,5(*At this point in the full version*)
  274. .LOC 9,9(*of the program the user is*)
  275. .LOC 11,5(*requested to complete a worksheet*)
  276. .LOC 13,6(*for this section, entering the*)
  277. .LOC 15,7(*results via the keyboard onto*)
  278. .LOC 17,9(*the computer for checking.*)
  279. .PAU(**)#4
  280. .LOC 19,6(*Type C <enter> to continue.*)
  281. .SET #10(*SCREEN50*)
  282. .USE PROG=PRESSC.USE
  283. @LAB:SCREEN50
  284. .COL 0,0
  285. .SCR 1
  286. .SNA(*(.INF 39)1*)
  287. .COL 8
  288. .PAL 1
  289. .LOC 2,23(*50*)
  290. .LOC 6,4(*However, in this demonstration the*)
  291. .LOC 8,7(*results checking facility is*)
  292. .LOC 10,4(*unavailable, so you will continue to*)
  293. .LOC 12,6(*the next phase of the tutorial.*)
  294. .PAU(**)#4
  295. .LOC 18,6(*Type C <enter> to continue.*)
  296. .SET #10(*SCREEN51Z*)
  297. .USE PROG=PRESSC.USE
  298. @LAB:SCREEN51Z
  299. .WIP (20,2)-(23,39)
  300. .PAU(**) #4
  301. .COL 1,
  302. .LOC 14,8(*Do you wish to:*)
  303. .COL 2,
  304. .LOC 16,4(*(C) continue to the next Part*)
  305. .LOC 18,4(*(R) return to the Contents page*)
  306. .COL 1,
  307. .LOC 20,8(*Please type C or R >*)
  308. .COL 3,
  309. @SIN (*"C"=C:AM0504F.CHA,"c"=C:AM0504F.CHA,"R"=L:BACKB,"r"=L:BACKB*)
  310. @LAB:BACKB
  311. @GOB:SCREEN09 PROG=AM0504
  312.  
  313.