在 wolfram mathematica 中查找矩阵中的第 i 行

Question

我试图在mathematica 中将列矩阵和行矩阵相乘。但是mathematica将行矩阵作为列矩阵。所以 multipy 函数不起作用。我的代码是

`Y = Inverse[S];
Print["Y=", MatrixForm[Y]];
For[i = 1, i <= n, i++,
Subscript[P, i] = MatrixForm[S[[All, i]].Y[[i]]];
Print["CarpimS=", MatrixForm[S[[All, i]]]];
Print["CarpimY=", MatrixForm[Y[[i]]]];
Print["P=", Subscript[P, i]];
];  

如果有人知道这种情况请回答

Answer 1

这是一个写得很糟糕的问题，所以我将不得不做出一些猜测。您的代码似乎与您的问题无关，但有以下例外：S[[All, i]].Y[[i]]。根据您的描述，我猜我们可以说S 是 k 乘以 k，Y 也是。如果您的目标是DotS 的第 i 列通过其逆 Y 的第 i 行，那么您所拥有的很好：您将每个向量生成为一维向量，然后生成一个标量产品。但是你说你没有得到你想要的，所以我猜你想要的是外部产品。

mS = IdentityMatrix[5];
mS[[3, 3]] = 99;
mY = Inverse[mS];
mS[[All, 3]].mY[[3]]  (* scalar product *)
Outer[Times, mS[[All, 3]], mY[[3]]] (* outer product *)

如果我猜错了，您将不得不努力改进您的问题。