Timeout for exact-inv-Cn-angle

Specification

Math

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

FPCore

(FPCore (Cn Ce)
  :precision binary64
  :pre TRUE
  (atan2
 (sin Cn)
 (sqrt (+ (* (sinh Ce) (sinh Ce)) (* (cos Cn) (cos Cn))))))

C

double code(double Cn, double Ce) {
	return atan2(sin(Cn), sqrt(((sinh(Ce) * sinh(Ce)) + (cos(Cn) * 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(sin(cn), sqrt(((sinh(ce) * sinh(ce)) + (cos(cn) * cos(cn)))))
end function

Java

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

Python

def code(Cn, Ce):
	return math.atan2(math.sin(Cn), math.sqrt(((math.sinh(Ce) * math.sinh(Ce)) + (math.cos(Cn) * math.cos(Cn)))))

Julia

function code(Cn, Ce)
	return atan(sin(Cn), sqrt(Float64(Float64(sinh(Ce) * sinh(Ce)) + Float64(cos(Cn) * cos(Cn)))))
end

MATLAB

function tmp = code(Cn, Ce)
	tmp = atan2(sin(Cn), sqrt(((sinh(Ce) * sinh(Ce)) + (cos(Cn) * cos(Cn)))));
end

Wolfram

code[Cn_, Ce_] := N[ArcTan[N[Sin[Cn], $MachinePrecision] / N[Sqrt[N[(N[(N[Sinh[Ce], $MachinePrecision] * N[Sinh[Ce], $MachinePrecision]), $MachinePrecision] + N[(N[Cos[Cn], $MachinePrecision] * N[Cos[Cn], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]