Re: Solving an equation
- To: mathgroup at smc.vnet.net
- Subject: [mg51492] Re: Solving an equation
- From: jujio77 at yahoo.com (Scott)
- Date: Tue, 19 Oct 2004 02:56:32 -0400 (EDT)
- References: <cknuhk$624$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
OK,
I figured out how to find these roots graphically. We want the
solutions of Gamma[x+ I y]=a+Ib.
A=Plot3D[Re[Gamma[x+I y]]-a,{x,..},{y,..},
PlotRange->{0,10^-10},ClipFill->None,ViewPoint->{0,0,10^5}]
B=Plot3D[Im[Gamma[x+Iy]]-b,{x,..},{y,..},
PlotRange->{0,10^-10},ClipFill->None,ViewPoint->{0,0,10^5}]
Show[A,B]
The intersections where y is not =0 are solutions.