Re: Solving an equation

*To*: mathgroup at smc.vnet.net*Subject*: [mg51358] Re: [mg51299] Solving an equation*From*: Sseziwa Mukasa <mukasa at jeol.com>*Date*: Fri, 15 Oct 2004 02:46:05 -0400 (EDT)*References*: <200410141035.GAA14785@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

On Oct 14, 2004, at 6:35 AM, Scott wrote: > Does anyone know of a better way to do > this problem? You could try using FindRoot eg. FindRoot[{Re[Gamma[a + I b]] == 3, Im[Gamma[a + I b]] == 4}, {{a, 0.1}, {b, 0.1}}] > 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? You could use an If expression and a Print eg. Do[expression;expression;...;If[test,Print["Some Message"]];...,{iterations}] > Hope that makes sense. I hope my answer's are helpful. Regards, Ssezi

**References**:**Solving an equation***From:*jujio77@yahoo.com (Scott)