Message Boards Message Boards

0
|
4850 Views
|
2 Replies
|
2 Total Likes
View groups...
Share
Share this post:

How can I Plot this by using ContourPlot?

Posted 11 years ago
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 10 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