5.28 How to plot the gradient vector field?

restart; 
f:=3*x^2 + y* cos(x*y); 
the_grad :=linalg[grad](f,[x,y]); 
plots[fieldplot](the_grad,x=-2..2,y=-2..2);
 

or

or can do it in just one command: plots[gradplot](f,x=-2..2,y=-2..2);