Lines Matching refs:r1
391 my ($r1, $t1) = @{$z1->polar};
397 $z1->set_polar([$r1 * $r2, $t]);
400 return (ref $z1)->emake($r1 * $r2, $t);
442 my ($r1, $t1) = @{$z1->polar};
446 _divbyzero "$z2/0" if ($r1 == 0);
450 return (ref $z1)->emake($r2 / $r1, $t);
456 return (ref $z1)->emake($r1 / $r2, $t);
1644 z1 = a + bi = r1 * exp(i * t1)
1652 z1 * z2 = (r1 * r2) * exp(i * (t1 + t2))
1653 z1 / z2 = (r1 / r2) * exp(i * (t1 - t2))
1656 abs(z) = r1 = sqrt(a*a + b*b)
1657 sqrt(z) = sqrt(r1) * exp(i * t/2)
1659 log(z) = log(r1) + i*t