Hi, I'm converting a system of linear equations in augmented matrix, after that i want to perform RowReduce command on it, but its not working. Can any one help me out plz?
eq1 = 5 Subscript[x, 2] + 4 Subscript[x, 4] == 1 ;
eq2 = Subscript[x, 1] + 3 Subscript[x, 2] + Subscript[x, 3] +
3 Subscript[x, 4] == 3;
eq3 = Subscript[x, 3] + 4 Subscript[x, 4] == 5;
eq4 = 4 Subscript[x, 1] + 2 Subscript[x, 2] == 5;
Clear[A];
A = Coefficient[
First@#, {Subscript[x, 1], Subscript[x, 2], Subscript[x, 3],
Subscript[x, 4]}] & /@ {eq1, eq2, eq3, eq4};
B = {{1}, {3}, {5}, {5}};
Aug1 = Normal[ArrayFlatten[{{A, B}}]] // MatrixForm
Attachments:
