home *** CD-ROM | disk | FTP | other *** search
/ PC Home 11 / PC_HOME_11.ISO / general / maths / gcemath / ama / am0504d.cha < prev    next >
Encoding:
Text File  |  1994-07-12  |  8.4 KB  |  371 lines
  1. .SET #8(*3, *)
  2. .LET (*#34=#34+#8*) TEXT
  3. .LET (*#23=#23+#6*)
  4. @LAB:SCREEN35
  5. .SCR 2
  6. .SNA(*(.INF 39)2*)
  7. .LOC 2,46(*35*)
  8. .LOC 5,11(*Tangent to y² = 4ax at the point (*)
  9. .PUT 352,32 PART=18
  10. .LOC 5,47(*,*)
  11. .PUT 375,32 PART=19
  12. .LOC 5,50(*) on the parabola*)
  13. .DRA(*BM72,29C1R463D13L463U13*)
  14. .LOC 8,11(*As we found with the circle in Module 5.3, the easiest way to*)
  15. .LOC 10,10(*find the tangent is to find the gradient of the parabola at the*)
  16. .LOC 12,12(*required point by calculus and then use*)
  17. .LOC 12,53(*y -*)
  18. .PUT 448,88 PART=19
  19. .LOC 12,60(*= m(x -*)
  20. .PUT 536,88 PART=18
  21. .LOC 12,70(*)*)
  22. .PAU(**) #4
  23. .LOC 15,10(*Differentiate y² = 4ax implicitly:*)
  24. .PAU(**) #4
  25. .LOC 15,50(*2y.*)
  26. .PUT 416,107 PART=20
  27. .LOC 15,57(*=  4a*)
  28. .PAU(**) #4
  29. .LOC 18,43(*»*)
  30. .PUT 416,131 PART=20
  31. .LOC 18,57(*=*)
  32. .LOC 17,60(*4a*)
  33. .LOC 18,60(*──*)
  34. .LOC 19,60(*2y*)
  35. .PAU(**) #4
  36. .LOC 18,64(*=*)
  37. .LOC 17,67(*2a*)
  38. .LOC 18,67(*──*)
  39. .LOC 19,68(*y*)
  40. .PAU(**) #4
  41. .LOC 21,10(*At  (*)
  42. .PUT 112,160 PART=18
  43. .LOC 21,17(*,*)
  44. .PUT 136,160 PART=19
  45. .LOC 21,20(*):*)
  46. .PAU(**) #4
  47. .LOC 21,31(*gradient  =  m  =*)
  48. .LOC 20,50(*2a*)
  49. .LOC 21,50(*──*)
  50. .PUT 397,167 PART=19
  51. .PAU(**) #4
  52. .USE PROG=PAUSE.USE
  53. .WIP (4,2)-(23,79) #15
  54. .LOC 2,46(*35a*)
  55. .LOC 8,10(*Use  y -*)
  56. .PUT 144,56 PART=19
  57. .LOC 8,22(*= m(x -   )*)
  58. .PUT 232,56 PART=18
  59. .LOC 8,33(*:*)
  60. .PAU(**) #4
  61. .LOC 10,38(*y -*)
  62. .PUT 328,72 PART=19
  63. .LOC 10,45(*=*)
  64. .LOC 9,47(*2a*)
  65. .LOC 10,47(*──*)
  66. .PUT 373,79 PART=19
  67. .LOC 10,49(*.(x -   )*)
  68. .PUT 431,72 PART=18
  69. .PAU(**) #4
  70. .LOC 13,25(*»*)
  71. .LOC 13,34(*y*)
  72. .PUT 272,96 PART=19
  73. .LOC 13,38(*-*)
  74. .PUT 320,96 PART=19
  75. .LOC 13,43(*² =  2ax - 2a*)
  76. .PUT 440,96 PART=18
  77. .PAU(**) #4
  78. .LOC 15,10(*But  (*)
  79. .PUT 120,112 PART=18
  80. .LOC 15,18(*,*)
  81. .PUT 144,112 PART=19
  82. .LOC 15,21(*) lies on  y² = 4ax*)
  83. .PAU(**) #4
  84. .LOC 15,47(*»*)
  85. .PUT 416,112 PART=19
  86. .LOC 15,55(*² = 4a*)
  87. .PUT 480,112 PART=18
  88. .PAU(**) #4
  89. .LOC 17,10(*Substituting for*)
  90. .PUT 208,128 PART=19
  91. .LOC 17,29(*²:*)
  92. .PAU(**) #4
  93. .LOC 17,33(*y*)
  94. .PUT 264,128 PART=19
  95. .LOC 17,37(*-*)
  96. .LOC 17,40(*4a*)
  97. .PUT 328,128 PART=18
  98. .LOC 17,45(*=  2ax - 2a*)
  99. .PUT 440,128 PART=18
  100. .PAU(**) #4
  101. .LOC 19,25(*»*)
  102. .LOC 19,40(*y*)
  103. .PUT 320,144 PART=19
  104. .LOC 19,45(*=  2ax + 2a*)
  105. .PUT 440,144 PART=18
  106. .PAU(**) #4
  107. .LOC 21,25(*»*)
  108. .LOC 21,40(*y*)
  109. .PUT 320,160 PART=19
  110. .LOC 21,45(*=  2a(x +   )*)
  111. .PUT 432,160 PART=18
  112. .DRA(*BM300,157C1R162D14L162U14*)
  113. .SPE PLAY (*AM050419.SPE*) WAIT
  114. .PUT 500,187 PART=2 PSET
  115. @SIN(*"C"=L:SCREEN36,"c"=L:SCREEN36,"R"=L:-SCREEN35,"r"=L:-SCREEN35*)
  116. @LAB:SCREEN36
  117. .SNA(*(.INF 39)2*)
  118. .LOC 2,46(*36*)
  119. .LOC 5,11(*For example:*)
  120. .PAU(**) #4
  121. .LOC 7,15(*Find the equation of the tangent to the parabola*)
  122. .LOC 9,20(*y² = 12x  at the point  ( 3 , -6 ).*)
  123. .USE PROG=PAUSE.USE
  124. .LOC 11,25(*y² = 12x*)
  125. .LOC 11,36(*»*)
  126. .LOC 11,40(*y² = 4.3.x*)
  127. .PAU(**) #4
  128. .LOC 11,55(*»*)
  129. .LOC 11,60(*a = 3*)
  130. .PAU(**) #4
  131. .LOC 13,15(*Use  y*)
  132. .PUT 160,96 PART=19
  133. .LOC 13,24(*= 2a(x +   ):*)
  134. .PUT 256,96 PART=18
  135. .PAU(**) #4
  136. .LOC 13,47(*-6.y  =  2.3.(x + 3)*)
  137. .PAU(**) #4
  138. .LOC 15,36(*»*)
  139. .LOC 15,48(*-6y  =  6x + 18*)
  140. .PAU(**) #4
  141. .LOC 17,15(*Divide through by 6:*)
  142. .PAU(**) #4
  143. .LOC 17,49(*-y  =  x + 3*)
  144. .PAU(**) #4
  145. .LOC 19,28(*Equation is  x + y + 3 = 0*)
  146. .LOC 20,41(*─────────────*)
  147. .PAU(**) #4
  148. .PUT 500,187 PART=4 PSET
  149. .PAU(**)
  150. @LAB:SCREEN37
  151. .SNA(*(.INF 39)2*)
  152. .LOC 2,46(*37*)
  153. .LOC 5,11(*The Latus Rectum*)
  154. .DRA(*BM70,28C1R146D14L146U14*)
  155. .PAU(**) #4
  156. .LOC 6,41(*Focal Chords*)
  157. .DRA (*C1BM320,48M414,48*)
  158. .PAU(**) #4
  159. .LOC 9,40(*A chord in a circle is defined*)
  160. .LOC 11,40(*as a line joining any 2 points*)
  161. .LOC 13,40(*on the circumference.*)
  162. .PUT 60,50 PART=21
  163. .PAU(**) #4
  164. .LOC 15,40(*We can continue with the same*)
  165. .LOC 17,11(*definition for the parabola  -  a line joining any two points*)
  166. .LOC 19,11(*on the parabola is called a CHORD of the parabola.*)
  167. .USE PROG=PAUSE.USE
  168. .WIP (4,2)-(23,79) #1
  169. .LOC 18,62(*One set of*)
  170. .LOC 20,11(*chords is given a special name *)
  171. .PAU(**) #4
  172. .LOC 20,43(*- those that pass through the*)
  173. .LOC 22,22(*focus*)
  174. .PAU(**) #4
  175. .LOC 22,29(*-  they are called  FOCAL CHORDS*)
  176. .INV 22,48,14
  177. .PUT 60,42 PART=22
  178. .SPE PLAY (*AM050420.SPE*) WAIT
  179. .PAU(**) #4
  180. .PUT 500,187 PART=4 PSET
  181. .PAU(**)
  182. @LAB:SCREEN38
  183. .SNA(*(.INF 39)2*)
  184. .LOC 2,46(*38*)
  185. .PUT 40,30 PART=21
  186. .PUT 40,30 PART=22
  187. .LOC 6,40(*One particular focal chord  -*)
  188. .LOC 8,40(*the one perpendicular to the*)
  189. .LOC 10,40(*x-axis*)
  190. .PAU(**) #4
  191. .LOC 10,48(*-  is given a special*)
  192. .LOC 12,40(*name  -  the  LATUS RECTUM*)
  193. .PUT 40,30 PART=23
  194. .PAU(**) #4
  195. .WIP (4,38)-(23,79) #2
  196. .LOC 12,40(*(plural LATERA RECTA)*)
  197. .PAU(**) #4
  198. .LOC 14,40(*Since the x-coordinate at S is a,*)
  199. .LOC 16,11(*the x-coordinate at L and*)
  200. .PUT 288,120 PART=24
  201. .LOC 16,40(*will also be a*)
  202. .PAU(**) #4
  203. .LOC 16,59(*»   y² = 4.a.a*)
  204. .PAU(**) #4
  205. .LOC 18,25(*»     y² = 4a²*)
  206. .PAU(**) #4
  207. .LOC 18,45(*»   y = ± 2a*)
  208. .LOC 20,17(*L is at  (a ,+ 2a)    and*)
  209. .PUT 360,152 PART=24
  210. .LOC 20,49(*is at  (a, - 2a)*)
  211. .PAU(**) #4
  212. .LOC 22,17(*The length of the latus rectum, L*)
  213. .PUT 392,168 PART=24
  214. .LOC 22,52(*, will be  4a*)
  215. .PAU(**) #4
  216. .PUT 500,187 PART=4 PSET
  217. .PAU(**)
  218. @LAB:SCREEN39
  219. .SCR 0
  220. .SNA(*(.INF 39)0*)
  221. .COL 7,0
  222. .LOC 2,46(*39*)
  223. .COL 12,0
  224. .LOC 5,11(*For example:*)
  225. .PAU(**) #4
  226. .COL 14,0
  227. .LOC 7,11(*Find the length of the latus rectum of the parabola y² = 16x*)
  228. .COL 0,3
  229. .LOC 24,64(*SPACE >*)
  230. .PAU(*>*)
  231. .LOC 24,64(*          *)
  232. .COL 10,0
  233. .LOC 9,21(*y² = 16x*)
  234. .COL 14,0
  235. .LOC 9,34(*»*)
  236. .COL 10,0
  237. .LOC 9,38(*y² = 4.4.x*)
  238. .PAU(**) #4
  239. .COL 14,0
  240. .LOC 9,53(*»*)
  241. .COL 10,0
  242. .LOC 9,58(*a = 4*)
  243. .PAU(**) #4
  244. .COL 11,0
  245. .LOC 11,21(*Latus rectum = 4.a*)
  246. .PAU(**) #4
  247. .LOC 11,41(*= 4.4  =  16 units*)
  248. .LOC 12,51(*──*)
  249. .PAU(**) #4
  250. .COL 0,3
  251. .LOC 24,64(*SPACE >*)
  252. .PAU(*>*)
  253. .LOC 24,64(*          *)
  254. .COL 14,0
  255. .WIP (4,2)-(23,79) #2
  256. .LOC 12,15(*Another example...*)
  257. .PAU(**) #4
  258. .LOC 14,15(*Find the equation of the parabola whose latus rectum*)
  259. .LOC 16,34(*has length 28.*)
  260. .COL 0,3
  261. .LOC 24,64(*SPACE >*)
  262. .PAU(*>*)
  263. .LOC 24,64(*          *)
  264. .COL 10,0
  265. .LOC 18,21(*Latus rectum  =  4.a*)
  266. .PAU(**) #4
  267. .LOC 18,43(*=  28*)
  268. .PAU(**) #4
  269. .COL 14,0
  270. .LOC 18,53(*»*)
  271. .COL 10,0
  272. .LOC 18,57(*a = 7*)
  273. .PAU(**) #4
  274. .LOC 20,21(*y² = 4.a.x*)
  275. .PAU(**) #4
  276. .COL 14,0
  277. .LOC 20,35(*»*)
  278. .COL 10,0
  279. .LOC 20,39(*y²  = 4.7.x*)
  280. .PAU(**) #4
  281. .LOC 20,52(*=  28x*)
  282. .PAU(**) #4
  283. .COL 11,0
  284. .LOC 22,31(*Parabola is  y² = 28x*)
  285. .LOC 23,31(*─────────────────────*)
  286. .PAU(**) #4
  287. .COL 0,3
  288. .LOC 24,64(*SPACE >*)
  289. .PAU(*>*)
  290. @LAB:SCREEN40
  291. .SCR 2
  292. .SNA(*(.INF 39)2*)
  293. .LOC 2,46(*40*)
  294. .LOC 5,11(*Another example...*)
  295. .PAU(**) #4
  296. .WIP (4,2)-(23,79)
  297. .LOC 5,15(*Find the length of the latus rectum for the parabola*)
  298. .LOC 7,34(*y² + 4y = 10x.*)
  299. .USE PROG=PAUSE.USE
  300. .LOC 10,18(*y² + 4y = 10x*)
  301. .LOC 10,35(*»   y² + 4y + 4  =  10x + 4*)
  302. .PAU(**) #4
  303. .LOC 12,35(*»*)
  304. .LOC 12,42(*(y + 2)²  =  10(x +*)
  305. .PUT 488,86 PART=25
  306. .LOC 12,64(*)*)
  307. .PAU(**) #4
  308. .LOC 15,52(*=  4.*)
  309. .PUT 448,110 PART=27
  310. .LOC 15,58(*.(x +*)
  311. .PUT 504,110 PART=26
  312. .LOC 15,65(*)*)
  313. .PAU(**) #4
  314. .LOC 17,35(*»    a =*)
  315. .PUT 344,126 PART=27
  316. .PAU(**) #4
  317. .LOC 20,19(*Length of the latus rectum is 4.*)
  318. .PUT 400,150 PART=27
  319. .PAU(**) #4
  320. .LOC 20,53(*=  10 units*)
  321. .DRA (*C1BM440,160M501,160*)
  322. .PUT 500,187 PART=2 PSET
  323. @SIN(*"C"=L:SCREEN41,"c"=L:SCREEN41,"R"=L:-SCREEN37,"r"=L:-SCREEN37*)
  324. @LAB:SCREEN41
  325. .COL 0,0
  326. .SCR 1
  327. .SNA(*(.INF 39)1*)
  328. .COL 8
  329. .PAL 1
  330. .LOC 2,23(*41*)
  331. .LOC 7,5(*At this point in the full version*)
  332. .LOC 9,9(*of the program the user is*)
  333. .LOC 11,5(*requested to complete a worksheet*)
  334. .LOC 13,6(*for this section, entering the*)
  335. .LOC 15,7(*results via the keyboard onto*)
  336. .LOC 17,9(*the computer for checking.*)
  337. .PAU(**)#4
  338. .LOC 19,6(*Type C <enter> to continue.*)
  339. .SET #10(*SCREEN42*)
  340. .USE PROG=PRESSC.USE
  341. @LAB:SCREEN42
  342. .COL 0,0
  343. .SCR 1
  344. .SNA(*(.INF 39)1*)
  345. .COL 8
  346. .PAL 1
  347. .LOC 2,23(*42*)
  348. .LOC 6,4(*However, in this demonstration the*)
  349. .LOC 8,7(*results checking facility is*)
  350. .LOC 10,4(*unavailable, so you will continue to*)
  351. .LOC 12,6(*the next phase of the tutorial.*)
  352. .PAU(**)#4
  353. .LOC 18,6(*Type C <enter> to continue.*)
  354. .SET #10(*SCREEN43Z*)
  355. .USE PROG=PRESSC.USE
  356. @LAB:SCREEN43Z
  357. .WIP (20,2)-(23,39)
  358. .PAU(**) #4
  359. .COL 1,
  360. .LOC 14,8(*Do you wish to:*)
  361. .COL 2,
  362. .LOC 16,4(*(C) continue to the next Part*)
  363. .LOC 18,4(*(R) return to the Contents page*)
  364. .COL 1,
  365. .LOC 20,8(*Please type C or R >*)
  366. .COL 3,
  367. @SIN (*"C"=C:AM0504E.CHA,"c"=C:AM0504E.CHA,"R"=L:BACKB,"r"=L:BACKB*)
  368. @LAB:BACKB
  369. @GOB:SCREEN09 PROG=AM0504
  370.  
  371.