(FPCore (x y z t) :precision binary64 (+ x (/ (* y (- z x)) t)))
↓
(FPCore (x y z t)
:precision binary64
(let* ((t_1 (+ x (/ (* y (- z x)) t))))
(if (or (<= t_1 -5e+307) (not (<= t_1 2e+306)))
(+ x (/ y (/ t (- z x))))
(+ x (/ (- (* y z) (* x y)) t)))))
double code(double x, double y, double z, double t) {
return x + ((y * (z - x)) / t);
}
↓
double code(double x, double y, double z, double t) {
double t_1 = x + ((y * (z - x)) / t);
double tmp;
if ((t_1 <= -5e+307) || !(t_1 <= 2e+306)) {
tmp = x + (y / (t / (z - x)));
} else {
tmp = x + (((y * z) - (x * y)) / 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 * (z - x)) / 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) :: t_1
real(8) :: tmp
t_1 = x + ((y * (z - x)) / t)
if ((t_1 <= (-5d+307)) .or. (.not. (t_1 <= 2d+306))) then
tmp = x + (y / (t / (z - x)))
else
tmp = x + (((y * z) - (x * y)) / t)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t) {
return x + ((y * (z - x)) / t);
}
↓
public static double code(double x, double y, double z, double t) {
double t_1 = x + ((y * (z - x)) / t);
double tmp;
if ((t_1 <= -5e+307) || !(t_1 <= 2e+306)) {
tmp = x + (y / (t / (z - x)));
} else {
tmp = x + (((y * z) - (x * y)) / t);
}
return tmp;
}
def code(x, y, z, t):
return x + ((y * (z - x)) / t)
↓
def code(x, y, z, t):
t_1 = x + ((y * (z - x)) / t)
tmp = 0
if (t_1 <= -5e+307) or not (t_1 <= 2e+306):
tmp = x + (y / (t / (z - x)))
else:
tmp = x + (((y * z) - (x * y)) / t)
return tmp
function code(x, y, z, t)
return Float64(x + Float64(Float64(y * Float64(z - x)) / t))
end
herbie shell --seed 2023151
(FPCore (x y z t)
:name "Optimisation.CirclePacking:place from circle-packing-0.1.0.4, D"
:precision binary64
:herbie-target
(- x (+ (* x (/ y t)) (* (- z) (/ y t))))
(+ x (/ (* y (- z x)) t)))