Lines Matching refs:im
265 my ($re, $im);
267 ($re, $im) = (0, 0);
271 ($re, $im) = _make($_[0]);
273 ($re, $im) = @_;
278 $im ||= 0;
279 _cannot_make("imaginary part", $im) unless $im =~ /^$gre$/;
280 $self->_set_cartesian([$re, $im ]);
646 my ($re, $im) = @{$z->_cartesian};
647 return (ref $z)->make(-$re, -$im);
661 my ($re, $im) = @{$z->_cartesian};
662 return (ref $z)->make($re, -$im);
733 my ($re, $im) = ref $z ? @{$z->_cartesian} : ($z, 0);
735 if $im == 0;
1272 my ($re, $im) = @{$z->_cartesian};
1273 if ($im == 0) {
1286 $u->Im(-$u->Im) if $re < 0 && $im == 0;
1483 my ($re, $im);
1504 $im = $y;
1507 $im = $y;
1509 $im =
1515 $im .= "i";
1517 undef $im;
1522 if (defined $im) {
1524 $str .= $im;
1525 } elsif ($y > 0 || $im =~ /^NaN[QS]?i$/i) {
1527 $str .= $im;