MathGroup Archive 2011

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

Search the Archive

complex functions handling in M8

  • To: mathgroup at
  • Subject: [mg121388] complex functions handling in M8
  • From: Dikande <amdikande at>
  • Date: Tue, 13 Sep 2011 07:20:31 -0400 (EDT)
  • Delivered-to:

I wish to generate curves from a 3-variable complex function under
Mathematica 8. The results (shape of the curves) I get do not reflect
expectations. I am a rather old mathematica user and used this program
to solve quite complicated complex problems, including root
extractions from functions involving special several complex arguments
functions and never experienced such a failure from Mathematica. In
fact I have always used old versions M7 of latest), and only today I
decided to try M8 and came across this problem. The might be a problem
with handling of complex functions under M8 oder??? This is the code
having a problem:
T0 = 1.1;
alph = 1.0;
bet = 1.0;
gam = 0.5;
gam0 = 0.5;
Ie = 5.0;
Y0 = 0.0;

Ga[x_, y_, z_] :=
  gam*Ie/((1.0 + x)^2) - x*z/((1.0 + x)^2 + I*T0*y*(1.0 + x));

Gb[x_, y_, z_] :=
  Sqrt[Ga[x, y, z]^2 - bet^2*y^4 + 2.0*Ie*gam0*bet*y^2];

FM[x_, y_, z_] := -alph*y^2 + Ga[x, y, z] - Gb[x, y, z];

FP[x_, y_, z_] := -alph*y^2 + Ga[x, y, z] + Gb[x, y, z];

Frm[x_, y_, z_] := Re[FM[x, y, z]];

Fim[x_, y_, z_] := Im[FM[x, y, z]];

Frp[x_, y_, z_] := Re[FP[x, y, z]];

Fip[x_, y_, z_] := Im[FP[x, y, z]];

Plot[Frm[x, Y0, 3.0], {x, 0.0, 10}]

Plot[Frp[x, Y0, 3.0], {x, 0.0, 10}]

Normally Frm[x, Y0, 3] is always zero but M8 displays nonzero data but
not M7!

  • Prev by Date: Re: How create new style sheet- Mathematica 8
  • Next by Date: Re: a question about data plotting
  • Previous by thread: Re: CUDA Initialization Problem
  • Next by thread: Re: complex functions handling in M8