Cramer's rule: Difference between revisions
m
→{{header|Mathematica}}
mNo edit summary |
|||
Line 1,837:
<pre>Vector(4, [2,-12,-4,1])</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>crule[m_, b_] := Module[{d = Det[m], a},
Table[a = m; a[[All, k]] = b; Det[a]/d, {k, Length[m]}]]
| |||