作业帮Mathematica的一个小问题,谁能帮我看下
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/15 03:53:46
Mathematica的一个小问题,谁能帮我看下
a={{1,2,3},{4,5,6}},b={{7,8,9},{10,11,12}}
我想让他们一一配对成{1,7},{2,8},{3,9},{4,10},{5,11},{6,12}
程序该如何编制呢?
这个太容易了，换一个
c = {{{1,2},{3,4}},{{7,8},{9,10}}};
d = {{5,6},{10,11}};
组织成{{1,2,5}，{3,4,6}，{7,8,10}，{9,10,11}}
如何编制程序
a={{1,2,3},{4,5,6}},b={{7,8,9},{10,11,12}}
我想让他们一一配对成{1,7},{2,8},{3,9},{4,10},{5,11},{6,12}
程序该如何编制呢?
这个太容易了，换一个
c = {{{1,2},{3,4}},{{7,8},{9,10}}};
d = {{5,6},{10,11}};
组织成{{1,2,5}，{3,4,6}，{7,8,10}，{9,10,11}}
如何编制程序
MapThread[Append,{c,d},2]
再问： 不对，得出的结果不是我要的，我自己弄得太糟糕了 Flatten[Thread /@ Thread[List[c, d]]]~Partition~3
再答： In[4]:= c = {{{1, 2}, {3, 4}}, {{7, 8}, {9, 10}}}; d = {{5, 6}, {10, 11}}; Flatten[MapThread[Append, {c, d}, 2], 1] Out[6]= {{1, 2, 5}, {3, 4, 6}, {7, 8, 10}, {9, 10, 11}} Flatten一层就行了啊。。。
再问： 不对，得出的结果不是我要的，我自己弄得太糟糕了 Flatten[Thread /@ Thread[List[c, d]]]~Partition~3
再答： In[4]:= c = {{{1, 2}, {3, 4}}, {{7, 8}, {9, 10}}}; d = {{5, 6}, {10, 11}}; Flatten[MapThread[Append, {c, d}, 2], 1] Out[6]= {{1, 2, 5}, {3, 4, 6}, {7, 8, 10}, {9, 10, 11}} Flatten一层就行了啊。。。