Lines Matching refs:y2
404 my ($x2, $y2) = @{$z2->cartesian};
405 return (ref $z1)->make($x1*$x2-$y1*$y2, $x1*$y2+$y1*$x2);
459 my ($d, $x2, $y2);
461 ($x2, $y2) = @{$z1->cartesian};
462 $d = $x2*$x2 + $y2*$y2;
464 return (ref $z1)->make(($x2*$z2)/$d, -($y2*$z2)/$d);
468 ($x2, $y2) = @{$z2->cartesian};
469 $d = $x2*$x2 + $y2*$y2;
471 my $u = ($x1*$x2 + $y1*$y2)/$d;
472 my $v = ($y1*$x2 - $x1*$y2)/$d;