0
|
4953 Views
|
2 Replies
|
2 Total Likes
View groups...
Share

# 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)
2 Replies
Sort By:
Posted 10 years ago
 Dear JAKOBIf 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.htmlInadition, for labaling countours you can use this method :ContourPlot[,{,,},{,,},...,ContourLabels -> True]for example:ContourPlot[Sin[x] Sin[y], {x, -3, 3}, {y, -3, 3}, ContourLabels -> True]Best regardsVahid
Posted 10 years ago
 Try something likeContourPlot[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 likeContourPlot[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 contoursContourPlot[ 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.