Mathematica 2d 列表选择

Question

我有一个 2D 列表 - 128 行，每行 128 个元素（此数据是为 ContourPlot 设置的）。我想从小于某个 epsilon 的组中快速选择项目。

例如，使用 3x3 列表：p = {{1,2,3},{4,5,1},{7,8,2}}

我想挑选出例如

{{1,2},{1},{2}}

我知道 Select[Flatten[p],#

有什么想法吗？ （我必须使用 for 循环吗？）

瑞克

Answer 1

m感谢您提供具体的具体示例。

In[1]:= p = {{1, 2, 3}, {4, 5, 1}, {7, 8, 2}};
In[2]:= q = p //. {h___, m_ /; m > 2, t___} -> {h, t}

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

或者用英语，在你反复替换每个具有（可能为空）开头和任何大于 2 的元素和（可能为空）结尾的列表之后，使 q 等于 p结尾。我会写 head 和 tail，但这些在 Mathematica 中已经有可能令人困惑的含义。