Mathematica 中 Flatten 的倒数? [英] Inverse of Flatten in Mathematica?
本文介绍了Mathematica 中 Flatten 的倒数?的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
f[x_]:=Flatten[x] 的倒数是什么，其中 x 是维度变暗的数组?
What's the inverse of f[x_]:=Flatten[x] where x is Array with dimensions dims?
推荐答案
There is no built-in function, but it's pretty easy with a combination of Fold and Partition:
In[47]:= x1 = RandomReal[{0, 1}, {3, 4, 5}];
In[48]:= dims = Dimensions[x1]
Out[48]= {3, 4, 5}
In[49]:= x2 = Fold[Partition, Flatten[x1], Most[Reverse[dims]]];
In[50]:= x1 == x2
Out[50]= True
这篇关于Mathematica 中 Flatten 的倒数?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
查看全文
