home *** CD-ROM | disk | FTP | other *** search
/ Dominator 2 / D2_V20.ISO / general / maths / gcemath / amc / am1408d.cha < prev    next >
Encoding:
Text File  |  1994-07-12  |  6.0 KB  |  246 lines
  1. .SET #8(*3, *)
  2. .LET (*#34=#34+#8*) TEXT
  3. .LET (*#23=#23+#6*)
  4. @LAB:SCREEN30
  5. .SCR 2
  6. .SNA(*(.INF 39)2*)
  7. .LOC 2,46(*30*)
  8. .LOC 5,11(* Additive Property of X² *)
  9. .INV 5,11,25
  10. .PAU(**)#4
  11. .LOC 8,13(*Because of the underlying additive property of the GAMMA*)
  12. .LOC 10,13(*function, it is found that if you have two STATISTICALLY*)
  13. .LOC 12,21(*INDEPENDENT variables  X  and  Y,  with:*)
  14. .LOC 14,16(*X having a value of*)
  15. .PUT 288,101 PART=16
  16. .LOC 14,41(*and*)
  17. .PUT 360,103 PART=17
  18. .LOC 14,50(*degrees of freedom*)
  19. .PAU(**)#4
  20. .LOC 16,16(*Y having a value of*)
  21. .PUT 288,117 PART=18
  22. .LOC 16,41(*and*)
  23. .PUT 360,119 PART=19
  24. .LOC 16,50(*degrees of freedom*)
  25. .PAU(**)#4
  26. .LOC 18,13(*then the combined variable  Z  =  X  +  Y  has:*)
  27. .PUT 120,157 PART=6
  28. .LOC 21,20(*=*)
  29. .PUT 176,157 PART=16
  30. .LOC 21,27(*+*)
  31. .PUT 232,157 PART=18
  32. .LOC 21,34(*and*)
  33. .PUT 304,159 PART=7
  34. .LOC 21,42(*=*)
  35. .PUT 351,159 PART=17
  36. .LOC 21,49(*+*)
  37. .PUT 408,159 PART=19
  38. .LOC 21,55(*degrees of freedom*)
  39. .SPE PLAY (*AM140821.SPE*) WAIT
  40. .PAU(**)#4
  41. .PUT 500,187 PART=4 PSET
  42. .PAU(**)
  43. @LAB:SCREEN31
  44. .SNA(*(.INF 39)2*)
  45. .LOC 2,46(*31*)
  46. .LOC 5,11(*An example:*)
  47. .PAU(**)#4
  48. .LOC 7,15(*A trial of a new drug yields at one centre*)
  49. .PUT 464,45 PART=6
  50. .LOC 7,62(*=  2.65*)
  51. .LOC 9,15(*with*)
  52. .PUT 159,63 PART=7
  53. .LOC 9,23(*= 1  whilst at another centre the results are*)
  54. .PUT 112,77 PART=6
  55. .LOC 11,18(*=  2.60  with*)
  56. .PUT 256,79 PART=7
  57. .LOC 11,35(*= 1.   Find the combined results and*)
  58. .LOC 13,15(*test for significance at the 10 % level.*)
  59. .USE PROG=PAUSE.USE
  60. .LOC 16,15(*Null Hypothesis :  there is no significant difference*)
  61. .LOC 18,34(*between them at the 10 % level.*)
  62. .PAU(**)#4
  63. .USE PROG=PAUSE.USE
  64. .WIP (15,2)-(19,79)
  65. .LOC 16,15(*Centre 1:*)
  66. .PAU(**)#4
  67. .PUT 200,117 PART=6
  68. .LOC 16,29(*=  2.65*)
  69. .PUT 296,119 PART=7
  70. .LOC 16,40(*= 1*)
  71. .PAU(**)#4
  72. .LOC 16,47(*which is not significant at 10 %*)
  73. .PAU(**)#4
  74. .LOC 18,15(*Centre 2:*)
  75. .PAU(**)#4
  76. .PUT 200,133 PART=6
  77. .LOC 18,29(*=  2.60*)
  78. .PUT 296,135 PART=7
  79. .LOC 18,40(*= 1*)
  80. .PAU(**)#4
  81. .LOC 18,47(*again, not significant at 10 %*)
  82. .PAU(**)#4
  83. .USE PROG=PAUSE.USE
  84. .LOC 20,26(*Accept the Null Hypothesis.*)
  85. .PAU(**)#4
  86. .WIP (19,2)-(23,79)
  87. .LOC 20,15(*Combining the two trials:*)
  88. .PAU(**)#4
  89. .USE PROG=PAUSE.USE
  90. .WIP (4,2)-(23,79) #6
  91. .LOC 2,46(*31a*)
  92. .PAU(**)#2
  93. .LOC 16,30(*New*)
  94. .PUT 272,117 PART=6
  95. .LOC 16,38(*=  2.65 + 2.60  =  5.25*)
  96. .PAU(**)#4
  97. .LOC 18,30(*New*)
  98. .PUT 273,135 PART=7
  99. .LOC 18,38(*=   1   +   1   =  2*)
  100. .PAU(**)#4
  101. .LOC 20,11(*Enter the*)
  102. .PUT 160,149 PART=6
  103. .LOC 20,24(*table  with*)
  104. .PUT 280,151 PART=7
  105. .LOC 20,39(*=  2, level  10 %*)
  106. .PAU(**)#4
  107. .LOC 20,60(*»   4.60*)
  108. .PAU(**)#4
  109. .LOC 22,11(*5.25  ≥  4.60  so the combined results ARE SIGNIFICANT !*)
  110. .PAU(**)#4
  111. .WIP (4,2)-(23,79)#2
  112. .LOC 22,26(*Reject the Null Hypothesis.*)
  113. .SPE PLAY (*AM140822.SPE*) WAIT
  114. .PAU(**)#4
  115. .PUT 500,187 PART=4 PSET
  116. .PAU(**)
  117. @LAB:SCREEN32
  118. .SNA(*(.INF 39)2*)
  119. .LOC 2,46(*32*)
  120. .LOC 5,11(*Another example:*)
  121. .PAU(**)#4
  122. .LOC 7,15(*Repeating an experiment 4 times gives the results:*)
  123. .LOC 9,24(*Run 1:*)
  124. .PUT 256,61 PART=6
  125. .LOC 9,36(*=  5.16*)
  126. .PUT 368,63 PART=7
  127. .LOC 9,50(*=  3*)
  128. .LOC 11,24(*Run 2:*)
  129. .PUT 256,77 PART=6
  130. .LOC 11,36(*=  4.34*)
  131. .PUT 368,79 PART=7
  132. .LOC 11,50(*=  4*)
  133. .LOC 13,24(*Run 3:*)
  134. .PUT 256,93 PART=6
  135. .LOC 13,36(*=  6.13*)
  136. .PUT 368,95 PART=7
  137. .LOC 13,50(*=  5*)
  138. .LOC 15,24(*Run 4:*)
  139. .PUT 256,109 PART=6
  140. .LOC 15,36(*=  5.91*)
  141. .PUT 368,111 PART=7
  142. .LOC 15,50(*=  3*)
  143. .LOC 17,15(*Find the combined result and test at the 5 % level.*)
  144. .USE PROG=PAUSE.USE
  145. .LOC 19,15(*Combined*)
  146. .PUT 192,141 PART=6
  147. .LOC 19,29(*=  5.16 + 4.34 + 6.13 + 5.91  =  21.54*)
  148. .PAU(**)#4
  149. .LOC 21,15(*Combined*)
  150. .PUT 196,159 PART=7
  151. .LOC 21,29(*=  3  +  4  +  5  +  3  =  15*)
  152. .PAU(**)#4
  153. .USE PROG=PAUSE.USE
  154. .WIP (4,2)-(23,79) #5
  155. .LOC 2,46(*32a*)
  156. .PAU(**)#2
  157. .LOC 18,11(*Enter the*)
  158. .PUT 168,133 PART=6
  159. .LOC 18,25(*table with*)
  160. .PUT 288,135 PART=7
  161. .LOC 18,40(*=  15 and level 5 %*)
  162. .PAU(**)#4
  163. .LOC 18,62(*»   25.00*)
  164. .PAU(**)#4
  165. .LOC 20,11(*21.54 is NOT  ≥  25.00  so we would accept whatever Null*)
  166. .LOC 22,35(*Hypothesis had been proposed.*)
  167. .PUT 500,187 PART=2 PSET
  168. @SIN(*"C"=L:SCREEN33,"R"=L:-SCREEN30,"c"=L:SCREEN33,"r"=L:-SCREEN30*)
  169. @LAB:SCREEN33
  170. .COL 0,0
  171. .SCR 1
  172. .SNA(*(.INF 39)1*)
  173. .COL 8
  174. .PAL 1
  175. .LOC 2,23(*33*)
  176. .LOC 7,5(*At this point in the full version*)
  177. .LOC 9,9(*of the program the user is*)
  178. .LOC 11,5(*requested to complete a worksheet*)
  179. .LOC 13,6(*for this section, entering the*)
  180. .LOC 15,7(*results via the keyboard onto*)
  181. .LOC 17,9(*the computer for checking.*)
  182. .PAU(**)#4
  183. .LOC 19,6(*Type C <enter> to continue.*)
  184. .SET #10(*SCREEN34*)
  185. .USE PROG=PRESSC.USE
  186. @LAB:SCREEN34
  187. .COL 0,0
  188. .SCR 1
  189. .SNA(*(.INF 39)1*)
  190. .COL 8
  191. .PAL 1
  192. .LOC 2,23(*34*)
  193. .LOC 6,4(*However, in this demonstration the*)
  194. .LOC 8,7(*results checking facility is*)
  195. .LOC 10,4(*unavailable, so you will continue to*)
  196. .LOC 12,6(*the next phase of the tutorial.*)
  197. .PAU(**)#4
  198. .LOC 18,6(*Type C <enter> to continue.*)
  199. .SET #10(*SCREEN35Z*)
  200. .USE PROG=PRESSC.USE
  201. @LAB:SCREEN35Z
  202. .WIP (20,2)-(23,39)
  203. .PAU(**) #4
  204. .COL 1,
  205. .LOC 14,8(*Do you wish to:*)
  206. .COL 2,
  207. .LOC 16,4(*(C) continue to the next Part*)
  208. .LOC 18,4(*(R) return to the Contents page*)
  209. .COL 1,
  210. .LOC 20,8(*Please type C or R >*)
  211. .COL 3,
  212. @SIN (*"C"=L:SCREEN36,"c"=L:SCREEN36,"R"=L:BACKB,"r"=L:BACKB*)
  213. @LAB:BACKB
  214. @GOB:SCREEN09 PROG=AM1408
  215. @LAB:SCREEN36
  216. .COL 8
  217. .PAL 1
  218. .SNA(*(.INF 39)1*)
  219. .SET #8(*QUIT*)
  220. .SET #9(*quit*)
  221. .LOC 2,23(*36*)
  222. .LOC 7,6(*Before you start the test you*)
  223. .LOC 8,7(*may wish to revise the work*)
  224. .LOC 9,9(*done on your WORKSHEET.*)
  225. .PAU(**) #4
  226. .LOC 11,6(*If you want time*)
  227. .LOC 12,6(*to do this, type   QUIT <Return>*)
  228. .PAU(**) #4
  229. .LOC 15,6(*If you want to move*)
  230. .LOC 16,6(*straight on to the*)
  231. .LOC 17,6(*UNIT TEST, press only   <Return>*)
  232. .LOC 18,2
  233. .INF 10(* *)
  234. @EQU (*#10=#8*):REVISE TEXT
  235. @EQU (*#10=#9*):REVISE TEXT
  236. .RES #10
  237. @CHA PROG=AM1408U.CHA
  238. @LAB:REVISE
  239. .SET #10(*REVISED*)
  240. @SYS STOP
  241. @LAB:REVISED
  242. .SCR 1
  243. .PUT PART=(*(.INF 39).LIB*)
  244. @CHA PROG=AM1408U.CHA
  245.  
  246.