% file name:    gradf.m
% problem 39: f gradient (Miele et al.) n=4

function y = gradf(x)
y(1)=-1;
y(2)=0;
y(3)=0;
y(4)=0;
y=y';