Advertisement
Matthen

Gramophone in Mathematica

Jun 30th, 2011
201
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.56 KB | None | 0 0
  1. Show[Graphics3D[{Brown,
  2. Tube[{{0, 0, -3}, {1, 0, -3}}, f[-3]],
  3. Tube[{{1, 0, -3}, {1.5, 0.4, -3}}, f[-3]],
  4. Cylinder[{{2, 0, -3}, {2.1, 0, -3}}, 1],
  5. Cuboid[{{2, 0.4, -2.8}, {1.4, 0.5, -3.2}}],
  6. Lighter@Brown,
  7. Cuboid[{{3, -1.5, -1.5}, {2.1, 1.5, -4.5}}]
  8. }, PlotRange -> All, Boxed -> False, Lighting -> "Neutral"],
  9. ParametricPlot3D[{Sin[t] Exp[0.9 z], Cos[t] Exp[0.9 z],
  10. z + (-Sin[5 (t + Pi)] Exp[2 z] - 1)*0.05}, {t, 0, 2 Pi}, {z, -3,
  11. 0}, PlotStyle ->
  12. RGBColor[0.7647058823529411`, 0.6392156862745098`,
  13. 0.40784313725490196`]]
  14. ]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement