Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!orca!javelin.es.com!pashdown From: pashdown@javelin.es.com (Pete Ashdown) Newsgroups: comp.sys.handhelds Subject: Re: How do I row reduce matrices on a 48? Message-ID: <1991Feb25.155205.8579@javelin.es.com> Date: 25 Feb 91 15:52:05 GMT References: <1419@lehi3b15.csee.Lehigh.EDU> Reply-To: pashdown@javelin.sim.es.com Organization: Evans & Sutherland Computer Corp., Salt Lake City, Utah Lines: 40 jcohen@lehi3b15.csee.Lehigh.EDU (Josh Cohen [890918]) writes: >Row reducing, dont fret! >it can be done and I have just the program to do it.. I got it from >wuarchive, i believe... written for the 28s.... ( should work on 48) >mail me if you cant get it >jcohen@scarecrow.csee.lehigh.edu *SIGH* I posted this a couple of weeks ago. I tried the one for the 28s as well, it works, but it is about three times as big. Here is the program: %%HP: T(3)A(R)F(.); @ RWRD - Matrix Row Reduction ( matrix - reduced matrix ) @ Robert T. Wilson - University of Iowa \<< DUP OBJ\-> OBJ\-> DROP \-> r c \<< r r 1 \-> m n s \<< 1 r START c \->ARRY DEPTH ROLLD NEXT 1 r START DEPTH ROLL NEXT 1 r START 0 's' STO 1 c FOR z IF DUP z GET 0 \=/ THEN z 's' STO c 'z' STO END NEXT IF s 0 > THEN DUP s GET IF 1 \=/ THEN DUP s GET / END 1 r 1 - START r ROLL IF DUP s GET 0 \=/ THEN DUP2 s GET * - 1 'n' STO END SWAP NEXT END r ROLLD NEXT r 'n' STO 1 c FOR z 1 r FOR y IF DUP z GET 1 == THEN n ROLLD 'n' DECR IF 1 == THEN r 'y' STO c 'z' STO END ELSE n ROLLD END NEXT NEXT 1 r START DEPTH ROLLD NEXT 1 r START DEPTH ROLL OBJ\-> DROP NEXT r c 2 \->LIST \->ARRY \>> \>> \>> Works great! Less filling! -- "If the real Jesus Christ were to stand up today He'd be gunned down cold by the CIA" - The The Pete Ashdown pashdown@javelin.sim.es.com ...uunet!javelin.sim.es.com!pashdown