Lines Matching refs:im
141 my ($re, $im) = @_;
146 ($re, $im) = ($p, $q);
160 my $rim = ref $im;
163 $im = Im($im);
169 $im ||= 0;
170 _cannot_make("imaginary part", $im) unless $im =~ /^$gre$/;
171 $self->{'cartesian'} = [ $re, $im ];
231 # Creates a complex number from a (re, im) tuple.
232 # This avoids the burden of writing Math::Complex->make(re, im).
544 my ($re, $im) = @{$z->cartesian};
545 return (ref $z)->make(-$re, -$im);
559 my ($re, $im) = @{$z->cartesian};
560 return (ref $z)->make($re, -$im);
631 my ($re, $im) = ref $z ? @{$z->cartesian} : ($z, 0);
633 if $im == 0;
1158 my ($re, $im) = @{$z->cartesian};
1159 if ($im == 0) {
1172 $u->Im(-$u->Im) if $re < 0 && $im == 0;
1366 my ($re, $im);
1387 $im = $y;
1390 $im = $y;
1392 $im =
1398 $im .= "i";
1400 undef $im;
1405 if (defined $im) {
1407 $str .= $im;
1408 } elsif ($y > 0 || $im =~ /^NaN[QS]?i$/i) {
1410 $str .= $im;