Re: Solving an equation
- To: mathgroup at smc.vnet.net
- Subject: [mg51385] Re: [mg51299] Solving an equation
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Fri, 15 Oct 2004 02:48:08 -0400 (EDT)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
Use FindRoot
z=10*Random[]+10*Random[]*I
2.7189941354763025 + 3.8818603982038162*I
{a, b} = {Re[z1], Im[z1]} /. FindRoot[Gamma[z1] == z, {z1,1}]
{0.12160253863826206, -0.15339958773484796}
Chop[Gamma[a+b*I]-z]
0
Bob Hanlon
>
> From: jujio77 at yahoo.com (Scott)
To: mathgroup at smc.vnet.net
> Date: 2004/10/14 Thu AM 06:35:14 EDT
> To: mathgroup at smc.vnet.net
> Subject: [mg51385] [mg51299] Solving an equation
>
> I have an equation, Gamma[a+I b] = some complex number. I need to
> solve this equation for a and b. I can write a+I b as z, but it can't
> be solved through NSolve. What I have been doing is a double do loop
> for a and b and getting some number. Then I compare this to the
> number I have. Then I narrow down my possibilities for a and b, and
> go through the process again. Does anyone know of a better way to do
> this problem? Is there a way to have Mathematica compare each result
> of the do loop to a given value, and given certain conditions spit out
> an answer for a and b?
>
> Hope that makes sense.
>
>