blob: 00671af0096cd0ddfee70891e17d99710290bc08 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
/* See LICENSE file for copyright and license details. */
#include "common.h"
double
libtellurian_azimuthal_radius_radians(double latitude, double azimuth)
{
double m = libtellurian_meridan_radius_radians(latitude);
double n = libtellurian_transverse_radius_radians(latitude);
double c2 = cos(azimuth) * cos(azimuth);
double s2 = sin(azimuth) * sin(azimuth);
double x = c2 / m;
double y = s2 / n;
return 1.0 / (x + y);
}
|