Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

Plot difficulties <Error Machine Sized Real Number>

  • To: mathgroup at smc.vnet.net
  • Subject: [mg57974] Plot difficulties <Error Machine Sized Real Number>
  • From: "Eric" <edcurtis at iupui.edu>
  • Date: Wed, 15 Jun 2005 05:58:07 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Hello,

I have a question regarding Plot.  Here is a snip of my code:

Plot[function1, {EE,0 ,2.9*1.6 10^-19}, PlotLabel->"function1"];
Plot:: plnr : function1 is not a machine-sized real number at EE = 
6.652531793826348`*^-21
...

function1 evalutates to 0. + 0.00195313i at this point.  In fact, at every 
point the plot command gives an error the evaluation is completly imaginary.

Function1 is composed as follows:

Sqrt[1/(k1 Rc)] Sqrt[1/(k2i Rs)] (k2i m1 Rc Cos[k2i (Rc - Rs)] Sin[k1 Rc] - 
(k1 m2 Rc Cos[k1 Rc] + (m1 - m2) Sin[k1 Rc]) Sin[k2i (Rc - Rs)])/ (m1 
(Sqrt[1/(k2i Rc)] * Sqrt[k1  Rc]  Sqrt[k2i  Rc]  Sqrt[k2i Rs])

Where k2i is completely imaginary, m1>m2, and Rs>Rc

Any Suggestions?

Thanks,
Eric 


  • Prev by Date: Re: spotlight escape sequences
  • Next by Date: Randomness Test
  • Previous by thread: Re: plot3D over a triangular domain
  • Next by thread: Re: Plot difficulties <Error Machine Sized Real Number>