Lines Matching refs:phi1
153 my ( $theta0, $phi0, $theta1, $phi1, $rho ) = @_;
157 my $dphi = $phi1 - $phi0;
165 my $c1 = sin($phi1) * sin($dtheta);
166 my $c2 = sin($phi1) * cos($dtheta);
167 my $c3 = sin($phi0) * cos($phi1) - cos($phi0) * $c2;
168 my $c4 = cos($phi0) * cos($phi1) + sin($phi0) * $c2;
173 my ( $theta0, $phi0, $theta1, $phi1 ) = @_;
176 my $lat1 = pip2 - $phi1;
187 my ( $theta0, $phi0, $theta1, $phi1, $point ) = @_;
191 my $d = great_circle_distance( $theta0, $phi0, $theta1, $phi1 );
203 my $lat1 = pip2 - $phi1;
224 my $phi1 = asin_real(sin($lat0)*cos($dst) +
228 cos($dst)-sin($lat0)*sin($phi1));
230 my $dir1 = great_circle_bearing($theta1, $phi1, $theta0, $phi0) + pi;
234 return ($theta1, $phi1, $dir1);