Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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