Message Boards Message Boards

GROUPS:

How can I Plot this by using ContourPlot?

Posted 10 years ago
4625 Views
|
2 Replies
|
2 Total Likes
|
I need help using ContourPlot to make something like the picture below.

The Coordinates for the three circles is: (1500,1200), (1550,2000), (2000,1700)


POSTED BY: Jakob A
2 Replies
Try something like
ContourPlot[1/((x - 1500)^2 + (y - 1200)^2) + 1/((x - 1550)^2 + (y - 2000)^2) +
  1/((x - 2000)^2 + (y - 1700)^2), {x, 0, 3000}, {y, 0, 3000}]
the peak is not so sharp in the given picture, so it looks rather like
ContourPlot[Log[1/((x - 1500)^2 + (y - 1200)^2)] +
  Log[1/((x - 1550)^2 + (y - 2000)^2)] +
  Log[1/((x - 2000)^2 + (y - 1700)^2)], {x, 0, 3000}, {y, 0, 3000},
PlotPoints -> 50]
but if you prescribe the contours
ContourPlot[
Log[1/((x - 1500)^2 + (y - 1200)^2)] +
  Log[1/((x - 1550)^2 + (y - 2000)^2)] +
  Log[1/((x - 2000)^2 + (y - 1700)^2)], {x, 0, 3000}, {y, 0, 3000},
PlotPoints -> 50, Contours -> Range[40, 80, 5]]
you see, that it's not the Log because the result is mono-colored. 
POSTED BY: Udo Krause
Posted 9 years ago
Dear JAKOB
If I'm not making mistake, you mean "how to labale contours
If I'm right, you can go to this page for more information about that : 
http://reference.wolfram.com/mathematica/ref/ContourPlot.html

Inadition, for labaling countours you can use this method :
ContourPlot[<function>,{<variable1>,<min>,<max>},{<variable2>,<min>,<max>},...,ContourLabels -> True]

for example:
ContourPlot[Sin[x] Sin[y], {x, -3, 3}, {y, -3, 3},
ContourLabels -> True]

Best regards
Vahid
POSTED BY: vahid khalili
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract