(FPCore (m v) :precision binary64 (* (- (/ (* m (- 1.0 m)) v) 1.0) (- 1.0 m)))
(FPCore (m v) :precision binary64 (+ -1.0 (+ m (fma (* -2.0 (/ m v)) m (+ (/ m v) (/ (pow m 3.0) v))))))
double code(double m, double v) {
return (((m * (1.0 - m)) / v) - 1.0) * (1.0 - m);
}
double code(double m, double v) {
return -1.0 + (m + fma((-2.0 * (m / v)), m, ((m / v) + (pow(m, 3.0) / v))));
}
function code(m, v) return Float64(Float64(Float64(Float64(m * Float64(1.0 - m)) / v) - 1.0) * Float64(1.0 - m)) end
function code(m, v) return Float64(-1.0 + Float64(m + fma(Float64(-2.0 * Float64(m / v)), m, Float64(Float64(m / v) + Float64((m ^ 3.0) / v))))) end
code[m_, v_] := N[(N[(N[(N[(m * N[(1.0 - m), $MachinePrecision]), $MachinePrecision] / v), $MachinePrecision] - 1.0), $MachinePrecision] * N[(1.0 - m), $MachinePrecision]), $MachinePrecision]
code[m_, v_] := N[(-1.0 + N[(m + N[(N[(-2.0 * N[(m / v), $MachinePrecision]), $MachinePrecision] * m + N[(N[(m / v), $MachinePrecision] + N[(N[Power[m, 3.0], $MachinePrecision] / v), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\left(\frac{m \cdot \left(1 - m\right)}{v} - 1\right) \cdot \left(1 - m\right)
-1 + \left(m + \mathsf{fma}\left(-2 \cdot \frac{m}{v}, m, \frac{m}{v} + \frac{{m}^{3}}{v}\right)\right)
Initial program 0.1
Simplified0.1
Taylor expanded in m around 0 0.2
Simplified0.1
Applied egg-rr0.1
Final simplification0.1
herbie shell --seed 2022210
(FPCore (m v)
:name "b parameter of renormalized beta distribution"
:precision binary64
:pre (and (and (< 0.0 m) (< 0.0 v)) (< v 0.25))
(* (- (/ (* m (- 1.0 m)) v) 1.0) (- 1.0 m)))