Lines Matching refs:r2
392 my ($r2, $t2) = @{$z2->polar};
397 $z1->set_polar([$r1 * $r2, $t]);
400 return (ref $z1)->emake($r1 * $r2, $t);
443 my ($r2, $t2) = @{$z2->polar};
450 return (ref $z1)->emake($r2 / $r1, $t);
452 _divbyzero "$z1/0" if ($r2 == 0);
456 return (ref $z1)->emake($r1 / $r2, $t);
1645 z2 = c + di = r2 * exp(i * t2)
1652 z1 * z2 = (r1 * r2) * exp(i * (t1 + t2))
1653 z1 / z2 = (r1 / r2) * exp(i * (t1 - t2))