Dear @Markiyan Hirnyk 

Thank you very much

...and i use the following code to obtain 2D results

for i from 1 by 1 to 10 do;
A[i]:=RootFinding:-Analytic(eval(x*tan(x)-I*i*Pi/(1+I*i*Pi)), x = 0+0I .. 10+I));
od;

to call the second root for i=1 I use A[1][2]

-Is there any way to program the problem so that one can call the above elemet as A[1,2]?

Dear @Markiyan Hirnyk 

Thank you very much

...and i use the following code to obtain 2D results

for i from 1 by 1 to 10 do;
A[i]:=RootFinding:-Analytic(eval(x*tan(x)-I*i*Pi/(1+I*i*Pi)), x = 0+0I .. 10+I));
od;

to call the second root for i=1 I use A[1][2]

-Is there any way to program the problem so that one can call the above elemet as A[1,2]?