Message Boards Message Boards

0
|
6868 Views
|
4 Replies
|
1 Total Likes
View groups...
Share
Share this post:

Could you please help me out to get equations from augmented matrix

Posted 10 years ago

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.

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract

Be respectful. Review our Community Guidelines to understand your role and responsibilities. Community Terms of Use