mathematica求和

题目

mathematica求和
如何用公式求不同数值代入公式后的和.
如：求和（Ai-A）^2
A1=59.7
A2=59.4
A3=69.6
A4=59.9

答案

a = {59.7,59.4,69.6,59.9}
b = Table[(x - a[[k]])^2,{k,1,4}]
b = Sum[b[[k]],{k,1,4}]
(-69.6 + x)^2 + (-59.9 + x)^2 + (-59.7 + x)^2 + (-59.4 + x)^2