wolfram-mathematica - 格式化 mathematica 输出结果列表

Question

我有一个对数据进行操作的表达式列表。

Min[data]
Max[data]
Covariance[data, data1]
Mean[data]
GeometricMean[data]
Total[data]
Sum[Log[data[[i]]], {i, 1, Length[data]}]
Sum[(data[[i]])^2, {i, 1, Length[data]}]

输出看起来像这样

Out[1]= 1.9
Out[2]= 3.1
....

是否可以显示结果及其表达式？例如

Min[data] = 1.9
Max[data] = 3.1
....

欢迎任何有关如何格式化此类输出以便于阅读的建议!

Answer 1

你可以用

$PrePrint = 
  Function[a, 
   Row[{ToExpression[InString[$Line], StandardForm, HoldForm], " = ", 
     a}]];

这对于小输入很好，但对于多行输入可能不是你想要的。



(您可以再次使用 Unset[$PrePrint] 关闭此功能)