MathGroup Archive 2011

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

Search the Archive

What do I do to get better curves?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg120935] What do I do to get better curves?
  • From: "becko" <becko565 at hotmail.com>
  • Date: Wed, 17 Aug 2011 05:53:41 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com

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.




  • Prev by Date: Re: Cataloging apps for Finder files? (Mathematica notebooks especially)
  • Next by Date: setting header options in another nb with code
  • Previous by thread: Using Mathematica
  • Next by thread: Re: What do I do to get better curves?