I am a new user of Mathematica, I am trying to solve a dispersion relation in Mathematica which is a function of omega and wave number, my omega is a complex frequency. I am trying to solve it in the way as shown below

r=0.01;

we=1000;

oh=0.1;

k=.;

n=.;

m=sqrt(k^2+n^2);

F[ome_]=(ome+I (we)0.5 k+4 m2 oh)*(ome+I (we)0.5 k) Tanh[m]+4 m3 oh2 *(m Tanh[m]-(m^2+(ome+I (we)^0.5 k)/oh)0.5 *Tanh[(m^2+(ome+I (we)^0.5 k)/oh)0.5])+r ome2+m3;

t=Table[{k,Re[ome/.FindRoot[F[ome]Š0,{ome,{(1.5+50 I),(3+100 I)}},MaxIterations®500]]},{k,1,100,1}]

ListPlot[t,PlotJoined®True]

I want to make a plot with the real part of the ome on the y axis and k on the x axis.

It is very important for me to solve this function, so any help is appreciated.My email i.d is kumar.kannan@uni.lu. Any help or persons willing to help may also contact me on my email i.d for further discussions. I am having problem in selecting the intial guess root. i am attaching a graph for reference.

Any suggestions will be helpfult to me as I have been trying to solve this equation since a week. I will also provide the equation, if required.Please help is needed.

bye

with regards

K.Suresh kumar