Hi, I am trying to derive equations from an augmented matrix, but i'm not been able to, could anyone please help me out to convert these printed equations into real algebraic equations. Regards.
Clear[a, b, c, d, e];
For[j = 1, j <= 5, j++,
a = RandomInteger[{-5, 5}, {5, 6}];
b = a[[1 ;; 5, 1 ;; 5]];
c = Table[Subscript["x", i], {i, 1, 5}];
d = b.c;
e =
\!\(\*SubscriptBox[\(a\), \(\(\[LeftDoubleBracket]\)\(All,
6\)\(\[RightDoubleBracket]\)\)]\);
For[i = 1, i <= 5, i++,
Print[
\!\(\*SubscriptBox[\(d\), \(\(\[LeftDoubleBracket]\)\(i\)\(\
\[RightDoubleBracket]\)\)]\), " = ",
\!\(\*SubscriptBox[\(e\), \(\(\[LeftDoubleBracket]\)\(i\)\(\
\[RightDoubleBracket]\)\)]\)];]
Print[" "];]
the notebook file is also attached.