Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Re: Crinkled Hyperbola (ContourPlot in Manipulate)

  • To: mathgroup at smc.vnet.net
  • Subject: [mg77857] Re: [mg77822] Crinkled Hyperbola (ContourPlot in Manipulate)
  • From: Carl Woll <carlw at wolfram.com>
  • Date: Mon, 18 Jun 2007 07:03:31 -0400 (EDT)
  • References: <200706171018.GAA02522@smc.vnet.net>

Bruce Colletti wrote:

>Re Mathematica 6.0 under WinXP.
>
>As the slider moves, a point glides along the hyperbola:  
>
>Manipulate[ContourPlot[x^2-y^2==1,{x,-3,3},{y,-3,3},Epilog->{
>PointSize at 0.02,Point@{Cosh@h,Sinh@h}}],
>{h,-1.5,1.5}]
>
>However, the moving point crinkles the plot, which restores itself when the mouse button is released.
>
>What causes the crinkling (this seems tied to ContourPlot, since no crinkling occurs when I use Plot[Sqrt[x^2-1],...])?
>
>Thankx.
>
>Bruce
>  
>
Use the option PerformanceGoal->"Quality" in ContourPlot:

Manipulate[
 ContourPlot[x^2 - y^2 == 1, {x, -3, 3}, {y, -3, 3},
  Epilog -> {PointSize at 0.02, Point@{Cosh@h, Sinh@h}},
  PerformanceGoal -> "Quality"], {h, -1.5, 1.5}]

Carl Woll
Wolfram Research


  • Prev by Date: Re: Trying to export two column table to text file
  • Next by Date: Re: Tabbed notebooks?
  • Previous by thread: Crinkled Hyperbola (ContourPlot in Manipulate)
  • Next by thread: Re: Crinkled Hyperbola (ContourPlot in Manipulate)