Re: Crinkled Hyperbola (ContourPlot in Manipulate)

*To*: mathgroup at smc.vnet.net*Subject*: [mg77835] Re: [mg77822] Crinkled Hyperbola (ContourPlot in Manipulate)*From*: DrMajorBob <drmajorbob at bigfoot.com>*Date*: Mon, 18 Jun 2007 06:52:14 -0400 (EDT)*References*: <12170552.1182076925307.JavaMail.root@m35>*Reply-to*: drmajorbob at bigfoot.com

This does it, I think: Manipulate[ ContourPlot[x^2 - y^2 == 1, {x, -3, 3}, {y, -3, 3}, Epilog -> {PointSize at 0.02, Dynamic@Point@{Cosh@h, Sinh@h}}], {h, -1.5, 1.5}] It isolates the point computations somehow. Bobby On Sun, 17 Jun 2007 05:18:41 -0500, Bruce Colletti <vze269bv at verizon.net> 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 > > -- DrMajorBob at bigfoot.com