(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 (/ (+ (* y x) (* z t)) (- y (* z (- y b)))))
(t_2 (/ (- t a) (- b y))))
(if (<= z -8754944757305.786)
t_2
(if (<= z -3.4243684492499595e-8)
(/ x (- 1.0 z))
(if (<= z -2.398542161330947e-12)
(/ t b)
(if (<= z -2.508209905370799e-169)
(+ x (* z (/ (- t a) y)))
(if (<= z -7.237021465513243e-225)
t_1
(if (<= z 3.6828643864288107e-168)
(- x (/ (* z a) y))
(if (<= z 3933586333917.1025) t_1 t_2)))))))))
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 = ((y * x) + (z * t)) / (y - (z * (y - b)));
double t_2 = (t - a) / (b - y);
double tmp;
if (z <= -8754944757305.786) {
tmp = t_2;
} else if (z <= -3.4243684492499595e-8) {
tmp = x / (1.0 - z);
} else if (z <= -2.398542161330947e-12) {
tmp = t / b;
} else if (z <= -2.508209905370799e-169) {
tmp = x + (z * ((t - a) / y));
} else if (z <= -7.237021465513243e-225) {
tmp = t_1;
} else if (z <= 3.6828643864288107e-168) {
tmp = x - ((z * a) / y);
} else if (z <= 3933586333917.1025) {
tmp = t_1;
} else {
tmp = t_2;
}
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) :: t_2
real(8) :: tmp
t_1 = ((y * x) + (z * t)) / (y - (z * (y - b)))
t_2 = (t - a) / (b - y)
if (z <= (-8754944757305.786d0)) then
tmp = t_2
else if (z <= (-3.4243684492499595d-8)) then
tmp = x / (1.0d0 - z)
else if (z <= (-2.398542161330947d-12)) then
tmp = t / b
else if (z <= (-2.508209905370799d-169)) then
tmp = x + (z * ((t - a) / y))
else if (z <= (-7.237021465513243d-225)) then
tmp = t_1
else if (z <= 3.6828643864288107d-168) then
tmp = x - ((z * a) / y)
else if (z <= 3933586333917.1025d0) then
tmp = t_1
else
tmp = t_2
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 = ((y * x) + (z * t)) / (y - (z * (y - b)));
double t_2 = (t - a) / (b - y);
double tmp;
if (z <= -8754944757305.786) {
tmp = t_2;
} else if (z <= -3.4243684492499595e-8) {
tmp = x / (1.0 - z);
} else if (z <= -2.398542161330947e-12) {
tmp = t / b;
} else if (z <= -2.508209905370799e-169) {
tmp = x + (z * ((t - a) / y));
} else if (z <= -7.237021465513243e-225) {
tmp = t_1;
} else if (z <= 3.6828643864288107e-168) {
tmp = x - ((z * a) / y);
} else if (z <= 3933586333917.1025) {
tmp = t_1;
} else {
tmp = t_2;
}
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 = ((y * x) + (z * t)) / (y - (z * (y - b)))
t_2 = (t - a) / (b - y)
tmp = 0
if z <= -8754944757305.786:
tmp = t_2
elif z <= -3.4243684492499595e-8:
tmp = x / (1.0 - z)
elif z <= -2.398542161330947e-12:
tmp = t / b
elif z <= -2.508209905370799e-169:
tmp = x + (z * ((t - a) / y))
elif z <= -7.237021465513243e-225:
tmp = t_1
elif z <= 3.6828643864288107e-168:
tmp = x - ((z * a) / y)
elif z <= 3933586333917.1025:
tmp = t_1
else:
tmp = t_2
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(Float64(y * x) + Float64(z * t)) / Float64(y - Float64(z * Float64(y - b))))
t_2 = Float64(Float64(t - a) / Float64(b - y))
tmp = 0.0
if (z <= -8754944757305.786)
tmp = t_2;
elseif (z <= -3.4243684492499595e-8)
tmp = Float64(x / Float64(1.0 - z));
elseif (z <= -2.398542161330947e-12)
tmp = Float64(t / b);
elseif (z <= -2.508209905370799e-169)
tmp = Float64(x + Float64(z * Float64(Float64(t - a) / y)));
elseif (z <= -7.237021465513243e-225)
tmp = t_1;
elseif (z <= 3.6828643864288107e-168)
tmp = Float64(x - Float64(Float64(z * a) / y));
elseif (z <= 3933586333917.1025)
tmp = t_1;
else
tmp = t_2;
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 = ((y * x) + (z * t)) / (y - (z * (y - b)));
t_2 = (t - a) / (b - y);
tmp = 0.0;
if (z <= -8754944757305.786)
tmp = t_2;
elseif (z <= -3.4243684492499595e-8)
tmp = x / (1.0 - z);
elseif (z <= -2.398542161330947e-12)
tmp = t / b;
elseif (z <= -2.508209905370799e-169)
tmp = x + (z * ((t - a) / y));
elseif (z <= -7.237021465513243e-225)
tmp = t_1;
elseif (z <= 3.6828643864288107e-168)
tmp = x - ((z * a) / y);
elseif (z <= 3933586333917.1025)
tmp = t_1;
else
tmp = t_2;
end
tmp_2 = tmp;
end
herbie shell --seed 2022228
(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)))))