function Sa = ObjFunSa(z,ObjFun,x,d)

xk = x + z*d;
Sa = feval(ObjFun,xk);

endfunction
