Re: Points on a ContourPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg91743] Re: Points on a ContourPlot
- From: Albert Retey <awnl at gmx-topmail.de>
- Date: Sun, 7 Sep 2008 05:34:23 -0400 (EDT)
- References: <g9t6o4$j9v$1@smc.vnet.net>
SeekUp wrote:
> I am trying to add Points to my ContourPlot to highlight certain points. The
> code below doesn't work. Any clues how to do it?
>
> Show[
>
>
> Graphics[ContourPlot[StabilityFnlens[f1, f2], {f1, -10, 30}, {f2, -10,
> 30},(*ContourStyle->None,*)ContourLabels -> Automatic, PlotPoints -> 100,
> Contours -> 5, PlotRange -> {-1, 1},Frame -> True,FrameStyle ->
> Directive[Thick],LabelStyle -> {18, FontFamily -> "Arial"}],
>
> Graphics[{Red, PointSize[Large], Point[{{5, 5}, {9, 9}, {10, 10}, {20,
> 20}, }]}] (* doesn't work *)
> ]
> ]
>
>
>
too many Graphics, this works:
Show[
ContourPlot[Exp[f1*f2], {f1, -10, 30}, {f2, -10, 30},
PlotPoints -> 10, Contours -> 5, PlotRange -> {-1, 1},
Frame -> True, FrameStyle -> Directive[Thick],
LabelStyle -> {18, FontFamily -> "Arial"}],
Graphics[{Red, PointSize[Large],
Point[{{5, 5}, {9, 9}, {10, 10}, {20, 20}}]}]
]
hth,
albert