home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / pipeline / abacus / p_line / Array2 / Array02 next >
Encoding:
Text File  |  1991-12-09  |  1.5 KB  |  198 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%IRY
  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%WC2,1238,96,1304,0,0,0,0
  17. %OP%LC2,5
  18. %CO:A,15,72%
  19. %R%Matrix01 
  20. %C%     is
  21. %R%Range B2C6
  22.  
  23.  
  24.  
  25. %C%Put Matrix01
  26. %C%into B10
  27. %C%as Array01
  28.  
  29. %C%Matrix01
  30. %C% recovered
  31. %C%  from array
  32.  
  33.  
  34.  
  35. Adding or multiplying arrays is executed element by element
  36.  
  37. Add the arrays
  38.  
  39. Expand to
  40. range B22C26
  41.  
  42.  
  43.  
  44.  
  45.  
  46. Recover one element, B20(col,row), from the array stored in B20
  47.  
  48. %R%using col =
  49. %R%and   row =
  50. %CO:B,6,72%
  51. %V%%R%1
  52. %V%%R%2
  53. %V%%R%3
  54. %V%%R%4
  55. %V%%R%5
  56.  
  57. %C% 
  58. %C% 
  59. %V%%R%B2C6
  60.  
  61. %V%%R%set_value(B12C16,B10)
  62. %V%%R%2
  63. %V%%R%3
  64. %V%%R%4
  65. %V%%R%5
  66.  
  67.  
  68.  
  69. %V%%R%B10+E10
  70.  
  71. %V%%R%set_value(B22C26,B20)
  72. %V%%R%14
  73. %V%%R%16
  74. %V%%R%18
  75. %V%%R%20
  76.  
  77.  
  78.  
  79.  
  80. %V%%R%2
  81. %V%%R%4
  82. %CO:C,6,38%
  83. %V%%R%6
  84. %V%%R%7
  85. %V%%R%8
  86. %V%%R%9
  87. %V%%R%10
  88.  
  89.  
  90.  
  91.  
  92.  
  93. %V%%R%6
  94. %V%%R%7
  95. %V%%R%8
  96. %V%%R%9
  97. %V%%R%10
  98.  
  99.  
  100.  
  101.  
  102.  
  103. %V%%R%22
  104. %V%%R%24
  105. %V%%R%26
  106. %V%%R%28
  107. %V%%R%30
  108. %CO:D,15,32%
  109. %R%Matrix02 
  110. %C%     is
  111. %R%Range E2F6
  112.  
  113.  
  114.  
  115. %C%Put Matrix02
  116. %C%into E10
  117. %C%as Array02
  118.  
  119. %C%Matrix02
  120. %C% recovered
  121. %C%  from array
  122.  
  123.  
  124.  
  125.  
  126.  
  127. Multiply arrays
  128.  
  129. Expand to
  130. range E22F26
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139. B20(col,row) =
  140. %CO:E,6,17%
  141. %V%%R%11
  142. %V%%R%12
  143. %V%%R%13
  144. %V%%R%14
  145. %V%%R%15
  146.  
  147.  
  148.  
  149. %V%%R%E2F6
  150.  
  151. %V%%R%set_value(E12F16,E10)
  152. %V%%R%12
  153. %V%%R%13
  154. %V%%R%14
  155. %V%%R%15
  156.  
  157.  
  158.  
  159. %V%%R%B10*E10
  160.  
  161. %V%%R%set_value(E22F26,E20)
  162. %V%%R%24
  163. %V%%R%39
  164. %V%%R%56
  165. %V%%R%75
  166.  
  167.  
  168.  
  169.  
  170.  
  171. %V%%R%index(B20,B31,B32)
  172. %CO:F,6,11%
  173. %V%%R%16
  174. %V%%R%17
  175. %V%%R%18
  176. %V%%R%19
  177. %V%%R%20
  178.  
  179.  
  180.  
  181.  
  182.  
  183. %V%%R%16
  184. %V%%R%17
  185. %V%%R%18
  186. %V%%R%19
  187. %V%%R%20
  188.  
  189.  
  190.  
  191.  
  192.  
  193. %V%%R%96
  194. %V%%R%119
  195. %V%%R%144
  196. %V%%R%171
  197. %V%%R%200
  198.