Timeout for init-lam0-alpha

Specification

Math

\[lamc - \frac{\sin^{-1} \left(\left(0.5 \cdot \left(F - \frac{1}{F}\right)\right) \cdot \tan gamma0\right)}{B} \]

FPCore

(FPCore (lamc F gamma0 B)
  :precision binary64
  :pre TRUE
  (- lamc (/ (asin (* (* 0.5 (- F (/ 1.0 F))) (tan gamma0))) B)))

C

double code(double lamc, double F, double gamma0, double B) {
	return lamc - (asin(((0.5 * (F - (1.0 / F))) * tan(gamma0))) / B);
}

Fortran

real(8) function code(lamc, f, gamma0, b)
use fmin_fmax_functions
    real(8), intent (in) :: lamc
    real(8), intent (in) :: f
    real(8), intent (in) :: gamma0
    real(8), intent (in) :: b
    code = lamc - (asin(((0.5d0 * (f - (1.0d0 / f))) * tan(gamma0))) / b)
end function

Java

public static double code(double lamc, double F, double gamma0, double B) {
	return lamc - (Math.asin(((0.5 * (F - (1.0 / F))) * Math.tan(gamma0))) / B);
}

Python

def code(lamc, F, gamma0, B):
	return lamc - (math.asin(((0.5 * (F - (1.0 / F))) * math.tan(gamma0))) / B)

Julia

function code(lamc, F, gamma0, B)
	return Float64(lamc - Float64(asin(Float64(Float64(0.5 * Float64(F - Float64(1.0 / F))) * tan(gamma0))) / B))
end

MATLAB

function tmp = code(lamc, F, gamma0, B)
	tmp = lamc - (asin(((0.5 * (F - (1.0 / F))) * tan(gamma0))) / B);
end

Wolfram

code[lamc_, F_, gamma0_, B_] := N[(lamc - N[(N[ArcSin[N[(N[(0.5 * N[(F - N[(1.0 / F), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[Tan[gamma0], $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / B), $MachinePrecision]), $MachinePrecision]

ReFlow

f(lamc, F, gamma0, B):
	lamc in [-inf, +inf],
	F in [-inf, +inf],
	gamma0 in [-inf, +inf],
	B in [-inf, +inf]
code: THEORY
BEGIN
f(lamc, F, gamma0, B: real): real =
	lamc - ((asin((((5e-1) * (F - ((1) / F))) * (tan(gamma0))))) / B)
END code