Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1999
*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 1999

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

Search the Archive

Re: Forcing Re[]'s to be Real

  • To: mathgroup at smc.vnet.net
  • Subject: [mg18268] Re: [mg18223] Forcing Re[]'s to be Real
  • From: Haiduke Sarafian <has2 at psu.edu>
  • Date: Thu, 24 Jun 1999 14:24:53 -0400
  • References: <199906231218.IAA34852@f04n07.cac.psu.edu>
  • Sender: owner-wri-mathgroup at wolfram.com

At 03:15 PM 6/23/99 -0700, Anthony Foglia wrote:
>On Wed, 23 Jun 1999, Haiduke Sarafian wrote:
>
>> Anthony;  the source of the problem is the argument of  k[w] function - It
>> should read k[w_]:=...
>
>	Actually I have that correct in my code, but mistyped when I wrote
>the message.
>
>> As you suggested,  to extract the Re and Im components of k[w] apply
>> Re[ComplexExpand[k[w]] and Im[ComplexExpand[k[w]] - then you can graph the
>> outputs. Cheers
>
>	Nope, still can't.  Still getting "...not a machine-sized real"
>errors.
>
>--Anthony
Anthony;  I am surprised with our "Nope" answer!!   If you define the k[w]
correctly then you can generate two numerical tables one for
Re[ComplexExpand[k[w]]] and the other one for Im[...] for a range of w
before graph them -  this will ensure the graph process.

define:
r1:=Re[ComplexExpand[[k[w]]]
tr1:=N[Table[r1,{w,0,10}]  (* this will produce a set of real values *)
Plor1=Plot[r1,{w,0,10}];  (* this will plot the r1 function which behaves
linearly *)
You can try the same procedure for the Im part of the k[w].  I graphed the
Re and Im pieces of the k[w] and naturally they worked!!
 
> 





  • Prev by Date: Re: Latex
  • Next by Date: Re: Forcing Re[]'s to be Real
  • Previous by thread: Re: Forcing Re[]'s to be Real
  • Next by thread: Re: Forcing Re[]'s to be Real