Cortezas Cilíndricas

Descargar como Notebook

Colaboración del Profesor Nicolás Marciales

Se hace rotar la región encerrada por la función y = Sen(x) con 0<x<Pi y el eje x, con respecto al eje y. Posteriormente se simulan por medio de bandas las cortezas cilíndricas que aproximan el sólido generado.

Clear[n]; Manipulate[
 Show[ContourPlot3D[
   z == Sin[Sqrt[x^2 + y^2]], {x, -Pi, Pi}, {y, -Pi, Pi}, {z, -2, 2}, 
   RegionFunction -> Function[{x, y, z}, 0 < x^2 + y^2 < Pi^2], 
   Mesh -> None, ContourStyle -> Opacity[0.3]], 
  ContourPlot3D[
   Evaluate@Table[x^2 + y^2 == k^2, {k, 0, 3, 3/n}], {x, -Pi, 
    Pi}, {y, -Pi, Pi}, {z, -2, 2}, 
   ContourStyle -> {Opacity[0.1], Red}, Mesh -> 1, 
   RegionFunction -> 
    Function[{x, y, z}, 0 < z <= Sin[Sqrt[x^2 + y^2]]]], 
  AxesOrigin -> {0, 0, 0}], {{n, 1}, 1, 20, 1}]

Para aprender más sobre Mathematica ingrese aquí sitio de aprendizaje de Wolfram o en mi website ustamathematica.wixsite.com/basicas