Finding complex root of a function

*To*: mathgroup at smc.vnet.net*Subject*: [mg66598] Finding complex root of a function*From*: "Subbu" <subbaraokommuri at gmail.com>*Date*: Mon, 22 May 2006 18:14:28 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Hi, I have one 6th order polynomial equation( f(y)=a1 y^6+...+a6 y +a7==0). Actually here the problem is, Coefficients 'a1' to 'a7' are functions of 'Gamma'. Gamma is actually a constant which we dont know before hand. We have to determine the value of 'Gamma' using a codition Re[y]==0(Real part of y, where y is the one of six roots obtained if we solve the above equation). In my problem, there is only one root out of six roots which gives Re[y]==0 for a finite value of 'Gamma'. How can we implement this in Mathematica ? Can anybody help? Right now what I am doing in Take a guess of Gamma and solve the equation f(y)==0 and conntinue the procedure until we hit Re[y]=0. As this process is taking long time since I need more accurate value of 'Gamma' and I have to repeat this same procedure for lot of parameters! Thank you.