MathGroup Archive 2011

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

Search the Archive

Re: What do I do to get better curves?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg120942] Re: What do I do to get better curves?
  • From: "Kevin J. McCann" <Kevin.McCann at umbc.edu>
  • Date: Thu, 18 Aug 2011 03:22:30 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <j2g371$1ek$1@smc.vnet.net>

Your function has complex values for some arguments. Try this:

ContourPlot[Re[a[k, w]], {w, 0, 6}, {k, 0, 14}, PlotRange -> All,
  PlotPoints -> 200]

Over much of the upper part the real part is zero.

Kevin

On 8/17/2011 5:55 AM, becko wrote:
> 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}]




  • Prev by Date: Re: What do I do to get better curves?
  • Next by Date: Inverse Interpolation
  • Previous by thread: Re: What do I do to get better curves?
  • Next by thread: Re: What do I do to get better curves?