(FPCore (x y z t) :precision binary64 (+ x (/ (* y (- z x)) t)))
↓
(FPCore (x y z t)
:precision binary64
(if (<= y -1.3e+195)
(+ x (* y (/ (- z x) t)))
(if (<= y -1.2e-201) (+ x (/ (* y (- z x)) t)) (+ x (* (- 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 tmp;
if (y <= -1.3e+195) {
tmp = x + (y * ((z - x) / t));
} else if (y <= -1.2e-201) {
tmp = x + ((y * (z - x)) / t);
} else {
tmp = x + ((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) :: tmp
if (y <= (-1.3d+195)) then
tmp = x + (y * ((z - x) / t))
else if (y <= (-1.2d-201)) then
tmp = x + ((y * (z - x)) / t)
else
tmp = x + ((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 tmp;
if (y <= -1.3e+195) {
tmp = x + (y * ((z - x) / t));
} else if (y <= -1.2e-201) {
tmp = x + ((y * (z - x)) / t);
} else {
tmp = x + ((z - x) * (y / t));
}
return tmp;
}
def code(x, y, z, t):
return x + ((y * (z - x)) / t)
↓
def code(x, y, z, t):
tmp = 0
if y <= -1.3e+195:
tmp = x + (y * ((z - x) / t))
elif y <= -1.2e-201:
tmp = x + ((y * (z - x)) / t)
else:
tmp = x + ((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 2023074
(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)))