wolfram-mathematica - 如何在 Mathematica 中制作具有各自平均值的元组表？

Question

我在 Mathematica 中定义了一个函数为 getavglist[w_?ListQ]:=N[Map[Mean,Tuples[w,2]]]。我想通过使它成为一个带有它的元组的表来添加到这个函数。例如，如果我有一个等于 {2,3,4,5} 的列表，我希望该函数创建一个类似 {{{2,2},2},{{2,3},2.5} 的表， {{2,4},3},{{2,5},3.5} 等}。我尝试了几种不同的方法，但似乎都没有奏效。我该怎么做呢？

标签： wolfram-mathematica

Answer 1

一种方法是创建一个为您提供整个表格的函数。我将借此机会向您介绍With和Compose( @*)。

makeTable[ws_] := With[{tuples2 = Tuples[ws, 2]},
  Transpose[{tuples2, N@*Mean /@ tuples2}]]

示例使用：

ws = {2, 3, 4, 5}
makeTable[ws]
TableForm[%, TableDepth -> 2]