SHARE
TWEET

Shining a torch

Matthen Jun 9th, 2011 153 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top