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