[X,Y]=meshgrid(.6:.05:1.4,-1.4:.05:-.6); % malla de puntos para dibujar la superficie Z=sqrt(4-X.^2-Y.^2); % valor de la función sobre los puntos de la malla surf(X,Y,Z) % dibujo de la superficie shading interp hold on plot3(1,-1,sqrt(2),'*') % dibujo del punto P plot3(1,-1,0,'o') % dibujo de la proyección de P en el 'suelo': (1,-1) contour(X,Y,Z,sqrt(2)) % curva de contorno correspondiente a P quiver(1,-1,-1/sqrt(2),1/sqrt(2)) % vector gradiente en (1,-1) hold off
[X,Y]=meshgrid(.6:.05:1.4,-1.4:.05:-.6); % malla para la superficie Z=sqrt(4-X.^2-Y.^2); % valores de z sobre la malla anterior surf(X,Y,Z) % trazado de la superficie shading interp hold on [X,Y]=meshgrid(.8:.05:1.2,-1.2:.05:-.8); % malla para el plano tangente mesh(X,Y,(4-X+Y)/sqrt(2)) % trazado del plano plot3(1,-1,sqrt(2),'*') % punto P alpha(.8) hold off