(FPCore (x y z t a b)
:precision binary64
(+ (- (* x 2.0) (* (* (* y 9.0) z) t)) (* (* a 27.0) b)))
↓
(FPCore (x y z t a b)
:precision binary64
(if (<= z 1.3e-62)
(+ (- (* x 2.0) (* y (* 9.0 (* z t)))) (* a (* 27.0 b)))
(+ (- (* x 2.0) (* (* (* y 9.0) z) t)) (* (* a 27.0) b))))
double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if (z <= 1.3e-62) {
tmp = ((x * 2.0) - (y * (9.0 * (z * t)))) + (a * (27.0 * b));
} else {
tmp = ((x * 2.0) - (((y * 9.0) * z) * t)) + ((a * 27.0) * 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 * 2.0d0) - (((y * 9.0d0) * z) * t)) + ((a * 27.0d0) * b)
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) :: tmp
if (z <= 1.3d-62) then
tmp = ((x * 2.0d0) - (y * (9.0d0 * (z * t)))) + (a * (27.0d0 * b))
else
tmp = ((x * 2.0d0) - (((y * 9.0d0) * z) * t)) + ((a * 27.0d0) * 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 * 2.0) - (((y * 9.0) * z) * t)) + ((a * 27.0) * b);
}
↓
public static double code(double x, double y, double z, double t, double a, double b) {
double tmp;
if (z <= 1.3e-62) {
tmp = ((x * 2.0) - (y * (9.0 * (z * t)))) + (a * (27.0 * b));
} else {
tmp = ((x * 2.0) - (((y * 9.0) * z) * t)) + ((a * 27.0) * b);
}
return tmp;
}
def code(x, y, z, t, a, b):
return ((x * 2.0) - (((y * 9.0) * z) * t)) + ((a * 27.0) * b)
↓
def code(x, y, z, t, a, b):
tmp = 0
if z <= 1.3e-62:
tmp = ((x * 2.0) - (y * (9.0 * (z * t)))) + (a * (27.0 * b))
else:
tmp = ((x * 2.0) - (((y * 9.0) * z) * t)) + ((a * 27.0) * b)
return tmp
function code(x, y, z, t, a, b)
return Float64(Float64(Float64(x * 2.0) - Float64(Float64(Float64(y * 9.0) * z) * t)) + Float64(Float64(a * 27.0) * b))
end
↓
function code(x, y, z, t, a, b)
tmp = 0.0
if (z <= 1.3e-62)
tmp = Float64(Float64(Float64(x * 2.0) - Float64(y * Float64(9.0 * Float64(z * t)))) + Float64(a * Float64(27.0 * b)));
else
tmp = Float64(Float64(Float64(x * 2.0) - Float64(Float64(Float64(y * 9.0) * z) * t)) + Float64(Float64(a * 27.0) * b));
end
return tmp
end
function tmp = code(x, y, z, t, a, b)
tmp = ((x * 2.0) - (((y * 9.0) * z) * t)) + ((a * 27.0) * b);
end
↓
function tmp_2 = code(x, y, z, t, a, b)
tmp = 0.0;
if (z <= 1.3e-62)
tmp = ((x * 2.0) - (y * (9.0 * (z * t)))) + (a * (27.0 * b));
else
tmp = ((x * 2.0) - (((y * 9.0) * z) * t)) + ((a * 27.0) * b);
end
tmp_2 = tmp;
end
herbie shell --seed 2023064
(FPCore (x y z t a b)
:name "Diagrams.Solve.Polynomial:cubForm from diagrams-solve-0.1, A"
:precision binary64
:herbie-target
(if (< y 7.590524218811189e-161) (+ (- (* x 2.0) (* (* (* y 9.0) z) t)) (* a (* 27.0 b))) (+ (- (* x 2.0) (* 9.0 (* y (* t z)))) (* (* a 27.0) b)))
(+ (- (* x 2.0) (* (* (* y 9.0) z) t)) (* (* a 27.0) b)))