不明白你的意思,改成这样
sets:
s//:x;
endsets
data:
x = 1.7,2.2,14.4,1.1,0.4,20.6,5.3,0.7,1.9,13,12,9.3,1.4,18.7,8.5,25.5,11.6,14.1,22.1,1.1,2.5,14.4,1.7,37.6,0.6,2.2,39,0.3,15,11,7.3,22.9,1.7,0.1,1.1,0.6,9,1.7,7,20.1,0.4,2.8,14.1,9.9,10.4,10.7,30,3.6,5.6,30.8,13.3,4.2,25.5,3.4,11.9,21.5,27.6,36.4,2.7,64,1.5,2.5,27.4,1,27.1,20.2,16.8,5.3,9.7,27.5,2.5,27;
enddata
max=72*@log(m)-72*@log(@sum(s:(x-a)^m)/72)+(m-1)*@sum(s:@log(x-a))-72;
a