(FPCore (x y z t a b)
:precision binary64
(/ (+ (* x y) (* z (- t a))) (+ y (* z (- b y)))))
↓
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (/ (- t a) (- b y))))
(if (<= z -4.788675350393175)
(+ t_1 (* (/ -1.0 z) (+ x (/ (- a t) (- b y)))))
(if (<= z 171086553456.3898)
(/ (+ (* x y) (* z (- t a))) (+ y (* z b)))
(- t_1 (/ x z))))))
double code(double x, double y, double z, double t, double a, double b) {
return ((x * y) + (z * (t - a))) / (y + (z * (b - y)));
}
↓
double code(double x, double y, double z, double t, double a, double b) {
double t_1 = (t - a) / (b - y);
double tmp;
if (z <= -4.788675350393175) {
tmp = t_1 + ((-1.0 / z) * (x + ((a - t) / (b - y))));
} else if (z <= 171086553456.3898) {
tmp = ((x * y) + (z * (t - a))) / (y + (z * b));
} else {
tmp = t_1 - (x / z);
}
return tmp;
}
real(8) function code(x, y, z, t, a, b)
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), intent (in) :: b
code = ((x * y) + (z * (t - a))) / (y + (z * (b - y)))
end function
↓
real(8) function code(x, y, z, t, a, b)
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), intent (in) :: b
real(8) :: t_1
real(8) :: tmp
t_1 = (t - a) / (b - y)
if (z <= (-4.788675350393175d0)) then
tmp = t_1 + (((-1.0d0) / z) * (x + ((a - t) / (b - y))))
else if (z <= 171086553456.3898d0) then
tmp = ((x * y) + (z * (t - a))) / (y + (z * b))
else
tmp = t_1 - (x / z)
end if
code = tmp
end function
public static double code(double x, double y, double z, double t, double a, double b) {
return ((x * y) + (z * (t - a))) / (y + (z * (b - y)));
}
↓
public static double code(double x, double y, double z, double t, double a, double b) {
double t_1 = (t - a) / (b - y);
double tmp;
if (z <= -4.788675350393175) {
tmp = t_1 + ((-1.0 / z) * (x + ((a - t) / (b - y))));
} else if (z <= 171086553456.3898) {
tmp = ((x * y) + (z * (t - a))) / (y + (z * b));
} else {
tmp = t_1 - (x / z);
}
return tmp;
}
def code(x, y, z, t, a, b):
return ((x * y) + (z * (t - a))) / (y + (z * (b - y)))
↓
def code(x, y, z, t, a, b):
t_1 = (t - a) / (b - y)
tmp = 0
if z <= -4.788675350393175:
tmp = t_1 + ((-1.0 / z) * (x + ((a - t) / (b - y))))
elif z <= 171086553456.3898:
tmp = ((x * y) + (z * (t - a))) / (y + (z * b))
else:
tmp = t_1 - (x / z)
return tmp
function code(x, y, z, t, a, b)
return Float64(Float64(Float64(x * y) + Float64(z * Float64(t - a))) / Float64(y + Float64(z * Float64(b - y))))
end
↓
function code(x, y, z, t, a, b)
t_1 = Float64(Float64(t - a) / Float64(b - y))
tmp = 0.0
if (z <= -4.788675350393175)
tmp = Float64(t_1 + Float64(Float64(-1.0 / z) * Float64(x + Float64(Float64(a - t) / Float64(b - y)))));
elseif (z <= 171086553456.3898)
tmp = Float64(Float64(Float64(x * y) + Float64(z * Float64(t - a))) / Float64(y + Float64(z * b)));
else
tmp = Float64(t_1 - Float64(x / z));
end
return tmp
end
function tmp = code(x, y, z, t, a, b)
tmp = ((x * y) + (z * (t - a))) / (y + (z * (b - y)));
end
↓
function tmp_2 = code(x, y, z, t, a, b)
t_1 = (t - a) / (b - y);
tmp = 0.0;
if (z <= -4.788675350393175)
tmp = t_1 + ((-1.0 / z) * (x + ((a - t) / (b - y))));
elseif (z <= 171086553456.3898)
tmp = ((x * y) + (z * (t - a))) / (y + (z * b));
else
tmp = t_1 - (x / z);
end
tmp_2 = tmp;
end
herbie shell --seed 2022325
(FPCore (x y z t a b)
:name "Development.Shake.Progress:decay from shake-0.15.5"
:precision binary64
:herbie-target
(- (/ (+ (* z t) (* y x)) (+ y (* z (- b y)))) (/ a (+ (- b y) (/ y z))))
(/ (+ (* x y) (* z (- t a))) (+ y (* z (- b y)))))