Group Abstract Group Abstract

Message Boards Message Boards

0
|
809 Views
|
8 Replies
|
5 Total Likes
View groups...
Share
Share this post:

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

POSTED BY: P. Marrone
8 Replies
Posted 1 month ago

Multiplying matrices when they are wrapped in MatrixForm or Grid can be done, as shown below:

The cosmetic wrapper is part 0. The actual matrix is part 1. The function First returns part 1.

POSTED BY: Hans Milton
Posted 1 month ago
POSTED BY: Eric Rimbey

You are using Grid to compose matices. Don't do that.

POSTED BY: Gianluca Gorni

POSTED BY: P. Marrone
POSTED BY: Gianluca Gorni

Thank you pardon me. What do you mean by use InputForm. What is a MatrixFormWrapper?

How do I get code in pastable for?

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
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
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard