Re: What do I do to get better curves?
- To: mathgroup at smc.vnet.net
- Subject: [mg120985] Re: What do I do to get better curves?
- From: "becko" <becko565 at hotmail.com>
- Date: Sat, 20 Aug 2011 06:17:36 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <201108170953.FAA01443@smc.vnet.net>
Thanks all for your suggestions. Dividing a[k,w] by p[k,w] and making a contour plot of the result (equated to zero) did the trick. -------------------------------------------------- From: "becko" <becko565 at hotmail.com> Sent: Wednesday, August 17, 2011 2:53 AM To: <mathgroup at smc.vnet.net> Subject: [mg120985] What do I do to get better curves? > Run the following code in mathematica: > > r=6197/3122; > p[k_,w_]:=Sqrt[w^2/r^2-k^2];q[k_,w_]:=Sqrt[w^2-k^2]; > a[k_,w_,p_,q_]:=(k^2-w^2)^2 Sin[p]Cos[q]+4k^2 p q Cos[p]Sin[q] > a[k_,w_]:=a[k,w,p[k,w],q[k,w]]; > ContourPlot[a[k,w]==0,{w,0,6},{k,0,14}] > > The curves thus obtained are very inaccurate. I tried raising the > PlotPoints and WorkingPrecision opions of ContourPlot, but it doesn't > work. Morevoer, you see that the only parameter that shows up, 'r', is > an exact rational number. I don't know what else to try. Thanks. > >
- References:
- What do I do to get better curves?
- From: "becko" <becko565@hotmail.com>
- What do I do to get better curves?