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