%Griewank函數
%輸入x並給出相應的y值。在x=(0，0，...,0).
[row，col]= size(x)；
if row & gt1
錯誤(“輸入了錯誤的參數”)；
結束
y1=1/4000*sum(x.^2)；
y2 = 1；
對於h=1:col
y2 = y2 * cos(x(h)/sqrt(h))；
結束
y = y 1-y2+1；
y =-y；
函數球()
[a，b，c]=球面(40)；
t = ABS(°c)；
surf(a，b，c，t)；
軸(“等於”)
坐標軸(“正方形”)