Timeout for inverse-lambda

Specification

Math

\[-rB \cdot \tan^{-1}_* \frac{Sp \cdot cosgam - Vp \cdot singam}{\cos \left(BrA \cdot u\right)} \]

FPCore

(FPCore (Sp Vp cosgam singam BrA u rB)
  :precision binary64
  :pre TRUE
  (- (* rB (atan2 (- (* Sp cosgam) (* Vp singam)) (cos (* BrA u))))))

C

double code(double Sp, double Vp, double cosgam, double singam, double BrA, double u, double rB) {
	return -(rB * atan2(((Sp * cosgam) - (Vp * singam)), cos((BrA * u))));
}

Fortran

real(8) function code(sp, vp, cosgam, singam, bra, u, rb)
use fmin_fmax_functions
    real(8), intent (in) :: sp
    real(8), intent (in) :: vp
    real(8), intent (in) :: cosgam
    real(8), intent (in) :: singam
    real(8), intent (in) :: bra
    real(8), intent (in) :: u
    real(8), intent (in) :: rb
    code = -(rb * atan2(((sp * cosgam) - (vp * singam)), cos((bra * u))))
end function

Java

public static double code(double Sp, double Vp, double cosgam, double singam, double BrA, double u, double rB) {
	return -(rB * Math.atan2(((Sp * cosgam) - (Vp * singam)), Math.cos((BrA * u))));
}

Python

def code(Sp, Vp, cosgam, singam, BrA, u, rB):
	return -(rB * math.atan2(((Sp * cosgam) - (Vp * singam)), math.cos((BrA * u))))

Julia

function code(Sp, Vp, cosgam, singam, BrA, u, rB)
	return Float64(-Float64(rB * atan(Float64(Float64(Sp * cosgam) - Float64(Vp * singam)), cos(Float64(BrA * u)))))
end

MATLAB

function tmp = code(Sp, Vp, cosgam, singam, BrA, u, rB)
	tmp = -(rB * atan2(((Sp * cosgam) - (Vp * singam)), cos((BrA * u))));
end

Wolfram

code[Sp_, Vp_, cosgam_, singam_, BrA_, u_, rB_] := (-N[(rB * N[ArcTan[N[(N[(Sp * cosgam), $MachinePrecision] - N[(Vp * singam), $MachinePrecision]), $MachinePrecision] / N[Cos[N[(BrA * u), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]), $MachinePrecision])