Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- r = 1; Manipulate[
- Show[ParametricPlot[{-Y Cos[\[Theta]]/Sin[\[Theta]],
- Y h/(r Sin[\[Theta]])}, {\[Theta], 0.1, Pi - 0.1},
- PlotRange -> {{-4, 4}, {0, 10}}],
- ParametricPlot[Y {Sinh[t], h /r Cosh[t]}, {t, -3, 3}]]
- , {Y, 1, 3}, {h, 0.1, 3}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement