Anonymous user
Cramer's rule: Difference between revisions
m
→{{header|Tcl}}
m (→{{header|Tcl}}) |
|||
Line 1,664:
setcol tmp $i $right ;# replace column i with right side vector
set detTmp [det $tmp] ;# calculate determinant of tmp
set v [expr $detTmp / $detA] ;# divide two determinants
puts [format "%0.4f" $v] ;# format and display result
}
Line 1,675:
1.0000
</pre>
=={{header|zkl}}==
| |||