Mathematica中条件查询的地图选择

如何解决Mathematica中条件查询的地图选择

| 使用以下列表，

list = {{a,b,c,d},{1,2,3,4},{5,6,7,8}};

是否可以选择第二个值> 3的列表。所需的输出如下

{5,8}

调整以下当前提取列表中所有值> 2的代码

Select[#,# > 2 &] & /@ list[[2 ;;]

可以在此处找到复杂的查询解决方案，在Mathematica中进行条件数据处理

解决方法

或者，使用Select

Select[list,#[[2]] > 3 &]

输出量

{{5,6,7,8}}

, 在这种情况下，Select是最简单的方法，但是Pick在相关问题中也很有用。

list = {{a,b,c,d},{1,2,3,4},{5,8}};

Pick[list,#>3& /@ list[[All,2]] ]

为了解释，Pick取两个相同形状的列表（或嵌套列表），并从第一个元素返回每个元素，第二个元素的对应元素为True。（它也可以接受第三个参数来匹配True以外的元素。）这里，第二列用ѭ12提取，然后将测试ѭ13映射到每个元素。然后将其用作选择列表。通过500回应评论，要求推广Select方法：

selectByColumn[array_,index_,value_,range_] :=
  Select[array,#[[index]] > value &][[All,range]]

这样就可以指定： array：要从中提取的输入数组 index：要比较的列索引 value：要比较的值 range：要从每个结果行中提取的Part规范 , 不同解决方案的速度比较有趣的是，Select在未打包的数组中总是可以更快地工作，而对于大型数组，差异大约是一个数量级！单击下表放大：时序测试代码：

solutions = Hold[
   Select[list,#[[2]] > 3 &],Cases[list,_List?(#[[2]] > 3 &)],x_List /; x[[2]] > 3],{_,x_,___} /; x > 3],_?(# > 3 &),___}],{x___} /; List[x][[2]] > 3],Pick[list,UnitStep[list[[All,2]] - 3],1],# > 3 & /@ list[[All,2]]]
   ];
testCases = Hold[
   {\"Packed Reals\",RandomReal[{0,5},{dim,dim}]},{\"Unpacked Reals\",Developer`FromPackedArray@RandomReal[{0,{\"Packed Integers\",RandomInteger[{0,{\"Unpacked Integers\",Developer`FromPackedArray@RandomInteger[{0,{\"Rationals\",Rationalize[#,.001] & /@ RandomReal[{0,dim}]}
   ];
timing := 
  Function[Null,If[(time = First[Timing[Do[#;,{n}]]]) < .3,Print[\"Too small timing for \",n,\" iterations (dim=\",dim,\") of \",HoldForm[#],\": \",time,\" seconds!\"]; time,time]/n,HoldFirst];
generateTable := 
 Labeled[TableForm[
   Transpose@
    Table[list = testCases[[i,2]]; 
     tmgs = List @@ (timing /@ solutions); 
     d = Last@MantissaExponent[Min[tmgs]] - 3; 
     Row[{Round[10^-d*#],\".\\[Times]\",Superscript[10,d]}] & /@ 
      tmgs,{i,1,Length[testCases]}],TableHeadings -> {List @@ (HoldForm /@ solutions),List @@ testCases[[All,1]]},TableAlignments -> Right],Row[{\"Average timings for \",\"\\[Times]\",\" list\"}],Top]

Column[{dim = 5; n = 30000; generateTable,dim = 100; n = 3000; 
  generateTable,dim = 1000; n = 150; generateTable},Left,Frame -> All,FrameStyle -> Gray]

, 备用Cases语法。第一项被跳过，第二项经测试大于3，我们不在乎其余列表：

In[45]:= Cases[list,___}]
Out[45]= {{5,8}}

我怀疑这会比Select更快，但有时会更清晰，尤其是在测试涉及不同数据类型或匹配某些子结构的情况下。 , 编辑：如Alexey所述，在Mathematica中，以下构造比我以前的解决方案更惯用

Cases[list,x_List /; x[[2]] > 2]

和

Cases[list,_List?(#[[2]] > 2 &)]

一种解决方案是使用Cases

Cases[list,___} /; x > 2]
Out[1] = {{5,8}}

如果要（说）检查第95个元素是否> 2，这将无济于事。因此，这是一种更好的方法，可以轻松指定位置：

Cases[list,{x___} /; List[x][[2]] > 2]
Out[2] = {{5,8}}

Mathematica中条件查询的地图选择

如何解决Mathematica中条件查询的地图选择

解决方法

相关推荐