(FPCore (x y z t) :precision binary64 (+ x (/ (* (- y x) z) t)))
↓
(FPCore (x y z t)
:precision binary64
(if (<= x -6.5e-279)
(+ x (/ (- y x) (/ t z)))
(if (<= x 5e-184) (+ x (/ (* (- y x) z) t)) (+ x (* (- y x) (/ z t))))))
double code(double x, double y, double z, double t) {
double tmp;
if (x <= -6.5e-279) {
tmp = x + ((y - x) / (t / z));
} else if (x <= 5e-184) {
tmp = x + (((y - x) * z) / t);
} else {
tmp = x + ((y - x) * (z / t));
}
return tmp;
}
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
code = x + (((y - x) * z) / t)
end function
↓
real(8) function code(x, y, z, t)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8) :: tmp
if (x <= (-6.5d-279)) then
tmp = x + ((y - x) / (t / z))
else if (x <= 5d-184) then
tmp = x + (((y - x) * z) / t)
else
tmp = x + ((y - x) * (z / t))
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
return x + (((y - x) * z) / t);
}
↓
public static double code(double x, double y, double z, double t) {
double tmp;
if (x <= -6.5e-279) {
tmp = x + ((y - x) / (t / z));
} else if (x <= 5e-184) {
tmp = x + (((y - x) * z) / t);
} else {
tmp = x + ((y - x) * (z / t));
}
return tmp;
}
def code(x, y, z, t):
return x + (((y - x) * z) / t)
↓
def code(x, y, z, t):
tmp = 0
if x <= -6.5e-279:
tmp = x + ((y - x) / (t / z))
elif x <= 5e-184:
tmp = x + (((y - x) * z) / t)
else:
tmp = x + ((y - x) * (z / t))
return tmp
function code(x, y, z, t)
return Float64(x + Float64(Float64(Float64(y - x) * z) / t))
end
herbie shell --seed 2023064
(FPCore (x y z t)
:name "Numeric.Histogram:binBounds from Chart-1.5.3"
:precision binary64
:herbie-target
(if (< x -9.025511195533005e-135) (- x (* (/ z t) (- x y))) (if (< x 4.275032163700715e-250) (+ x (* (/ (- y x) t) z)) (+ x (/ (- y x) (/ t z)))))
(+ x (/ (* (- y x) z) t)))