home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / pipeline / abacus / p_line / Array2 / Array02a < prev    next >
Encoding:
Text File  |  1991-12-09  |  1.4 KB  |  190 lines
  1. %OP%VS4.11 (04-Dec-91), Gerald Lewis Fitton, R4000 5065 0380 9644 
  2. %OP%TNN
  3. %OP%WRN
  4. %OP%DP0
  5. %OP%IRN
  6. %OP%PL0
  7. %OP%HM0
  8. %OP%FM0
  9. %OP%BM0
  10. %OP%LM4
  11. %OP%FX
  12. %OP%FY
  13. %OP%FS
  14. %OP%PT1
  15. %OP%PDPipeLine
  16. %OP%WC834,1940,476,1620,0,0,0,0
  17. %OP%LC2,5
  18. %CO:A,20,64%
  19. %R%Range B2C6
  20.  
  21.  
  22.  
  23.  
  24.  
  25. %C%Put range B2C6
  26. %C%into B10
  27. %C%to make A01
  28.  
  29.  
  30. Adding and subtracting arrays is executed element by element
  31. Add and subtract the arrays A01 and A02 to form A03 and A04
  32.  
  33. %R%A03 = A01+A02 =
  34.  
  35. Multiply together the arrays A03 and A04 element by element
  36. Store the result in slot B24 to make array A05
  37. The array, A06, stored in E24, is (A03)^2 - (A04)^2.
  38.  
  39. A05 and A06 should be the same because (a+b)(a-b) = a^2 - b^2
  40.  
  41. %R%A05 = A03*A04 =
  42.  
  43. %R%Expand A05
  44. %CO:B,6,44%
  45. %V%%R%11
  46. %V%%R%12
  47. %V%%R%13
  48. %V%%R%14
  49. %V%%R%15
  50.  
  51. %C% 
  52. %C% 
  53. %V%%R%B2C6
  54.  
  55.  
  56.  
  57.  
  58.  
  59. %V%%R%B10+E10
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67. %V%%R%B16*E16
  68.  
  69. %V%%R%set_value(B26C30,B24)
  70. %V%%R%63
  71. %V%%R%105
  72. %V%%R%147
  73. %V%%R%189
  74. %CO:C,6,38%
  75. %V%%R%16
  76. %V%%R%17
  77. %V%%R%18
  78. %V%%R%19
  79. %V%%R%20
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99. %V%%R%231
  100. %V%%R%273
  101. %V%%R%315
  102. %V%%R%357
  103. %V%%R%399
  104. %CO:D,20,32%
  105. %R%Range E2F6
  106.  
  107.  
  108.  
  109.  
  110.  
  111. %C%Put range E2F6
  112. %C%into E10
  113. %C%to make A02
  114.  
  115.  
  116.  
  117.  
  118.  
  119. %R%A04 = A01-A02 =
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127. %R%A06 = A03^2-A04^2 =
  128.  
  129. %R%Expand A06
  130. %CO:E,6,12%
  131. %V%%R%10
  132. %V%%R%9
  133. %V%%R%8
  134. %V%%R%7
  135. %V%%R%6
  136.  
  137.  
  138.  
  139. %V%%R%E2F6
  140.  
  141.  
  142.  
  143.  
  144.  
  145. %V%%R%B10-E10
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153. %V%%R%B10^2-E10^2
  154.  
  155. %V%%R%set_value(E26F30,E24)
  156. %V%%R%63
  157. %V%%R%105
  158. %V%%R%147
  159. %V%%R%189
  160. %CO:F,6,6%
  161. %V%%R%5
  162. %V%%R%4
  163. %V%%R%3
  164. %V%%R%2
  165. %V%%R%1
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185. %V%%R%231
  186. %V%%R%273
  187. %V%%R%315
  188. %V%%R%357
  189. %V%%R%399
  190.