ClearAll[ImageGradientField]ImageGradientField[image_]:=Module[{imageGray,gradientX,gradientY,gradientField,integerGradientField},imageGray=ColorConvert[image,"Grayscale"];gradientX=Differences[ImageData[imageGray],{0,1}];(*Echo[gradientX]*)gradientY=Differences[ImageData[imageGray],{1,0}];(*Echo[gradientY];*)gradientField=MapThread[List,{Most@gradientX,Transpose@Most@Transpose@gradientY},2];integerGradientField1=Round[gradientField*(256*256-1)];ListVectorPlot[Transpose[Reverse[integerGradientField1]],PlotRange->All]]