\[\frac{\left(1 - x\right) \cdot \left(3 - x\right)}{y \cdot 3}
\]
↓
\[\begin{array}{l}
t_0 := \left(1 - x\right) \cdot \left(3 - x\right)\\
\mathbf{if}\;t_0 \leq 5 \cdot 10^{+291}:\\
\;\;\;\;\frac{\frac{t_0}{3}}{y}\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{3} \cdot \frac{x}{y}\\
\end{array}
\]
(FPCore (x y) :precision binary64 (/ (* (- 1.0 x) (- 3.0 x)) (* y 3.0)))
↓
(FPCore (x y)
:precision binary64
(let* ((t_0 (* (- 1.0 x) (- 3.0 x))))
(if (<= t_0 5e+291) (/ (/ t_0 3.0) y) (* (/ x 3.0) (/ x y)))))
double code(double x, double y) {
return ((1.0 - x) * (3.0 - x)) / (y * 3.0);
}
↓
double code(double x, double y) {
double t_0 = (1.0 - x) * (3.0 - x);
double tmp;
if (t_0 <= 5e+291) {
tmp = (t_0 / 3.0) / y;
} else {
tmp = (x / 3.0) * (x / y);
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = ((1.0d0 - x) * (3.0d0 - x)) / (y * 3.0d0)
end function
↓
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: tmp
t_0 = (1.0d0 - x) * (3.0d0 - x)
if (t_0 <= 5d+291) then
tmp = (t_0 / 3.0d0) / y
else
tmp = (x / 3.0d0) * (x / y)
end if
code = tmp
end function
public static double code(double x, double y) {
return ((1.0 - x) * (3.0 - x)) / (y * 3.0);
}
↓
public static double code(double x, double y) {
double t_0 = (1.0 - x) * (3.0 - x);
double tmp;
if (t_0 <= 5e+291) {
tmp = (t_0 / 3.0) / y;
} else {
tmp = (x / 3.0) * (x / y);
}
return tmp;
}
def code(x, y):
return ((1.0 - x) * (3.0 - x)) / (y * 3.0)
↓
def code(x, y):
t_0 = (1.0 - x) * (3.0 - x)
tmp = 0
if t_0 <= 5e+291:
tmp = (t_0 / 3.0) / y
else:
tmp = (x / 3.0) * (x / y)
return tmp
function code(x, y)
return Float64(Float64(Float64(1.0 - x) * Float64(3.0 - x)) / Float64(y * 3.0))
end
↓
function code(x, y)
t_0 = Float64(Float64(1.0 - x) * Float64(3.0 - x))
tmp = 0.0
if (t_0 <= 5e+291)
tmp = Float64(Float64(t_0 / 3.0) / y);
else
tmp = Float64(Float64(x / 3.0) * Float64(x / y));
end
return tmp
end
function tmp = code(x, y)
tmp = ((1.0 - x) * (3.0 - x)) / (y * 3.0);
end
↓
function tmp_2 = code(x, y)
t_0 = (1.0 - x) * (3.0 - x);
tmp = 0.0;
if (t_0 <= 5e+291)
tmp = (t_0 / 3.0) / y;
else
tmp = (x / 3.0) * (x / y);
end
tmp_2 = tmp;
end
code[x_, y_] := N[(N[(N[(1.0 - x), $MachinePrecision] * N[(3.0 - x), $MachinePrecision]), $MachinePrecision] / N[(y * 3.0), $MachinePrecision]), $MachinePrecision]
↓
code[x_, y_] := Block[{t$95$0 = N[(N[(1.0 - x), $MachinePrecision] * N[(3.0 - x), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[t$95$0, 5e+291], N[(N[(t$95$0 / 3.0), $MachinePrecision] / y), $MachinePrecision], N[(N[(x / 3.0), $MachinePrecision] * N[(x / y), $MachinePrecision]), $MachinePrecision]]]
\frac{\left(1 - x\right) \cdot \left(3 - x\right)}{y \cdot 3}
↓
\begin{array}{l}
t_0 := \left(1 - x\right) \cdot \left(3 - x\right)\\
\mathbf{if}\;t_0 \leq 5 \cdot 10^{+291}:\\
\;\;\;\;\frac{\frac{t_0}{3}}{y}\\
\mathbf{else}:\\
\;\;\;\;\frac{x}{3} \cdot \frac{x}{y}\\
\end{array}