home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / pipeline / abacus / p_line / Array3 / Array03 next >
Encoding:
Text File  |  1991-12-09  |  1.6 KB  |  270 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,2070,412,1620,0,0,0,0
  17. %OP%LC2,6
  18. %CO:A,13,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.  
  36.  
  37. Matrix multiply (Array01*Array02)
  38.  
  39. Expand to range E22I26
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47. Recover one element, E20(col,row), from the array stored in E20
  48.  
  49. %R%using col =
  50. %R%and   row =
  51. %CO:B,6,72%
  52. %V%%R%1
  53. %V%%R%2
  54. %V%%R%3
  55. %V%%R%4
  56. %V%%R%5
  57.  
  58. %C% 
  59. %C% 
  60. %V%%R%B2C6
  61.  
  62. %V%%R%set_value(B12C16,B10)
  63. %V%%R%2
  64. %V%%R%3
  65. %V%%R%4
  66. %V%%R%5
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82. %V%%R%3
  83. %V%%R%4
  84. %CO:C,6,36%
  85. %V%%R%6
  86. %V%%R%7
  87. %V%%R%8
  88. %V%%R%9
  89. %V%%R%10
  90.  
  91.  
  92.  
  93.  
  94.  
  95. %V%%R%6
  96. %V%%R%7
  97. %V%%R%8
  98. %V%%R%9
  99. %V%%R%10
  100. %CO:D,13,30%
  101. %R%Matrix02 
  102. %C% is
  103. %R%Range E2I3
  104.  
  105.  
  106.  
  107. %C%Put Matrix02
  108. %C%into E10
  109. %C%as Array02
  110.  
  111. %C%Matrix02
  112. %C% recovered
  113. %C%  from array
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132. E20(col,row)=
  133. %CO:E,6,17%
  134. %V%%R%11
  135. %V%%R%12
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142. %V%%R%E2I3
  143.  
  144. %V%%R%set_value(E12I13,E10)
  145. %V%%R%12
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152. %V%%R%m_mult(B10,E10)
  153.  
  154. %V%%R%set_value(E22I26,E20)
  155. %V%%R%106
  156. %V%%R%129
  157. %V%%R%152
  158. %V%%R%175
  159.  
  160.  
  161.  
  162.  
  163.  
  164.  
  165. %V%%R%index(E20,B32,B33)
  166. %CO:F,6,11%
  167. %V%%R%13
  168. %V%%R%14
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177. %V%%R%13
  178. %V%%R%14
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  
  187. %V%%R%97
  188. %V%%R%124
  189. %V%%R%151
  190. %V%%R%178
  191. %V%%R%205
  192. %CO:G,5,0%
  193. %V%%R%15
  194. %V%%R%16
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203. %V%%R%15
  204. %V%%R%16
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211.  
  212.  
  213. %V%%R%111
  214. %V%%R%142
  215. %V%%R%173
  216. %V%%R%204
  217. %V%%R%235
  218. %CO:H,6,0%
  219. %V%%R%17
  220. %V%%R%18
  221.  
  222.  
  223.  
  224.  
  225.  
  226.  
  227.  
  228.  
  229. %V%%R%17
  230. %V%%R%18
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239. %V%%R%125
  240. %V%%R%160
  241. %V%%R%195
  242. %V%%R%230
  243. %V%%R%265
  244. %CO:I,6,0%
  245. %V%%R%19
  246. %V%%R%20
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253.  
  254.  
  255. %V%%R%19
  256. %V%%R%20
  257.  
  258.  
  259.  
  260.  
  261.  
  262.  
  263.  
  264.  
  265. %V%%R%139
  266. %V%%R%178
  267. %V%%R%217
  268. %V%%R%256
  269. %V%%R%295
  270.