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