(FPCore (x y z t) :precision binary64 (+ x (* (- y x) (/ z t))))
↓
(FPCore (x y z t)
:precision binary64
(if (<= t -7e+63)
(+ x (/ z (/ t (- y x))))
(if (<= t 4.2e-208) (+ x (/ (* z (- y x)) t)) (+ x (* (- y x) (/ z t))))))
double code(double x, double y, double z, double t) {
return x + ((y - x) * (z / t));
}
↓
double code(double x, double y, double z, double t) {
double tmp;
if (t <= -7e+63) {
tmp = x + (z / (t / (y - x)));
} else if (t <= 4.2e-208) {
tmp = x + ((z * (y - x)) / 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 (t <= (-7d+63)) then
tmp = x + (z / (t / (y - x)))
else if (t <= 4.2d-208) then
tmp = x + ((z * (y - x)) / 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 (t <= -7e+63) {
tmp = x + (z / (t / (y - x)));
} else if (t <= 4.2e-208) {
tmp = x + ((z * (y - x)) / 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 t <= -7e+63:
tmp = x + (z / (t / (y - x)))
elif t <= 4.2e-208:
tmp = x + ((z * (y - x)) / t)
else:
tmp = x + ((y - x) * (z / t))
return tmp
function code(x, y, z, t)
return Float64(x + Float64(Float64(y - x) * Float64(z / t)))
end
herbie shell --seed 2023016
(FPCore (x y z t)
:name "Graphics.Rendering.Plot.Render.Plot.Axis:tickPosition from plot-0.2.3.4"
:precision binary64
:herbie-target
(if (< (* (- y x) (/ z t)) -1013646692435.8867) (+ x (/ (- y x) (/ t z))) (if (< (* (- y x) (/ z t)) 0.0) (+ x (/ (* (- y x) z) t)) (+ x (/ (- y x) (/ t z)))))
(+ x (* (- y x) (/ z t))))