(%i2) f( x) : = 2 * x ^ 2 - x ^ 3 $
wxdraw2d( filled_func = 0, fill_color = grey, explicit( f( x), x, 0, 2),
filled_func =false, color = blue, line_width = 3, explicit( f( x), x, 0, 2),
xaxis =true) ;
0 errores, 0 advertencias (%t2)  (Gráficos)
(%o2)

Nos piden la superficie del sólido generado al girar la zona gris alrededor del eje x:

(%i5) print( "Superficie=", integrate( 2 * %pi * f( x) * sqrt( 1 +( diff( f( x), x)) ^ 2), x, 0, 2)) $
Superficie= 2 π 0 2 ( 2 x 2 x 3 ) ( 4 x 3 x 2 ) 2 + 1 d x

Este tipo de integrales necesitamos resolverlas numéricamente.


Created with wxMaxima.