Matthen

Shining a torch

Jun 9th, 2011
167
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Manipulate[
  2. Show[RegionPlot3D[\[Sqrt](x^2 + y^2) <=
  3. z && (z Cos[\[Theta]] - x Sin[\[Theta]] >
  4. 2 Cos[\[Theta]]), {x, -10, 10}, {y, -10, 10}, {z, -2, 10},
  5. Mesh -> None, PerformanceGoal -> "Quality", PlotPoints -> 20,
  6. PlotStyle -> White, Lighting -> "Neutral", Axes -> None,
  7. Boxed -> False, ViewPoint -> {0.2, 0.2, -5}],
  8. RegionPlot3D[ (z Cos[\[Theta]] - x Sin[\[Theta]] >
  9. 2.1 Cos[\[Theta]]), {x, -10, 10}, {y, -10, 10}, {z, -2, 10},
  10. Mesh -> None, PerformanceGoal -> "Quality", PlotPoints -> 20,
  11. PlotStyle -> GrayLevel[0.1]]
  12. , Graphics3D[
  13. {Red, Cylinder[{{0, 0, 0}, {0, 0, -0.5}}, 0.5], Blue,
  14. Cylinder[{{0, 0, 0}, {0, 0, -2}}, 0.3]}
  15. ]
  16. , ImageSize -> {240}],
  17. {{\[Theta], Pi/3}, 0, Pi/2}]
RAW Paste Data