关于Mathematica多个向量组成一个矩阵问题
mathematica吧
全部回复
仅看楼主
level 4
rudykon200 楼主
各位前辈,小白在此请教:已经求出ei,fi,i=1,8的向量,想用这64个元素,组成一个矩阵,下面代码也能实现这一功能,感觉有点不精练,请教前辈有没有别的方法可以实现。
e1 = {e11, e12, e13, e14};
e2 = {e21, e22, e23, e24};
e3 = {e31, e32, e33, e34};
e4 = {e41, e42, e43, e44};
e5 = {e51, e52, e53, e54};
e6 = {e61, e62, e63, e64};
e7 = {e71, e72, e73, e74};
e8 = {e81, e82, e83, e84};
f1 = {f11, f12, f13, f14};
f2 = {f21, f22, f23, f24};
f3 = {f31, f32, f33, f34};
f4 = {f41, f42, f43, f44};
f5 = {f51, f52, f53, f54};
f6 = {f61, f62, f63, f64};
f7 = {f71, f72, f73, f74};
f8 = {f81, f82, f83, f84};
Join[{e1}, {e2}, {e3}, {e4}, {e5}, {e6}, {e7}, {e8}] // MatrixForm
Join[{f1}, {f2}, {f3}, {f4}, {f5}, {f6}, {f7}, {f8}] // MatrixForm
Join[%, %%, 2] // MatrixForm
2020年07月24日 09点07分 1
level 4
一开始如果把e1写成e[1]至少可以方便后面操作,而且在输入的时候可以有意识的带有结构,比如m={{},{},{}}。
2020年07月25日 02点07分 2
感谢回复,没有别的代码可以实现吗?现在是Join了好几次
2020年07月27日 02点07分
level 9
Join[{e1}, {e2}, {e3}, {e4}, {e5}, {e6}, {e7}, {e8}]和{e1, e2, e3, e4, e5, e6, e7, e8}有啥区别
2020年07月27日 06点07分 3
ei是向量,直接Join不成功
2020年07月27日 07点07分
@rudykon200 这和ei是什么没关系吧,中间那两步Join怎么看都是多余的。
2020年07月27日 11点07分
@rudykon200 Join[{f1, f2, f3, f4, f5, f6, f7, f8}, {e1, e2, e3, e4, e5, e6, e7, e8}, 2]直接这么写难道不行
2020年07月27日 11点07分
@asd321fgh678 前辈,我试了下,可以的呢。感谢您的耐心回复。刚上手,有些命令理解的还不透彻,再次感谢。[玫瑰]
2020年07月28日 01点07分
level 9
Clear["Global`*"];
e[i_] := Table[
ToExpression["e" <> IntegerString[i] <> IntegerString[j]], {j, 1,
4}];
f[i_] := Table[
ToExpression["f" <> IntegerString[i] <> IntegerString[j]], {j, 1,
4}];
Table[e[i], {i, 1, 8}] // MatrixForm
Table[f[i], {i, 1, 8}] // MatrixForm
Table[f[i]~Join~e[i], {i, 1, 8}] // MatrixForm
2020年07月27日 09点07分 4
感谢逍遥前辈的耐心指导,我把用到的指令好好消化一下。条条大路通罗马啊
2020年07月28日 01点07分
吧务
level 15
……你果然最后准备压平啊。联动:https://tieba.baidu.com/p/6849439079
2020年08月01日 03点08分 5
1