double code(double x, double y, double z) {
double tmp;
if (x <= -3.8e-121) {
tmp = x * ((y - z) / y);
} else if (x <= 1.25e-231) {
tmp = x + -((z * x) / y);
} else {
tmp = x / (y / (y - z));
}
return tmp;
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = (x * (y - z)) / y
end function
↓
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
real(8) :: tmp
if (x <= (-3.8d-121)) then
tmp = x * ((y - z) / y)
else if (x <= 1.25d-231) then
tmp = x + -((z * x) / y)
else
tmp = x / (y / (y - z))
end if
code = tmp
end function
public static double code(double x, double y, double z) {
return (x * (y - z)) / y;
}
↓
public static double code(double x, double y, double z) {
double tmp;
if (x <= -3.8e-121) {
tmp = x * ((y - z) / y);
} else if (x <= 1.25e-231) {
tmp = x + -((z * x) / y);
} else {
tmp = x / (y / (y - z));
}
return tmp;
}
def code(x, y, z):
return (x * (y - z)) / y
↓
def code(x, y, z):
tmp = 0
if x <= -3.8e-121:
tmp = x * ((y - z) / y)
elif x <= 1.25e-231:
tmp = x + -((z * x) / y)
else:
tmp = x / (y / (y - z))
return tmp
function code(x, y, z)
return Float64(Float64(x * Float64(y - z)) / y)
end
↓
function code(x, y, z)
tmp = 0.0
if (x <= -3.8e-121)
tmp = Float64(x * Float64(Float64(y - z) / y));
elseif (x <= 1.25e-231)
tmp = Float64(x + Float64(-Float64(Float64(z * x) / y)));
else
tmp = Float64(x / Float64(y / Float64(y - z)));
end
return tmp
end
function tmp = code(x, y, z)
tmp = (x * (y - z)) / y;
end
↓
function tmp_2 = code(x, y, z)
tmp = 0.0;
if (x <= -3.8e-121)
tmp = x * ((y - z) / y);
elseif (x <= 1.25e-231)
tmp = x + -((z * x) / y);
else
tmp = x / (y / (y - z));
end
tmp_2 = tmp;
end
herbie shell --seed 2023073
(FPCore (x y z)
:name "Diagrams.Backend.Cairo.Internal:setTexture from diagrams-cairo-1.3.0.3"
:precision binary64
:herbie-target
(if (< z -2.060202331921739e+104) (- x (/ (* z x) y)) (if (< z 1.6939766013828526e+213) (/ x (/ y (- y z))) (* (- y z) (/ x y))))
(/ (* x (- y z)) y))