Group Abstract Group Abstract

Message Boards Message Boards

How can I Plot this by using ContourPlot?

GROUPS:
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
Answer
11 months 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
Answer
2 months ago
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
Answer
2 months ago