diff options
| author | Mattias Andrée <m@maandree.se> | 2024-10-20 17:28:46 +0200 |
|---|---|---|
| committer | Mattias Andrée <m@maandree.se> | 2024-10-20 17:28:46 +0200 |
| commit | 09e6857ae73249bc7433f2971dcf291c70e4c766 (patch) | |
| tree | f07ef152c6372083ab87e2e4289c7ab8b1f2c1ad /libtellurian_elevated_gravity.c | |
| parent | Third commit (diff) | |
| download | libtellurian-09e6857ae73249bc7433f2971dcf291c70e4c766.tar.gz libtellurian-09e6857ae73249bc7433f2971dcf291c70e4c766.tar.bz2 libtellurian-09e6857ae73249bc7433f2971dcf291c70e4c766.tar.xz | |
Fourth commit
Signed-off-by: Mattias Andrée <m@maandree.se>
Diffstat (limited to '')
| -rw-r--r-- | libtellurian_elevated_gravity.c | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/libtellurian_elevated_gravity.c b/libtellurian_elevated_gravity.c index 575c0e8..fcc2b4d 100644 --- a/libtellurian_elevated_gravity.c +++ b/libtellurian_elevated_gravity.c @@ -1,5 +1,6 @@ /* See LICENSE file for copyright and license details. */ #include "common.h" +#ifndef TEST double @@ -8,3 +9,33 @@ libtellurian_elevated_gravity(double gravity, double latitude, double altitude) latitude = radians(latitude); return libtellurian_elevated_gravity_radians(gravity, latitude, altitude); } + + +#else + + +static int +approx(double a, double b) +{ + return fabs(a - b) <= 1e-8 * (0.5 * (a + b)); +} + +int +main(void) +{ + ASSERT(libtellurian_elevated_gravity(9.1234, 0, 123) == libtellurian_elevated_gravity_radians(9.1234, 0, 123)); + ASSERT(approx(libtellurian_elevated_gravity(9.1234, 180, 123), libtellurian_elevated_gravity_radians(9.1234, 0, 123))); + ASSERT(approx(libtellurian_elevated_gravity(9.1234, 360, 123), libtellurian_elevated_gravity_radians(9.1234, 0, 123))); + ASSERT(approx(libtellurian_elevated_gravity(9.1234, 90, 123), libtellurian_elevated_gravity(9.1234, -90, 123))); + ASSERT(approx(libtellurian_elevated_gravity(9.1234, 90, 123), libtellurian_elevated_gravity(9.1234, 270, 123))); + ASSERT(approx(libtellurian_elevated_gravity(9.1234, 45, 123), libtellurian_elevated_gravity(9.1234, -45, 123))); + ASSERT(approx(libtellurian_elevated_gravity(9.1234, 135, 123), libtellurian_elevated_gravity(9.1234, 45, 123))); + ASSERT(approx(libtellurian_elevated_gravity(9.1234, -135, 123), libtellurian_elevated_gravity(9.1234, 135, 123))); + ASSERT(libtellurian_elevated_gravity(9.1234, 90, 123) == libtellurian_elevated_gravity_radians(9.1234, D90, 123)); + ASSERT(libtellurian_elevated_gravity(9.1234, 45, 123) == libtellurian_elevated_gravity_radians(9.1234, D45, 123)); + ASSERT(libtellurian_elevated_gravity(9.1234, 30, 123) == libtellurian_elevated_gravity_radians(9.1234, D30, 123)); + return 0; +} + + +#endif |