blob: 15bc2f59b3af91c65413abce111c93518340476d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
/* See LICENSE file for copyright and license details. */
#include "common.h"
#ifndef TEST
double
libtellurian_transverse_radius(double latitude)
{
latitude = radians(latitude);
return libtellurian_transverse_radius_radians(latitude);
}
#else
static int
approx(double a, double b)
{
return fabs(a - b) <= 1e-8 * (0.5 * (a + b));
}
int
main(void)
{
ASSERT(libtellurian_transverse_radius(0) == libtellurian_transverse_radius_radians(0));
ASSERT(approx(libtellurian_transverse_radius(180), libtellurian_transverse_radius_radians(0)));
ASSERT(approx(libtellurian_transverse_radius(360), libtellurian_transverse_radius_radians(0)));
ASSERT(approx(libtellurian_transverse_radius(90), libtellurian_transverse_radius(-90)));
ASSERT(approx(libtellurian_transverse_radius(90), libtellurian_transverse_radius(270)));
ASSERT(approx(libtellurian_transverse_radius(45), libtellurian_transverse_radius(-45)));
ASSERT(approx(libtellurian_transverse_radius(135), libtellurian_transverse_radius(45)));
ASSERT(approx(libtellurian_transverse_radius(-135), libtellurian_transverse_radius(135)));
ASSERT(libtellurian_transverse_radius(90) == libtellurian_transverse_radius_radians(D90));
ASSERT(libtellurian_transverse_radius(45) == libtellurian_transverse_radius_radians(D45));
ASSERT(libtellurian_transverse_radius(30) == libtellurian_transverse_radius_radians(D30));
return 0;
}
#endif
|
