(FPCore (x y z t a b)
:precision binary64
(/ (+ x (/ (* y z) t)) (+ (+ a 1.0) (/ (* y b) t))))
↓
(FPCore (x y z t a b)
:precision binary64
(let* ((t_1 (/ (+ x (/ (* y z) t)) (+ (+ a 1.0) (/ (* y b) t)))))
(if (<= t_1 -1e-318)
t_1
(if (<= t_1 0.0)
(+
(/ z b)
(- (/ (- (/ (* (+ 1.0 a) (* z t)) (pow b 2.0)) (/ (* t x) b)) y)))
(if (<= t_1 1e+307) t_1 (/ z b))))))
double code(double x, double y, double z, double t, double a, double b) {
return (x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t));
}
↓
double code(double x, double y, double z, double t, double a, double b) {
double t_1 = (x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t));
double tmp;
if (t_1 <= -1e-318) {
tmp = t_1;
} else if (t_1 <= 0.0) {
tmp = (z / b) + -(((((1.0 + a) * (z * t)) / pow(b, 2.0)) - ((t * x) / b)) / y);
} else if (t_1 <= 1e+307) {
tmp = t_1;
} else {
tmp = z / b;
}
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 + 1.0d0) + ((y * b) / t))
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 = (x + ((y * z) / t)) / ((a + 1.0d0) + ((y * b) / t))
if (t_1 <= (-1d-318)) then
tmp = t_1
else if (t_1 <= 0.0d0) then
tmp = (z / b) + -(((((1.0d0 + a) * (z * t)) / (b ** 2.0d0)) - ((t * x) / b)) / y)
else if (t_1 <= 1d+307) then
tmp = t_1
else
tmp = z / b
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 + 1.0) + ((y * b) / t));
}
↓
public static double code(double x, double y, double z, double t, double a, double b) {
double t_1 = (x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t));
double tmp;
if (t_1 <= -1e-318) {
tmp = t_1;
} else if (t_1 <= 0.0) {
tmp = (z / b) + -(((((1.0 + a) * (z * t)) / Math.pow(b, 2.0)) - ((t * x) / b)) / y);
} else if (t_1 <= 1e+307) {
tmp = t_1;
} else {
tmp = z / b;
}
return tmp;
}
def code(x, y, z, t, a, b):
return (x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t))
↓
def code(x, y, z, t, a, b):
t_1 = (x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t))
tmp = 0
if t_1 <= -1e-318:
tmp = t_1
elif t_1 <= 0.0:
tmp = (z / b) + -(((((1.0 + a) * (z * t)) / math.pow(b, 2.0)) - ((t * x) / b)) / y)
elif t_1 <= 1e+307:
tmp = t_1
else:
tmp = z / b
return tmp
function code(x, y, z, t, a, b)
return Float64(Float64(x + Float64(Float64(y * z) / t)) / Float64(Float64(a + 1.0) + Float64(Float64(y * b) / t)))
end
↓
function code(x, y, z, t, a, b)
t_1 = Float64(Float64(x + Float64(Float64(y * z) / t)) / Float64(Float64(a + 1.0) + Float64(Float64(y * b) / t)))
tmp = 0.0
if (t_1 <= -1e-318)
tmp = t_1;
elseif (t_1 <= 0.0)
tmp = Float64(Float64(z / b) + Float64(-Float64(Float64(Float64(Float64(Float64(1.0 + a) * Float64(z * t)) / (b ^ 2.0)) - Float64(Float64(t * x) / b)) / y)));
elseif (t_1 <= 1e+307)
tmp = t_1;
else
tmp = Float64(z / b);
end
return tmp
end
function tmp = code(x, y, z, t, a, b)
tmp = (x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t));
end
↓
function tmp_2 = code(x, y, z, t, a, b)
t_1 = (x + ((y * z) / t)) / ((a + 1.0) + ((y * b) / t));
tmp = 0.0;
if (t_1 <= -1e-318)
tmp = t_1;
elseif (t_1 <= 0.0)
tmp = (z / b) + -(((((1.0 + a) * (z * t)) / (b ^ 2.0)) - ((t * x) / b)) / y);
elseif (t_1 <= 1e+307)
tmp = t_1;
else
tmp = z / b;
end
tmp_2 = tmp;
end
if (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a 1) (/.f64 (*.f64 y b) t))) < -9.9999875e-319 or 0.0 < (/.f64 (+.f64 x (/.f64 (*.f64 y z) t)) (+.f64 (+.f64 a 1) (/.f64 (*.f64 y b) t))) < 9.99999999999999986e306
herbie shell --seed 2023089
(FPCore (x y z t a b)
:name "Diagrams.Solve.Tridiagonal:solveCyclicTriDiagonal from diagrams-solve-0.1, B"
:precision binary64
:herbie-target
(if (< t -1.3659085366310088e-271) (* 1.0 (* (+ x (* (/ y t) z)) (/ 1.0 (+ (+ a 1.0) (* (/ y t) b))))) (if (< t 3.036967103737246e-130) (/ z b) (* 1.0 (* (+ x (* (/ y t) z)) (/ 1.0 (+ (+ a 1.0) (* (/ y t) b)))))))
(/ (+ x (/ (* y z) t)) (+ (+ a 1.0) (/ (* y b) t))))