Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!tut.cis.ohio-state.edu!ucbvax!TAUNOS.BITNET!LOZAN From: LOZAN@TAUNOS.BITNET Newsgroups: comp.sys.handhelds Subject: changes in symbolic matrices Message-ID: <9001091550.AA02260@jade.berkeley.edu> Date: 8 Jan 90 11:58:34 GMT Sender: daemon@ucbvax.BERKELEY.EDU Lines: 31 Hello I found a bug in my "det" program for symbolic matrices and also a typing error.I also added a zerochecking so that det multiplied by zero will not be computed . Here is the corrected version. det [D81F] (Lowercase are important !!) << DUP SIZE -> A B << IF B 1 == ; det of a 1x1 matrix # THEN A 1 GET 1 GET ELSE IF B 2 == THEN A DET2 ; call basic case of 2x2 determinant ELSE 0 1 B FOR I A 1 GET I GET # -> E << IF E 0 SAME THEN ELSE # A 1 I MINOR det E ; recursive call * -1 1 I + ^ * + # END >> NEXT END END >> >> Lines with a # are line with changes I'd like to get feedback if someone find these programs useful. Thats all for today. Eliel Louzoun