home *** CD-ROM | disk | FTP | other *** search
/ The Mac 12 / the-mac-12.iso / Shareware City / Applications / MP235 / Examples / incl / solver < prev    next >
Encoding:
Text File  |  1994-05-22  |  177 b   |  7 lines  |  [TEXT/MPad]
  1. -- general equation solver
  2. -- solution of a system of equations by Cramers rule
  3.  
  4. cram(A,B,k)[i,j] = A[i,j] when j≠k, B[i] dim[count(B)]
  5.  
  6. solve(A,B)[j] = det(cram(A,B,j))/det(A)
  7.