fun :="diffdemo";
function diffdemo(x) ;
begin

return 3*x[0]^2+x[1]^2-2*x[0]*x[1]+4*x[0]+3*x[1]
end
return GradVector (fun,array(2,5));