Cramer's rule: Difference between revisions
→{{header|Maple}}
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
Line 1,625:
=={{header|Maple}}==
<lang Maple>
cramer:=proc(A,B)
w := LinearAlgebra:-Determinant(Matrix([[-3,-1,5,1],[-32,2,2,-6],[-47,3,3,-1],[49,-2,-3,3]]))/ LinearAlgebra:-Determinant(A);▼
local n,d,X,V,i;
n:=upperbound(A,2);
d:=Determinant(A);
X:=Vector(n,0);
for i from 1 to n do
A(1..-1,i):=B;
X[i]:=Determinant(A)/d;
A(1..-1,i):=V;
od;
X;
end:
▲
B:=Vector([-3,-32,-47,49]):
printf("%a",cramer(A,B));</lang>
{{out}}
<pre>Vector(4, [2,-12,-4,1])</pre>
=={{header|Mathematica}}==
| |||