In[]:=
ClearAll["Global`*"]
(*UlrichMutze,buckdocumentation2025-09-02*)
f=Sqrt[x1*x1+x2*x2];f1=D[f,x1];f2=D[f,x2];VectorPlot[{f1,f2},{x1,-1,1},{x2,-1,1}](*"The vector field is the gradient of the radius vector.It is known to consist of unit vectors. The graphics, when created by means of Mathematica 14.3 ( or Mathematica 14.1 or Wolfram Player 13 ) shows arrors of the correct direction but non-constant length "*)
Out[]=
