       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.
>
>

```

• Prev by Date: Re: GUIKIT / GraphEdit
• Next by Date: Re: Mathgroup posting
• Previous by thread: Re: Solving an equation
• Next by thread: Re: Solving an equation