Cramer's rule: Difference between revisions
Content added Content deleted
(Added Wren) |
|||
Line 2,549: | Line 2,549: | ||
{{out}} |
{{out}} |
||
<pre>2, -12, -4, 1</pre> |
<pre>2, -12, -4, 1</pre> |
||
=={{header|Wren}}== |
|||
{{libheader|Wren-matrix}} |
|||
<lang ecmascript>import "/matrix" for Matrix |
|||
var cramer = Fn.new { |a, d| |
|||
var n = a.numRows |
|||
var x = List.filled(n, 0) |
|||
var ad = a.det |
|||
for (c in 0...n) { |
|||
var aa = a.copy() |
|||
for (r in 0...n) aa[r, c] = d[r, 0] |
|||
x[c] = aa.det/ad |
|||
} |
|||
return x |
|||
} |
|||
var a = Matrix.new([ |
|||
[2, -1, 5, 1], |
|||
[3, 2, 2, -6], |
|||
[1, 3, 3, -1], |
|||
[5, -2, -3, 3] |
|||
]) |
|||
var d = Matrix.new([ |
|||
[- 3], |
|||
[-32], |
|||
[-47], |
|||
[ 49] |
|||
]) |
|||
var x = cramer.call(a, d) |
|||
System.print("Solution is %(x)")</lang> |
|||
{{out}} |
|||
<pre> |
|||
Solution is [2, -12, -4, 1] |
|||
</pre> |
|||
=={{header|zkl}}== |
=={{header|zkl}}== |