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.