Question: complex trigonometric function roots

 I want to calculate successive roots of the following complex eq.

how can I set interval (?) for fsolve in the following code:

for n from 1 by 1 to 100 do;    for i from 1 by 1 to 10 do;  w[i,n]=evalf(fsolve(x*tan(x)=(i*Pi*I)/(1+i*Pi*I),x,complex,(n-1)"?..n?"));   od;  od; ``

``

Please Wait...