Integración múltiple con MAPLE V (II)

Teorema de Fubini

Inicialización

> restart:

> with( plots ):

> setoptions( labels=[`x`,`y`] ):

> setoptions3d( labels=[`x`,`y`,`z`] ):

> with( student ): # librería para cálculo de una variable

> read( "a:calcplot2.txt" ): # librería para cálculo de varias variables (especificar adecuadamente la ruta del directorio donde se encuentra, si no es el mismo de la práctica)

>

Integrales dobles: Teorema de Fubini

El objetivo de esta sección es ilustrar el cálculo de integrales dobles mediante integrales iteradas, así como facilitar la comprobación de que se han escrito correctamente los nuevos límites tras efectuar un cambio en el orden de integración.

Vamos a calcular la integral de la función [Maple Math] sobre el recinto plano limitado por las rectas [Maple Math] , escribiendo la integral doble como una integral iterada de las dos maneras posibles: dy-dx (regiones de tipo I o verticalmente simples) y dx-dy (regiones de tipo II u horizontalmente simples) .

Introducimos el integrando:

> f := x^3 * y + cos(x);

[Maple Math]

>

Regiones verticalmente simples: [Maple Math] < [Maple Math] < [Maple Math] , [Maple Math] < [Maple Math] < [Maple Math]

Introducimos los límites de integración: y= [Maple Math] , y= [Maple Math] , x=a, x=b.

> domy := y = 0 .. x ;

[Maple Math]

> domx := x = 0 .. Pi/2 ;

[Maple Math]

Comprobamos que hemos descrito correctamente el dominio:

> Dyx := dydxplot( domy, domx ): print(Dyx);

[Maple Plot]

>

Comprobamos que hemos transcrito correctamente el problema:

> PROByx := Int( Int( f, domy ), domx );

[Maple Math]

Por último, evaluamos la integral:

> PROByx = evalf(value( PROByx ));

[Maple Math]

>

Regiones horizontalmente simples: [Maple Math] < [Maple Math] < [Maple Math] , [Maple Math] < [Maple Math] < [Maple Math]

I ntroducimos los límites de integración: x= [Maple Math] , x= [Maple Math] , y=c, y=d.

> domx := x = y .. Pi/2 ;

[Maple Math]

> domy := y = 0 .. Pi/2 ;

[Maple Math]

Comprobamos que hemos descrito correctamente el dominio:

> Dxy := dxdyplot( domx, domy ): print(Dxy);

[Maple Plot]

>

Comprobamos que hemos transcrito correctamente el problema:

> PROBxy := Int( Int( f, domx ), domy );

[Maple Math]

Por último, evaluamos la integral:

> PROBxy = evalf(value( PROBxy ));

[Maple Math]

>

Nota : En problemas más complicados quizá resulte difícil comprobar que hemos escrito correctamente los límites al cambiar el orden de integración. Las dos sentencias siguientes pueden ser de utilidad en tal caso.

> display( [ Dxy, Dyx ] );

[Maple Plot]

> display( array( [Dxy,Dyx] ) );

[Maple Plot]

>

Integrales triples: Teorema de Fubini

Ahora disponemos de seis posibilidades para escribir una integral triple como una integral iterada. Supongamos que queremos integrar una

> funcion := F(x,y,z);

[Maple Math]

en la región limitada por el paraboloide circular [Maple Math] y el plano [Maple Math] situada en el primer octante.

>

dz-dy-dx

> domz := z = x^2+y^2 .. 2;

[Maple Math]

> domy := y = 0 .. sqrt(2-x^2);

[Maple Math]

> domx := x = 0 .. sqrt(2);

[Maple Math]

> PROBzyx := Int( Int( Int(funcion, domz), domy), domx);

[Maple Math]

> Dzyx := dzdydxplot( domz, domy, domx ): display(Dzyx, axes=normal);

[Maple Plot]

>

dz-dx-dy

> domz := z = x^2+y^2 .. 2;

[Maple Math]

> domx := x = 0 .. sqrt(2-y^2);

[Maple Math]

> domy := y = 0 .. sqrt(2);

[Maple Math]

> PROBzxy := Int( Int( Int(funcion, domz), domx), domy);

[Maple Math]

> Dzxy := dzdxdyplot( domz, domx, domy ): display(Dzxy, axes=normal);

[Maple Plot]

>

dx-dy-dz

> domx := x = 0 .. sqrt(z-y^2);

[Maple Math]

> domy := y = 0 .. sqrt(z);

[Maple Math]

> domz := z = 0 .. 2;

[Maple Math]

> PROBxyz := Int( Int( Int(funcion, domx), domy), domz);

[Maple Math]

> Dxyz := dxdydzplot( domx, domy, domz ): display(Dxyz, axes=normal);

[Maple Plot]

>

Nota : Aunque esta es la descripción más conveniente de la región, debido a errores de redondeo MAPLE tropieza en algún momento con la raíz cuadrada de un número negativo, lo que da lugar al mensaje de error. Compara con el ejemplo dy-dx-dz.

dx-dz-dy

> domx := x = 0 .. sqrt(z-y^2);

[Maple Math]

> domz := z = y^2 .. 2;

[Maple Math]

> domy := y = 0 .. sqrt(2);

[Maple Math]

> PROBxzy := Int( Int( Int(funcion, domx), domz), domy);

[Maple Math]

> Dxzy := dxdzdyplot( domx, domz, domy ): display(Dxzy, axes=normal);

[Maple Plot]

>

dy-dx-dz

> domy := y = 0 .. sqrt(z-x^2);

[Maple Math]

> domx := x = 0 .. sqrt(z);

[Maple Math]

> domz := z = 0 .. 2;

[Maple Math]

> PROByxz := Int( Int( Int(funcion, domy), domx), domz);

[Maple Math]

> Dyxz := dydxdzplot( domy, domx, domz ): display(Dyxz, axes=normal);

[Maple Plot]

>

dy-dz-dx

> domy := y = 0 .. sqrt(z-x^2);

[Maple Math]

> domz := z = x^2 .. 2;

[Maple Math]

> domx := x = 0 .. sqrt(2);

[Maple Math]

> PROByzx := Int( Int( Int(funcion, domy), domz), domx);

[Maple Math]

> Dyzx := dydzdxplot( domy, domz, domx ): display(Dyzx, axes=normal);

[Maple Plot]

>