Bird Programming Language: Part 1

#define E 2.7182818284590451d

double Math_ArcSine(double x)
	return 2 * atan(x / (1 + sqrt(1 - x * x)))
	'return atan(x / sqrt(-x * x + 1))

double Math_ArcCosine(double x)
	return 2 * atan(sqrt(1 - x * x) / (1 + x))

double Math_SineHyper(double x)
	x = x % (2 * pi)
	return (exp(x) - exp(-x)) / 2
	
double Math_ConsineHyper(double x)
	x = x % (2 * pi)
	return (exp(x) + exp(-x)) / 2
	
double Math_TanHyper(double x)
	x = x % (2 * pi)
	var exp2x = exp(2 * x)
	return (exp2x - 1) / (exp2x + 1)

bool Math_NaN(double x)
	return x == 0d / 0d