Bjorn,

I was thinking more along the following lines because I thought a
"little daughter" might deal better with it.

   load'/Users/brian/j602/system/packages/math/matutil.ijs'
   ]M =: _3]\3 5 570 5 3 470
3 5 570
5 3 470
   0 0 pivot M
1  1.66667  190
0 _5.33333 _480
   1 1 pivot 0 0 pivot M
1 0 40
0 1 90
   40 90 +/ . * M
570 470 65100

Actually, I was thinking about the following for a "little daughter"
but I did not realize that pivot did its own "thinking" of linear
steps.

   0 1 _5r3 rowshear 1 _3r16 rowscale 1 0 _5 rowshear 0  1r3 rowscale M
1 0 40
0 1 90

NB. pivot         (r,c) pivot M       - pivot at row, column
NB.
NB. rowswap       (i,j) rowswap M     - swap rows i and j
NB. rowscale      (i,n) rowscale M    - multiply row i by n
NB. rowshear      (i,j,n) rowshear M  - multiply row j by n and add to row i
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to