Nos piden calcular el volumen de revolución del área comprendida entre \(y=x^3\), \(y=8\) y \(x=1\) respecto del eje y. En ese caso nos interesa x=f(y):

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

El volumen lo podemos obtener como la suma de las áreas de las secciones del objeto. Esta área vendrá dada por \(\pi f(y)^2\):

(%i3) A( y) : = %pi * f( y) ^ 2 ;
(%o3) A ( y ) := π f ( y ) 2

Ahora calculamo la primitiva y aplicamos Barrow:

(%i5) define( F( y), integrate( A( y), y)) ;
print( "Volumen=", F( 8) - F( 0)) $
(%o4) F ( y ) := 3 π y 5 3 5 Volumen= 96 π 5

Este mismo resultado lo habríamos obtenido directamente:

(%i6) print( "Volumen=", integrate( A( y), y, 0, 8)) $
Volumen= 96 π 5

Created with wxMaxima.