format 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])