Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Manipulate[Plot[Table[
- i Sqrt[r^2 + \[Alpha] x^2 ], {i, {1, -1}}, {r, 1, 10}], {x, -10,
- 10}, Axes -> None, Frame -> None, PlotRange -> {-10, 10},
- AspectRatio -> 1, PlotStyle -> Directive[Thick, Purple]]
- ,{\[Alpha], -2, 2} ]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement