\[\begin{array}{l}
\mathbf{if}\;\left(\left|x - \sqrt{x \cdot x + 1}\right| - \frac{1}{x + \sqrt{x \cdot x + 1}}\right) \cdot \left(\left|x - \sqrt{x \cdot x + 1}\right| - \frac{1}{x + \sqrt{x \cdot x + 1}}\right) = 0.0:\\
\;\;\;\;1\\
\mathbf{else}:\\
\;\;\;\;\frac{e^{\left(\left|x - \sqrt{x \cdot x + 1}\right| - \frac{1}{x + \sqrt{x \cdot x + 1}}\right) \cdot \left(\left|x - \sqrt{x \cdot x + 1}\right| - \frac{1}{x + \sqrt{x \cdot x + 1}}\right)} - 1}{x}\\
\end{array}\]
\begin{array}{l}
\mathbf{if}\;\left(\left|x - \sqrt{x \cdot x + 1}\right| - \frac{1}{x + \sqrt{x \cdot x + 1}}\right) \cdot \left(\left|x - \sqrt{x \cdot x + 1}\right| - \frac{1}{x + \sqrt{x \cdot x + 1}}\right) = 0.0:\\
\;\;\;\;1\\
\mathbf{else}:\\
\;\;\;\;\frac{e^{\left(\left|x - \sqrt{x \cdot x + 1}\right| - \frac{1}{x + \sqrt{x \cdot x + 1}}\right) \cdot \left(\left|x - \sqrt{x \cdot x + 1}\right| - \frac{1}{x + \sqrt{x \cdot x + 1}}\right)} - 1}{x}\\
\end{array}double code(double x) {
double VAR;
if ((((double) (((double) (((double) fabs(((double) (x - ((double) sqrt(((double) (((double) (x * x)) + 1.0)))))))) - ((double) (1.0 / ((double) (x + ((double) sqrt(((double) (((double) (x * x)) + 1.0)))))))))) * ((double) (((double) fabs(((double) (x - ((double) sqrt(((double) (((double) (x * x)) + 1.0)))))))) - ((double) (1.0 / ((double) (x + ((double) sqrt(((double) (((double) (x * x)) + 1.0)))))))))))) == 0.0)) {
VAR = 1.0;
} else {
VAR = ((double) (((double) (((double) exp(((double) (((double) (((double) fabs(((double) (x - ((double) sqrt(((double) (((double) (x * x)) + 1.0)))))))) - ((double) (1.0 / ((double) (x + ((double) sqrt(((double) (((double) (x * x)) + 1.0)))))))))) * ((double) (((double) fabs(((double) (x - ((double) sqrt(((double) (((double) (x * x)) + 1.0)))))))) - ((double) (1.0 / ((double) (x + ((double) sqrt(((double) (((double) (x * x)) + 1.0)))))))))))))) - 1.0)) / x));
}
return VAR;
}