我在Mathematica中定义了一个函数为getavglist[w_？ListQ]：=N[Map[Maven，Tuples[w，2]]]。我想添加到这个函数中，使它成为一个包含元组的表。例如，如果我有一个等于{2,3,4,5}的列表，我希望函数生成一个类似{{2,2}，2}，{2,3}，2.5}，{2,4}，3}，{2,5}，3.5}等}的表。我尝试了几种不同的方法，但似乎都不起作用。我该怎么做？
一种方法是创建一个函数，为您提供整个表。我将利用这个机会向您介绍With和Compose(@*(。
makeTable[ws_] := With[{tuples2 = Tuples[ws, 2]},
Transpose[{tuples2, N@*Mean /@ tuples2}]]
示例用法：
ws = {2, 3, 4, 5}
makeTable[ws]
TableForm[%, TableDepth -> 2]