Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Manipulate[ContourPlot[
- q1/Norm[{x, y} - p[[1]]] + q2/Norm[{x, y} - p[[2]]], {x, -2,
- 2}, {y, -2, 2}, Contours -> 10], {{q1, -1}, -3, 3}, {{q2, 1}, -3,
- 3}, {{p, {{-1, 0}, {1, 0}}}, {-1, -1}, {1, 1}, Locator},
- Deployed -> True]
Add Comment
Please, Sign In to add comment