MathGroup Archive 2008

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

Search the Archive

Re: Points on a ContourPlot


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


  • Prev by Date: Re: Mapping A Condition Across Two Different Lists
  • Next by Date: Re: 3D graphics with NVIDIA GeForce 8400M GS card
  • Previous by thread: Re: Points on a ContourPlot
  • Next by thread: Re: Points on a ContourPlot