rechenberg

function opt=rechenberg_abra(f,x)

opt=x;

sigma=1;
c=0.9;
siker=0;
n=length(x);

hold on

for i=1:500
    y=opt+sigma*randn(1,n);

    if f(y)<f(opt) % Egy elitista lépés
        siker=siker+1;
        opt=y;
        plot3(opt(1),opt(2),f(opt),'r+');
    end

    if mod(i,20)==0 % A szórás adaptációja
        if siker<4
            sigma=sigma*c;
        elseif siker>4
            sigma=sigma/c;
        end
        siker=0;
    end

end

x=linspace(-1.5,1.5,200);
y=x;
[xx,yy]=meshgrid(x,y);
mesh(x,y,xx.^2+yy.^2);
hold off

Not enough input arguments.

Error in rechenberg_abra (line 3)
opt=x;