[?] Copy smallest positive roots (complex number) from the analysis?

Questions
1

After solving set of equation I am getting six roots(Complex number) Out of which I want positive complex number. Can anyone tell me how to get positive value(371.2553758930693 + 0.18562764153961991*I)???

Result from the analysis looks like this

{pmn → -73252.56817861203 - 36.62627493273828I} {pmn → -72839.37694161737 - 36.41967936634442I} {pmn → -371.2553758930693 - 0.18562764153961991I} {pmn → 371.2553758930693 + 0.18562764153961991I} {pmn → 72839.3769416172 + 36.41967936589304I} {pmn → 73252.56817861232 + 36.626274932707695I}

2

Could cull out the ones in the first quadrant, then select the smallest.

rts = pmn /. {{pmn -> -73252.56817861203 - 
       36.62627493273828 I}, {pmn -> -72839.37694161737 - 
       36.41967936634442 I}, {pmn -> -371.2553758930693 - 
       0.18562764153961991 I}, {pmn -> 
      371.2553758930693 + 0.18562764153961991 I}, {pmn -> 
      72839.3769416172 + 36.41967936589304 I}, {pmn -> 
      73252.56817861232 + 36.626274932707695 I}};
rtsPos = Select[rts, Re[#] > 0 && Im[#] >= 0 &];
SelectFirst[rtsPos, Abs[#] == Min[Abs[rtsPos]] &]

(* Out[1645]= 371.255375893 + 0.18562764154 I *)

There are of course other methods (and really the post should indicate what has already been tried).

3

Thank you sir…Its working for me

4

Sir

How to see the values of all stored variable in Mathematica. In Matlab it is shown under variable tab but in mathematica there is no such option.