RosettaCodeData/Task/Gaussian-elimination/Mathematica/gaussian-elimination.math

2 lines
95 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
GaussianElimination[A_?MatrixQ, b_?VectorQ] := Last /@ RowReduce[Flatten /@ Transpose[{A, b}]]