(FPCore (x y z t a) :precision binary64 (- (+ x y) (/ (* (- z t) y) (- a t))))
↓
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (+ (* y (- (+ 1.0 (/ t (- a t))) (/ z (- a t)))) x))
(t_2 (- (+ x y) (/ (* (- z t) y) (- a t)))))
(if (<= t_2 -2e-249)
t_1
(if (<= t_2 0.0) (+ (* y (- (/ z t) (/ a t))) x) t_1))))
double code(double x, double y, double z, double t, double a) {
return (x + y) - (((z - t) * y) / (a - t));
}
↓
double code(double x, double y, double z, double t, double a) {
double t_1 = (y * ((1.0 + (t / (a - t))) - (z / (a - t)))) + x;
double t_2 = (x + y) - (((z - t) * y) / (a - t));
double tmp;
if (t_2 <= -2e-249) {
tmp = t_1;
} else if (t_2 <= 0.0) {
tmp = (y * ((z / t) - (a / t))) + x;
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y, z, t, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
code = (x + y) - (((z - t) * y) / (a - t))
end function
↓
real(8) function code(x, y, z, t, a)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8), intent (in) :: t
real(8), intent (in) :: a
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_1 = (y * ((1.0d0 + (t / (a - t))) - (z / (a - t)))) + x
t_2 = (x + y) - (((z - t) * y) / (a - t))
if (t_2 <= (-2d-249)) then
tmp = t_1
else if (t_2 <= 0.0d0) then
tmp = (y * ((z / t) - (a / t))) + x
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a) {
return (x + y) - (((z - t) * y) / (a - t));
}
↓
public static double code(double x, double y, double z, double t, double a) {
double t_1 = (y * ((1.0 + (t / (a - t))) - (z / (a - t)))) + x;
double t_2 = (x + y) - (((z - t) * y) / (a - t));
double tmp;
if (t_2 <= -2e-249) {
tmp = t_1;
} else if (t_2 <= 0.0) {
tmp = (y * ((z / t) - (a / t))) + x;
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y, z, t, a):
return (x + y) - (((z - t) * y) / (a - t))
↓
def code(x, y, z, t, a):
t_1 = (y * ((1.0 + (t / (a - t))) - (z / (a - t)))) + x
t_2 = (x + y) - (((z - t) * y) / (a - t))
tmp = 0
if t_2 <= -2e-249:
tmp = t_1
elif t_2 <= 0.0:
tmp = (y * ((z / t) - (a / t))) + x
else:
tmp = t_1
return tmp
function code(x, y, z, t, a)
return Float64(Float64(x + y) - Float64(Float64(Float64(z - t) * y) / Float64(a - t)))
end
if (-.f64 (+.f64 x y) (/.f64 (*.f64 (-.f64 z t) y) (-.f64 a t))) < -2.00000000000000011e-249 or 0.0 < (-.f64 (+.f64 x y) (/.f64 (*.f64 (-.f64 z t) y) (-.f64 a t)))
herbie shell --seed 2023077
(FPCore (x y z t a)
:name "Graphics.Rendering.Plot.Render.Plot.Axis:renderAxisTick from plot-0.2.3.4, B"
:precision binary64
:herbie-target
(if (< (- (+ x y) (/ (* (- z t) y) (- a t))) -1.3664970889390727e-7) (- (+ y x) (* (* (- z t) (/ 1.0 (- a t))) y)) (if (< (- (+ x y) (/ (* (- z t) y) (- a t))) 1.4754293444577233e-239) (/ (- (* y (- a z)) (* x t)) (- a t)) (- (+ y x) (* (* (- z t) (/ 1.0 (- a t))) y))))
(- (+ x y) (/ (* (- z t) y) (- a t))))