MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

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 *)
> ]
> ]
>
>
>
>


  • Prev by Date: Re: Rearrangement of expression
  • Next by Date: Re: LU Decomposition w/o Pivoting
  • Previous by thread: Points on a ContourPlot
  • Next by thread: Re: Points on a ContourPlot