Services & ResourcesWolfram ForumsMathGroup Archive

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

complex functions handling in M8

• To: mathgroup at smc.vnet.net
• Subject: [mg121388] complex functions handling in M8
• From: Dikande <amdikande at googlemail.com>
• Date: Tue, 13 Sep 2011 07:20:31 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

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!

• Follow-Ups:
  • Re: complex functions handling in M8
    • From: Daniel Lichtblau <danl@wolfram.com>