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 RiemannEl 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