Message Boards Message Boards

0
|
151 Views
|
2 Replies
|
2 Total Likes
View groups...
Share
Share this post:

Mathematica 14.2 is not performing matrix multiplication on 3 times 3 matrices.

Posted 23 hours ago

enter image description here

POSTED BY: P. Marrone
2 Replies
In[26]:= Eigensystem[\!\(\*
TagBox[
RowBox[{"(", GridBox[{
{"6", "2", "1"},
{"0", "4", "2"},
{"0", "0", "3"}
}], ")"}],
"Grid"]\)]


Out[26]= {{6, 4, 3}, {{1, 0, 0}, {-1, 1, 0}, {1, -2, 1}}}

In[27]:= Inverse[\!\(\*
TagBox[
RowBox[{"(", GridBox[{
{"1", 
RowBox[{"-", "1"}], "1"},
{"0", "1", 
RowBox[{"-", "2"}]},
{"0", "0", "1"}
}], ")"}],
"Grid"]\)] // MatrixForm

Out[27]//MatrixForm= \!\(
TagBox[
RowBox[{"(", "", GridBox[{
{"1", "1", "1"},
{"0", "1", "2"},
{"0", "0", "1"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]}, 
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]}, 
Offset[0.2]}}], "", ")"}],
Function[BoxForm`e$, 
MatrixForm[BoxForm`e$]]]\)

In[2]:= \!\(\*
TagBox[
RowBox[{"(", "", GridBox[{
{"1", "1", "1"},
{"0", "1", "2"},
{"0", "0", "1"}
},
GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
GridBoxSpacings->{"Columns" -> {
Offset[0.27999999999999997`], {
Offset[0.7]}, 
Offset[0.27999999999999997`]}, "Rows" -> {
Offset[0.2], {
Offset[0.4]}, 
Offset[0.2]}}], "", ")"}],
Function[BoxForm`e$, 
MatrixForm[BoxForm`e$]]]\) . ( \!\(\*
TagBox[GridBox[{
{
RowBox[{"e", "^", 
RowBox[{"{", 
RowBox[{"6", "t"}], "}"}]}], "0", "0"},
{"0", 
RowBox[{"e", "^", 
RowBox[{"{", 
RowBox[{"4", "t"}], "}"}]}], "0"},
{"0", "0", 
RowBox[{"e", "^", 
RowBox[{"{", 
RowBox[{"3", "t"}], "}"}]}]}
}],
"Grid"]\) ) . ( {
   {1, -1, 1},
   {0, 1, -2},
   {0, 0, 1}
  } ) . ( \!\(\*
TagBox[GridBox[{
{"x"},
{"y"},
{"z"}
}],
"Grid"]\) )

Out[2]= {{1, 1, 1}, {0, 1, 2}, {0, 0, 1}} . \!\(\*
TagBox[GridBox[{
{
RowBox[{"{", 
SuperscriptBox["e", 
RowBox[{"6", " ", "t"}]], "}"}], "0", "0"},
{"0", 
RowBox[{"{", 
SuperscriptBox["e", 
RowBox[{"4", " ", "t"}]], "}"}], "0"},
{"0", "0", 
RowBox[{"{", 
SuperscriptBox["e", 
RowBox[{"3", " ", "t"}]], "}"}]}
},
AutoDelete->False,
GridBoxItemSize->{}],
"Grid"]\) . {{1, -1, 1}, {0, 1, -2}, {0, 0, 1}} . \!\(\*
TagBox[GridBox[{
{"x"},
{"y"},
{"z"}
},
AutoDelete->False,
GridBoxItemSize->{}],
"Grid"]\)&[Wolfram Notebook][1]
POSTED BY: P. Marrone

(1) Use InputForm to see what it is you are actually evaluating. You will find a MatrixForm wrapper that is getting in the way.

(2) In general to get assistance one should provide actual code in copy-pastable form.

POSTED BY: Daniel Lichtblau
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