(FPCore (x y z t a) :precision binary64 (+ x (/ (* y (- z t)) (- z a))))
↓
(FPCore (x y z t a)
:precision binary64
(let* ((t_1 (/ (* y (- z t)) (- z a))))
(if (<= t_1 -4e-39)
(+ x (if (!= y 0.0) (/ (- z t) (/ (- z a) y)) (* (/ y (- z a)) (- z t))))
(if (<= t_1 5e+297) (+ x t_1) (- x (* y (/ (- t z) (- z a))))))))
double code(double x, double y, double z, double t, double a) {
return x + ((y * (z - t)) / (z - a));
}
↓
double code(double x, double y, double z, double t, double a) {
double t_1 = (y * (z - t)) / (z - a);
double tmp_1;
if (t_1 <= -4e-39) {
double tmp_2;
if (y != 0.0) {
tmp_2 = (z - t) / ((z - a) / y);
} else {
tmp_2 = (y / (z - a)) * (z - t);
}
tmp_1 = x + tmp_2;
} else if (t_1 <= 5e+297) {
tmp_1 = x + t_1;
} else {
tmp_1 = x - (y * ((t - z) / (z - a)));
}
return tmp_1;
}
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)) / (z - a))
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) :: tmp
real(8) :: tmp_1
real(8) :: tmp_2
t_1 = (y * (z - t)) / (z - a)
if (t_1 <= (-4d-39)) then
if (y /= 0.0d0) then
tmp_2 = (z - t) / ((z - a) / y)
else
tmp_2 = (y / (z - a)) * (z - t)
end if
tmp_1 = x + tmp_2
else if (t_1 <= 5d+297) then
tmp_1 = x + t_1
else
tmp_1 = x - (y * ((t - z) / (z - a)))
end if
code = tmp_1
end function
public static double code(double x, double y, double z, double t, double a) {
return x + ((y * (z - t)) / (z - a));
}
↓
public static double code(double x, double y, double z, double t, double a) {
double t_1 = (y * (z - t)) / (z - a);
double tmp_1;
if (t_1 <= -4e-39) {
double tmp_2;
if (y != 0.0) {
tmp_2 = (z - t) / ((z - a) / y);
} else {
tmp_2 = (y / (z - a)) * (z - t);
}
tmp_1 = x + tmp_2;
} else if (t_1 <= 5e+297) {
tmp_1 = x + t_1;
} else {
tmp_1 = x - (y * ((t - z) / (z - a)));
}
return tmp_1;
}
def code(x, y, z, t, a):
return x + ((y * (z - t)) / (z - a))
↓
def code(x, y, z, t, a):
t_1 = (y * (z - t)) / (z - a)
tmp_1 = 0
if t_1 <= -4e-39:
tmp_2 = 0
if y != 0.0:
tmp_2 = (z - t) / ((z - a) / y)
else:
tmp_2 = (y / (z - a)) * (z - t)
tmp_1 = x + tmp_2
elif t_1 <= 5e+297:
tmp_1 = x + t_1
else:
tmp_1 = x - (y * ((t - z) / (z - a)))
return tmp_1
function code(x, y, z, t, a)
return Float64(x + Float64(Float64(y * Float64(z - t)) / Float64(z - a)))
end
↓
function code(x, y, z, t, a)
t_1 = Float64(Float64(y * Float64(z - t)) / Float64(z - a))
tmp_1 = 0.0
if (t_1 <= -4e-39)
tmp_2 = 0.0
if (y != 0.0)
tmp_2 = Float64(Float64(z - t) / Float64(Float64(z - a) / y));
else
tmp_2 = Float64(Float64(y / Float64(z - a)) * Float64(z - t));
end
tmp_1 = Float64(x + tmp_2);
elseif (t_1 <= 5e+297)
tmp_1 = Float64(x + t_1);
else
tmp_1 = Float64(x - Float64(y * Float64(Float64(t - z) / Float64(z - a))));
end
return tmp_1
end
function tmp = code(x, y, z, t, a)
tmp = x + ((y * (z - t)) / (z - a));
end
↓
function tmp_4 = code(x, y, z, t, a)
t_1 = (y * (z - t)) / (z - a);
tmp_2 = 0.0;
if (t_1 <= -4e-39)
tmp_3 = 0.0;
if (y ~= 0.0)
tmp_3 = (z - t) / ((z - a) / y);
else
tmp_3 = (y / (z - a)) * (z - t);
end
tmp_2 = x + tmp_3;
elseif (t_1 <= 5e+297)
tmp_2 = x + t_1;
else
tmp_2 = x - (y * ((t - z) / (z - a)));
end
tmp_4 = tmp_2;
end
herbie shell --seed 2023033
(FPCore (x y z t a)
:name "Graphics.Rendering.Plot.Render.Plot.Axis:renderAxisTicks from plot-0.2.3.4, A"
:precision binary64
:herbie-target
(+ x (/ y (/ (- z a) (- z t))))
(+ x (/ (* y (- z t)) (- z a))))