home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
El Mac 9
/
El Mac 9.iso
/
Shareware
/
Applications
/
MathPad 2.4
/
Examples
/
incl
/
solver
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
NeXTSTEP
RISC OS/Acorn
UTF-8
Wrap
Text File
|
1994-05-22
|
177 b
|
7 lines
|
[
TEXT/MPad
]
-- general equation solver
-- solution of a system of equations by Cramers rule
cram(A,B,k)[i,j] = A[i,j] when j≠k, B[i] dim[count(B)]
solve(A,B)[j] = det(cram(A,B,j))/det(A)