Re: Points on a ContourPlot

*To*: mathgroup at smc.vnet.net*Subject*: [mg91740] Re: [mg91717] Points on a ContourPlot*From*: "Michael Latham" <Michael.Latham at Colorado.EDU>*Date*: Sun, 7 Sep 2008 05:33:48 -0400 (EDT)*References*: <200809060608.CAA19777@smc.vnet.net>

Tia, The following gives what you want Show[Graphics[ ContourPlot[Cos[x] + Cos[y], {x, 0, 4 Pi}, {y, 0, 4 Pi}, ContourLabels -> Automatic, PlotPoints -> 100, Contours -> 5, Frame -> True, FrameStyle -> Directive[Thick], LabelStyle -> {18, FontFamily -> "Arial"}]], Graphics[{Red, PointSize[Large], Point[{{2, 2}, {4, 4}, {6, 6}, {8, 8}, {10, 10}}]}]] I just substituted the Cos[x]+ Cos[y] since I could not execute your StabilityFnlens[f1, f2]. The problem lies in the closing brackets for your first call of Graphics and ContourPlot. -Mike On Sat, Sep 6, 2008 at 2:08 AM, SeekUp <seek.up.girl at gmail.com> 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? > > tia > > -------------------------------------------------------------------------- > > 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 *) > ] > ] > > > >

**References**:**Points on a ContourPlot***From:*"SeekUp" <seek.up.girl@gmail.com>