Timeout for exact-inv-Ce-angle

Specification

Math

\[\tan^{-1}_* \frac{\sinh Ce}{\cos Cn} \]

FPCore

(FPCore (Cn Ce)
  :precision binary64
  :pre TRUE
  (atan2 (sinh Ce) (cos Cn)))

C

double code(double Cn, double Ce) {
	return atan2(sinh(Ce), cos(Cn));
}

Fortran

real(8) function code(cn, ce)
use fmin_fmax_functions
    real(8), intent (in) :: cn
    real(8), intent (in) :: ce
    code = atan2(sinh(ce), cos(cn))
end function

Java

public static double code(double Cn, double Ce) {
	return Math.atan2(Math.sinh(Ce), Math.cos(Cn));
}

Python

def code(Cn, Ce):
	return math.atan2(math.sinh(Ce), math.cos(Cn))

Julia

function code(Cn, Ce)
	return atan(sinh(Ce), cos(Cn))
end

MATLAB

function tmp = code(Cn, Ce)
	tmp = atan2(sinh(Ce), cos(Cn));
end

Wolfram

code[Cn_, Ce_] := N[ArcTan[N[Sinh[Ce], $MachinePrecision] / N[Cos[Cn], $MachinePrecision]], $MachinePrecision]