How can I Plot this by using ContourPlot?

Questions
,
1

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)

Mathbild.jpg
Mathbild.jpg768Ă—614 43.4 KB

2

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 :

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

3

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.