path: root/libtellurian_transverse_radius.c

/* 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