\[e^{-w} \cdot {\ell}^{\left(e^{w}\right)}
\]
↓
\[\frac{{\left({\ell}^{\left(\mathsf{expm1}\left(w \cdot 0.5\right) + 1\right)}\right)}^{\left(\sqrt{e^{w}}\right)}}{e^{w}}
\]
(FPCore (w l) :precision binary64 (* (exp (- w)) (pow l (exp w))))
↓
(FPCore (w l)
:precision binary64
(/ (pow (pow l (+ (expm1 (* w 0.5)) 1.0)) (sqrt (exp w))) (exp w)))
double code(double w, double l) {
return exp(-w) * pow(l, exp(w));
}
↓
double code(double w, double l) {
return pow(pow(l, (expm1((w * 0.5)) + 1.0)), sqrt(exp(w))) / exp(w);
}
public static double code(double w, double l) {
return Math.exp(-w) * Math.pow(l, Math.exp(w));
}
↓
public static double code(double w, double l) {
return Math.pow(Math.pow(l, (Math.expm1((w * 0.5)) + 1.0)), Math.sqrt(Math.exp(w))) / Math.exp(w);
}
def code(w, l):
return math.exp(-w) * math.pow(l, math.exp(w))
↓
def code(w, l):
return math.pow(math.pow(l, (math.expm1((w * 0.5)) + 1.0)), math.sqrt(math.exp(w))) / math.exp(w)
function code(w, l)
return Float64(exp(Float64(-w)) * (l ^ exp(w)))
end
↓
function code(w, l)
return Float64(((l ^ Float64(expm1(Float64(w * 0.5)) + 1.0)) ^ sqrt(exp(w))) / exp(w))
end
code[w_, l_] := N[(N[Exp[(-w)], $MachinePrecision] * N[Power[l, N[Exp[w], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
↓
code[w_, l_] := N[(N[Power[N[Power[l, N[(N[(Exp[N[(w * 0.5), $MachinePrecision]] - 1), $MachinePrecision] + 1.0), $MachinePrecision]], $MachinePrecision], N[Sqrt[N[Exp[w], $MachinePrecision]], $MachinePrecision]], $MachinePrecision] / N[Exp[w], $MachinePrecision]), $MachinePrecision]
e^{-w} \cdot {\ell}^{\left(e^{w}\right)}
↓
\frac{{\left({\ell}^{\left(\mathsf{expm1}\left(w \cdot 0.5\right) + 1\right)}\right)}^{\left(\sqrt{e^{w}}\right)}}{e^{w}}