% Este programa grafica algunas curvas de nivel de la superficie 
% z=x exp(-x^2-y^2)

clear, clc, clf, axis('square')
xa=-2:.2:2;
ya=-2:.2:2;
[x,y] = meshgrid(xa,ya);
%subplot(2,1,1);
z=x.*exp(-x.^2-y.^2);
zmax=max(max(z));
zmin=min(min(z));
dz=(zmax-zmin)/10;
nivel=zmin+ 0.5*dz: dz:zmax;
%subplot(2,1,2);
h=contour(x,y,z,nivel); clabel(h,'manual')
title('Curvas de nivel hechas con contour (x,y,z,nivel)')
xlabel('x');ylabel('y');
input('Ver curvas de nivel de z=x*exp(-x^2-y^2), en el editor.')
