

x=1/4+(0:3)/2; % abscisas de los puntos medios
y=1/4+(0:1)/2; % ordenadas de los puntos medios
[X,Y]=meshgrid(x,y); % malla de puntos medios
Z=X-Y; % valores de la función sobre la malla
sum(Z(:))/4 % suma de Riemann
El valor exacto de la integral es fácil de obtener a mano; puedes hacerlo para comprobar cuánto error se ha cometido en la aproximación con la suma de Riemann. Si quieres hacerlo en el ordenador puedes escribir:
syms x y % declaramos x e y como variables simbólicas
int(int(x-y,y,0,1),x,0,2) % cálculo de la integral de x-y en [0,2]x[0,1]
t=0:pi/20:2*pi; % valores del ángulo
subplot(1,2,1)
plot(cos(t),sin(t)) % trazado de la circunferencia
xlabel('x');ylabel('y');axis equal
subplot(1,2,2)
[T,Z]=meshgrid(t,-2:2); % malla para dibujar el cilindro
surf(cos(T),sin(T),Z); % trazado del cilindro
shading interp
alpha(.7)
function cilindros(apartado)
[X,Y]=meshgrid(-1:.1:1); % malla de puntos
figure(apartado)
switch apartado
case 1
surf(X,X.^2,Y) % cilindro parabólico y=x^2
case 2
surf(X,Y,Y.^2) % cilindro parabólico z=y^2
case 3
surf(X,Y,X.^2) % cilindro parabólico z=x^2
end
shading interp
alpha(.7)
axis equal
xlabel('x');ylabel('y');zlabel('z');
end





x=linspace(-sqrt(2)+10^(-7),sqrt(2)-10^(-7),20);
[X,Y]=meshgrid(x,1:2);
surf(X,Y,sqrt(2-X.^2)) % trazado de la superficie
hold on
surf(X,Y,zeros(size(X))) % dibujo de la proyección
shading interp
hold off
axis equal;xlabel('x');ylabel('y');zlabel('z');alpha(.5)
[R,T]=meshgrid(1:.05:2,0:pi/20:2*pi);
surf(R.*cos(T),R.*sin(T),R.^2) % trazado de la superficie
hold on
surf(R.*cos(T),R.*sin(T),zeros(size(R))) % dibujo de la proyección
shading interp
hold off
axis equal;xlabel('x');ylabel('y');zlabel('z');alpha(.5)
[R,T]=meshgrid(1:.05:3,0:pi/20:2*pi);
surf(R.*cos(T),R.*sin(T),1-R) % trazado de la superficie
hold on
surf(R.*cos(T),R.*sin(T),zeros(size(R))) % dibujo de la proyección
shading interp
hold off
axis equal;xlabel('x');ylabel('y');zlabel('z');alpha(.5)
[R,T]=meshgrid(0:.1:1,0:pi/20:2*pi);
surf(R.*cos(T),3-R.^2,R.*sin(T),3-R.^2) % trazado de la superficie
hold on
surf(R.*cos(T),zeros(size(R)),R.*sin(T)) % dibujo de la proyección
shading interp
hold off
axis equal;xlabel('x');ylabel('y');zlabel('z');alpha(.5)
[X,Z]=meshgrid(-sqrt(3):.1:sqrt(3),-2:2);
surf(X,sqrt(4-X.^2),Z) % trazado de la superficie
hold on
surf(X,zeros(size(X)),Z) % dibujo de la proyección
shading interp
hold off
axis equal;xlabel('x');ylabel('y');zlabel('z');alpha(.5)
[R,T]=meshgrid(0:.1:1,0:pi/20:2*pi);
X=R.*cos(T)/sqrt(2); Z=.5*(1+R.*sin(T)); % trazado de la superficie
surf(X,sqrt(1-X.^2-Z.^2),Z)
hold on
surf(X,zeros(size(X)),Z) % dibujo de la proyección
shading interp
hold off
axis equal;xlabel('x');ylabel('y');zlabel('z');alpha(.5)

syms x y % declara las variables x e y como simbólicas diff(x/y,x) % deriva la función x/y respecto de x
syms x y % declara las variables x e y como simbólicas diff(x/y,y) % deriva la función x/y respecto de y