从mathematica中的离散函数创建列表

Question

我正在尝试制作列表{{a}，{b} ...}，但我正在建立一个非列表字词列表{{{a}}，{{b} } ...}

首先，我开始使用离散函数：

 f[n_]:=RandomReal[BinormalDistribution[{c[[n, 3]], c[[n, 1]]}, ........... 

其次，我通过以下方式列出了一份清单：

 d = Array[f, 100]

输出：{{{1.64219, 0.0231185}}, {{0.690885, 0.00599381}},......

SmoothDensityHistogram无法阅读：

  

SmoothDensityHistogram :: ldata：{{1.64219,0.0231185}}不是有效的数据集或数据集列表。

Answer 1

您可以在列表列表中Flatten一个级别。实际上，你正在挤出3d数组中的单个维度，使其成为2d：

In[22]:= mylist = {{{1.64219, 0.0231185}}, {{0.690885, 0.00599381}}}

Out[22]= {{{1.64219, 0.0231185}}, {{0.690885, 0.00599381}}}

In[23]:= Dimensions[mylist]

Out[23]= {2, 1, 2}

In[24]:= mymatrix = Flatten[mylist, 1]

Out[24]= {{1.64219, 0.0231185}, {0.690885, 0.00599381}}

In[25]:= Dimensions[mymatrix]

Out[25]= {2, 2}