Arsthbt

How can I draw this image using TikZ?

Your question contains four pictures, out of which I am focusing on the lower two. Given that you want to vary the gray level of the plots, I'd like to recommend pgfplots where this kind of shading can be achieved with point meta. Like many other users, I am not too keen on punching in texts from screen shots, so I added some texts but you will find it easy to modify them to your needs.

documentclass[tikz,border=3.14mm]standalone
usetikzlibraryshadings
usepackagepgfplots
pgfplotssetcompat=1.16
begindocument
begintikzpicture[bullet/.style=circle,fill,inner sep=1pt,
 declare function=f(x,y)=2-0.5*pow(x-1.25,2)-0.5*pow(y-1,2);]
 beginaxis[view=15045,colormap/blackwhite,axis lines=middle,%
 zmax=2.2,zmin=0,xmin=-0.2,xmax=2.4,ymin=-0.2,ymax=2,%
 xlabel=$x$,ylabel=$y$,zlabel=$z$,
 xtick=empty,ytick=empty,ztick=empty]
 addplot3[surf,shader=interp,domain=0.6:2,domain y=0.5:1.2,opacity=0.7] 
 f(x,y);
 addplot3[thick,domain=0.6:2,samples y=1] (x,1.2,f(x,1.2)); 
 draw[dashed] (1.75,0,0) node[above left]$x_0$ -- (1.75,1.2,0)
 node[bullet] (b1) -- (0,1.2,0) node[above right]$y_0$
 (1.75,1.2,0) -- (1.75,1.2,f(1.75,1.2))node[bullet] ;
 draw (1.75,1.2,f(1.75,1.2)) -- (0.75,1.2,f(1.75,1.2)+0.5)
 coordinate[pos=0.5] (aux1);
 draw[opacity=0.5,upper left=gray!80!black,upper right=gray!60,
lower left=gray!60,lower right=gray!80!black] (2,1.2,0) -- (0.6,1.2,0)
 -- (0.6,1.2,2.2) -- (2,1.2,2.2) -- cycle;
 addplot3[surf,shader=interp,domain=0.6:2,domain y=1.2:1.9,opacity=0.7] 
 f(x,y);
 endaxis
 draw (aux1) -- ++ (-1,1) node[above,align=center]slope in $x$ direction\
 $partial_xf(x,y);
 node[anchor=north west] at (b1) $(x_0,y_0)$; 
 %
 beginaxis[xshift=6.5cm,view=15045,colormap/blackwhite,axis lines=middle,%
 zmax=2.2,zmin=0,xmin=-0.2,xmax=2.4,ymin=-0.2,ymax=2,%
 xlabel=$x$,ylabel=$y$,zlabel=$z$,
 xtick=empty,ytick=empty,ztick=empty]
 addplot3[surf,shader=interp,domain=0.6:1.75,domain y=0.5:1.9,opacity=0.7] 
 f(x,y);
 addplot3[thick,domain=0.5:1.9,samples y=1] (1.75,x,f(1.75,x)); 
 draw[dashed] (1.75,0,0) node[above left]$x_0$ -- (1.75,1.2,0)
 node[bullet] (b2)
 -- (0,1.2,0) node[above right]$y_0$
 (1.75,1.2,0) -- (1.75,1.2,f(1.75,1.2))node[bullet] ;
 draw (1.75,1.2,f(1.75,1.2)) -- (1.75,0.2,f(1.75,1.2)+0.2)
 coordinate[pos=0.5] (aux2);
 draw[opacity=0.5,upper left=gray!80!black,upper right=gray!60,
lower left=gray!60,lower right=gray!80!black] (1.75,0.5,0) -- (1.75,1.9,0)
 -- (1.75,1.9,2.2) -- (1.75,0.5,2.2) -- cycle;
 addplot3[surf,shader=interp,domain=1.75:2,domain y=0.5:1.9,opacity=0.7] 
 f(x,y);
 endaxis
 draw (aux2) -- ++ (0.3,1) node[above,align=center]slope in $y$ direction\
 $partial_yf(x,y);
 node[anchor=north east] at (b2) $(x_0,y_0)$;
endtikzpicture
enddocument