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>
- Re: complex functions handling in M8