Mathematica中的平展逆問題？

Question

f [x _]的倒數是什麼：= Flatten [x]其中x是維數dims的數組？

Answer 1

沒有內置的功能，但它很容易與Fold和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 

Answer 2

您可能想要​​或其親屬之一。