//Find x in R^2 such that:
// Check if a user specifies correct options or not

function y = fun(x)
	y = x(1)^2 + x(2)^2;
endfunction
x0 = [1,2];
function y = grad(x)
	y=[2*x(1)];
endfunction
options=list("MaxIter", [1000], "CpuTime", [100], "GradObj", grad, "Hessian", "OFF");

//Error
//fminunc: Expected function for Hessian of Objective
//at line     313 of function fminunc called by :  
//[xopt,fopt,exitflag,output,gradient,hessian] = fminunc (fun, x0, options);
//at line      20 of exec file called by :    
//exec fminunc_gradient4.sce

[xopt,fopt,exitflag,output,gradient,hessian] = fminunc (fun, x0, options);
