Calculo

****graficas tridimencionales (COMANDO PLOT3)
clear; clc; clf;

xa=-5:0.1:5;
ya=-5:0.1:5;
[x, y]=meshgrid(xa,ya);
z=x.^2+y.^2;

plot3(x, y, z)

title ('f(x,y)=x^2+y^2')
xlabel ('eje x');
ylabel ('eje y');
zlabel ('eje z');
grid on



****graficas maya (COMANDO MESH)
clear; clc; clf;

xa=-2:0.1:2;
ya=-1:0.1:2;
[x, y]=meshgrid(xa,ya);
z=1./(1+x.^2+y.^2);

mesh (x, y, z)%meshc (x, y, z)
%meshz (x, y, z)

title ('f(x,y)=1/(1+x^2+y^2)')
xlabel ('eje x');
ylabel ('eje y');
zlabel ('eje z');
grid on

---------------------------
COMANDO (COLORMAP)
clear; clc; clf;

xa=-2:0.1:2;
ya=-1:0.1:2;
[x, y]=meshgrid(xa,ya);
z=1./(1+x.^2+y.^2);

colormap hsv
%colormap jet
%colormap hot
%colormap cool
%colormap gray

surf(x, y, z)

title('f(x,y)=1/(1+x^2+y^2)')
xlabel ('eje x');
ylabel ('eje y');
zlabel ('eje z');
grid on


****graficas DE superficie (COMANDO SURF)
clear; clc; clf;

xa=-2:0.1:2;
ya=-1:0.1:2;
[x, y]=meshgrid(xa,ya);
z=x.*exp(-x.^2-y.^2);

mesh (x, y, z)
%surfc (x, y, z)
%surfc (x, y, z)

title ('f(x,y)=x*exp(-x.^2-y.^2)')
xlabel ('eje x');
ylabel ('eje y');
zlabel ('eje z');
grid on----------------------
COMANDO (VIEW)
clear; clc; clf;

xa=-2:0.1:2;
ya=-1:0.1:2;
[x, y]=meshgrid(xa,ya);
z=x.*exp(-x.^2-y.^2);

surf (x, y, z)

view([0, 0])
%view([45, 0])
%view([90, 0])
%view([135, 0])

title ('f(x,y)=x*exp(-x.^2-y.^2)')
xlabel ('eje x');
ylabel ('eje y');
zlabel ('eje z');
grid on



****sombreados (COMANDO SHADING)
clear; clc; clf;

xa=-8:0.1:8;
ya=-8:0.1:8
[x,y]=meshgrid(xa,ya);
r=sqrt(x.^2+y.^2);
z=sin(r)./r;

surf (x, y, z)
shading faceted
%shading flat
%shading interp

title('f(x,y)=sin(sqrt(x^2+y^2))/sqrt(x^2+y^2)')
xlabel ('eje x');
ylabel ('eje y');
zlabel ('eje z');
grid on


****graficas de contorno (comando de CONTORUR)
clear; clc; clf;

xa=-3:0.2:3;
ya=-2:0.2:1;
[x, y]=meshgrid(xa,ya);
z=y.^3+exp(y)-tanh(x);

contour(x, y, z,[0, 0])

title ('y^3+e^y=tanh(x)')
xlabel ('eje x');
ylabel ('eje y');
zlabel ('eje z');
grid on


****ecuaciones implicitas
clear; clc; clf; colormap flag

subplot(2, 2, 1)
xa=-4:0.1:2;
ya=-15:0.1:15;
[x,y]=meshgrid(xa,ya);
z=(x+3).*(x.^2+y.^2)-4;

contour (x,y,z,[0,0])

title('x+3x^2+y^2=4')
xlabel ('eje x');
ylabel ('eje y');
grid on


subplot(2, 2, 2)
xa=-3:0.1:5;ya=-15:0.1:15;
[x,y]=meshgrid(xa,ya);
z=x.*(x+1).*(x+2)-y.^2;

contour (x,y,z,[0,0])

title('x(x+1)(x+2)-y^2')
xlabel ('eje x');
ylabel ('eje y');
grid on


subplot(2, 2, 3)
xa=-3:0.1:3;
ya=-15:0.1:15;
[x,y]=meshgrid(xa,ya);
z=x.^4-4*x.^2+y.^2;

contour (x,y,z,[0,0])

title('x^4-4x^2+y^2')
xlabel ('eje x');
ylabel ('eje y');
grid on



subplot(2, 2, 4)
xa=1:0.1:3;ya=0:0.1:2;
[x,y]=meshgrid(xa,ya);
z=abs(x-2)+abs(y-1)-1;

contour (x,y,z,[0,0],'r')

title('|x-2|+|y-1|=1')
xlabel ('eje x');
ylabel ('eje y');
grid on



secciones conicas

clear; clc; clf; colormap flag
subplot(2, 2, 1)
%circunferencia
xa=-8:0.1:4;
ya=-3:0.1:9;
[x,y]=meshgrid(xa,ya);
z=x.^2+y.^2+4*x-6*y-12;

contour (x,y,z,[0,0])
axis ('square')

title('x^2+y^2+4x-6y-12')xlabel ('eje x');
ylabel ('eje y');
grid on


subplot(2, 2, 2)
%elipce
xa=-5:0.1:1;
ya=-5:0.1:3;
[x,y]=meshgrid(xa,ya);
z=9*x.^2+2*y.^2+36*x+4*y+20;

contour (x,y,z,[0,0])
axis ('square')

title('9x^2+2y^2+36x+4y+20=0')
xlabel ('eje x');
ylabel ('eje y');
grid on


subplot(2, 2, 3)
%hiperbola
xa=-6:0.1:4;
ya=-7:0.1:3;
[x,y]=meshgrid(xa,ya);
z=9*x.^2-16*y.^2+18*x-64*y+89;contour (x,y,z,[0,0])
axis ('square')

title('9x^2-16y^2+18x-64y+89=0')
xlabel ('eje x');
ylabel ('eje y');
grid on


subplot(2, 2, 4)
%parabola
xa=2:0.1:5;
ya=-2:0.1:4;
[x,y]=meshgrid(xa,ya);
z=y.^2-6*x-2*y+19;

contour (x,y,z,[0,0])
axis ('square')

title('y^2-6x-2y+19')
xlabel ('eje x');
ylabel ('eje y');
grid on



trazar la grafica de la esfera x^2+y^2+z^2=4...