
(FPCore (cosTheta_i u1 u2) :precision binary32 (* (sqrt (- (log (- 1.0 u1)))) (sin (* (* 2.0 PI) u2))))
float code(float cosTheta_i, float u1, float u2) {
return sqrtf(-logf((1.0f - u1))) * sinf(((2.0f * ((float) M_PI)) * u2));
}
function code(cosTheta_i, u1, u2) return Float32(sqrt(Float32(-log(Float32(Float32(1.0) - u1)))) * sin(Float32(Float32(Float32(2.0) * Float32(pi)) * u2))) end
function tmp = code(cosTheta_i, u1, u2) tmp = sqrt(-log((single(1.0) - u1))) * sin(((single(2.0) * single(pi)) * u2)); end
\sqrt{-\log \left(1 - u1\right)} \cdot \sin \left(\left(2 \cdot \pi\right) \cdot u2\right)
Herbie found 10 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (cosTheta_i u1 u2) :precision binary32 (* (sqrt (- (log (- 1.0 u1)))) (sin (* (* 2.0 PI) u2))))
float code(float cosTheta_i, float u1, float u2) {
return sqrtf(-logf((1.0f - u1))) * sinf(((2.0f * ((float) M_PI)) * u2));
}
function code(cosTheta_i, u1, u2) return Float32(sqrt(Float32(-log(Float32(Float32(1.0) - u1)))) * sin(Float32(Float32(Float32(2.0) * Float32(pi)) * u2))) end
function tmp = code(cosTheta_i, u1, u2) tmp = sqrt(-log((single(1.0) - u1))) * sin(((single(2.0) * single(pi)) * u2)); end
\sqrt{-\log \left(1 - u1\right)} \cdot \sin \left(\left(2 \cdot \pi\right) \cdot u2\right)
(FPCore (cosTheta_i u1 u2) :precision binary32 (* (sqrt (- (log1p (- u1)))) (sin (* 6.2831854820251465 u2))))
float code(float cosTheta_i, float u1, float u2) {
return sqrtf(-log1pf(-u1)) * sinf((6.2831854820251465f * u2));
}
function code(cosTheta_i, u1, u2) return Float32(sqrt(Float32(-log1p(Float32(-u1)))) * sin(Float32(Float32(6.2831854820251465) * u2))) end
\sqrt{-\mathsf{log1p}\left(-u1\right)} \cdot \sin \left(6.2831854820251465 \cdot u2\right)
Initial program 57.8%
lift-log.f32N/A
lift--.f32N/A
sub-flipN/A
lower-log1p.f32N/A
lower-neg.f3298.4%
Applied rewrites98.4%
Evaluated real constant98.4%
(FPCore (cosTheta_i u1 u2)
:precision binary32
(if (<= u2 0.014600000344216824)
(*
(sqrt (- (log1p (- u1))))
(*
(+
1.0
(/ (* (* (* u2 u2) u2) -41.341705691712875) (* 6.2831854820251465 u2)))
(* 6.2831854820251465 u2)))
(* (sqrt (* u1 (+ 1.0 (* 0.5 u1)))) (sin (* 6.2831854820251465 u2)))))float code(float cosTheta_i, float u1, float u2) {
float tmp;
if (u2 <= 0.014600000344216824f) {
tmp = sqrtf(-log1pf(-u1)) * ((1.0f + ((((u2 * u2) * u2) * -41.341705691712875f) / (6.2831854820251465f * u2))) * (6.2831854820251465f * u2));
} else {
tmp = sqrtf((u1 * (1.0f + (0.5f * u1)))) * sinf((6.2831854820251465f * u2));
}
return tmp;
}
function code(cosTheta_i, u1, u2) tmp = Float32(0.0) if (u2 <= Float32(0.014600000344216824)) tmp = Float32(sqrt(Float32(-log1p(Float32(-u1)))) * Float32(Float32(Float32(1.0) + Float32(Float32(Float32(Float32(u2 * u2) * u2) * Float32(-41.341705691712875)) / Float32(Float32(6.2831854820251465) * u2))) * Float32(Float32(6.2831854820251465) * u2))); else tmp = Float32(sqrt(Float32(u1 * Float32(Float32(1.0) + Float32(Float32(0.5) * u1)))) * sin(Float32(Float32(6.2831854820251465) * u2))); end return tmp end
\begin{array}{l}
\mathbf{if}\;u2 \leq 0.014600000344216824:\\
\;\;\;\;\sqrt{-\mathsf{log1p}\left(-u1\right)} \cdot \left(\left(1 + \frac{\left(\left(u2 \cdot u2\right) \cdot u2\right) \cdot -41.341705691712875}{6.2831854820251465 \cdot u2}\right) \cdot \left(6.2831854820251465 \cdot u2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\sqrt{u1 \cdot \left(1 + 0.5 \cdot u1\right)} \cdot \sin \left(6.2831854820251465 \cdot u2\right)\\
\end{array}
if u2 < 0.0146000003Initial program 57.8%
lift-log.f32N/A
lift--.f32N/A
sub-flipN/A
lower-log1p.f32N/A
lower-neg.f3298.4%
Applied rewrites98.4%
Evaluated real constant98.4%
Taylor expanded in u2 around 0
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-pow.f3289.2%
Applied rewrites89.2%
lift-*.f32N/A
lift-+.f32N/A
distribute-lft-inN/A
*-commutativeN/A
sum-to-multN/A
lower-unsound-*.f32N/A
Applied rewrites89.2%
if 0.0146000003 < u2 Initial program 57.8%
lift-log.f32N/A
lift--.f32N/A
sub-flipN/A
lower-log1p.f32N/A
lower-neg.f3298.4%
Applied rewrites98.4%
Evaluated real constant98.4%
Taylor expanded in u1 around 0
lower-*.f32N/A
lower-+.f32N/A
lower-*.f3287.7%
Applied rewrites87.7%
(FPCore (cosTheta_i u1 u2)
:precision binary32
(if (<= u2 0.04500000178813934)
(*
(sqrt (- (log1p (- u1))))
(*
(+
1.0
(/ (* (* (* u2 u2) u2) -41.341705691712875) (* 6.2831854820251465 u2)))
(* 6.2831854820251465 u2)))
(* (sqrt u1) (sin (* 6.2831854820251465 u2)))))float code(float cosTheta_i, float u1, float u2) {
float tmp;
if (u2 <= 0.04500000178813934f) {
tmp = sqrtf(-log1pf(-u1)) * ((1.0f + ((((u2 * u2) * u2) * -41.341705691712875f) / (6.2831854820251465f * u2))) * (6.2831854820251465f * u2));
} else {
tmp = sqrtf(u1) * sinf((6.2831854820251465f * u2));
}
return tmp;
}
function code(cosTheta_i, u1, u2) tmp = Float32(0.0) if (u2 <= Float32(0.04500000178813934)) tmp = Float32(sqrt(Float32(-log1p(Float32(-u1)))) * Float32(Float32(Float32(1.0) + Float32(Float32(Float32(Float32(u2 * u2) * u2) * Float32(-41.341705691712875)) / Float32(Float32(6.2831854820251465) * u2))) * Float32(Float32(6.2831854820251465) * u2))); else tmp = Float32(sqrt(u1) * sin(Float32(Float32(6.2831854820251465) * u2))); end return tmp end
\begin{array}{l}
\mathbf{if}\;u2 \leq 0.04500000178813934:\\
\;\;\;\;\sqrt{-\mathsf{log1p}\left(-u1\right)} \cdot \left(\left(1 + \frac{\left(\left(u2 \cdot u2\right) \cdot u2\right) \cdot -41.341705691712875}{6.2831854820251465 \cdot u2}\right) \cdot \left(6.2831854820251465 \cdot u2\right)\right)\\
\mathbf{else}:\\
\;\;\;\;\sqrt{u1} \cdot \sin \left(6.2831854820251465 \cdot u2\right)\\
\end{array}
if u2 < 0.0450000018Initial program 57.8%
lift-log.f32N/A
lift--.f32N/A
sub-flipN/A
lower-log1p.f32N/A
lower-neg.f3298.4%
Applied rewrites98.4%
Evaluated real constant98.4%
Taylor expanded in u2 around 0
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-pow.f3289.2%
Applied rewrites89.2%
lift-*.f32N/A
lift-+.f32N/A
distribute-lft-inN/A
*-commutativeN/A
sum-to-multN/A
lower-unsound-*.f32N/A
Applied rewrites89.2%
if 0.0450000018 < u2 Initial program 57.8%
lift-log.f32N/A
lift--.f32N/A
sub-flipN/A
lower-log1p.f32N/A
lower-neg.f3298.4%
Applied rewrites98.4%
Evaluated real constant98.4%
Taylor expanded in u1 around 0
Applied rewrites76.4%
(FPCore (cosTheta_i u1 u2)
:precision binary32
(*
(sqrt (- (log1p (- u1))))
(*
(+
1.0
(/ (* (* (* u2 u2) u2) -41.341705691712875) (* 6.2831854820251465 u2)))
(* 6.2831854820251465 u2))))float code(float cosTheta_i, float u1, float u2) {
return sqrtf(-log1pf(-u1)) * ((1.0f + ((((u2 * u2) * u2) * -41.341705691712875f) / (6.2831854820251465f * u2))) * (6.2831854820251465f * u2));
}
function code(cosTheta_i, u1, u2) return Float32(sqrt(Float32(-log1p(Float32(-u1)))) * Float32(Float32(Float32(1.0) + Float32(Float32(Float32(Float32(u2 * u2) * u2) * Float32(-41.341705691712875)) / Float32(Float32(6.2831854820251465) * u2))) * Float32(Float32(6.2831854820251465) * u2))) end
\sqrt{-\mathsf{log1p}\left(-u1\right)} \cdot \left(\left(1 + \frac{\left(\left(u2 \cdot u2\right) \cdot u2\right) \cdot -41.341705691712875}{6.2831854820251465 \cdot u2}\right) \cdot \left(6.2831854820251465 \cdot u2\right)\right)
Initial program 57.8%
lift-log.f32N/A
lift--.f32N/A
sub-flipN/A
lower-log1p.f32N/A
lower-neg.f3298.4%
Applied rewrites98.4%
Evaluated real constant98.4%
Taylor expanded in u2 around 0
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-pow.f3289.2%
Applied rewrites89.2%
lift-*.f32N/A
lift-+.f32N/A
distribute-lft-inN/A
*-commutativeN/A
sum-to-multN/A
lower-unsound-*.f32N/A
Applied rewrites89.2%
(FPCore (cosTheta_i u1 u2) :precision binary32 (* (sqrt (- (log1p (- u1)))) (* u2 (fma (* -41.341705691712875 u2) u2 6.2831854820251465))))
float code(float cosTheta_i, float u1, float u2) {
return sqrtf(-log1pf(-u1)) * (u2 * fmaf((-41.341705691712875f * u2), u2, 6.2831854820251465f));
}
function code(cosTheta_i, u1, u2) return Float32(sqrt(Float32(-log1p(Float32(-u1)))) * Float32(u2 * fma(Float32(Float32(-41.341705691712875) * u2), u2, Float32(6.2831854820251465)))) end
\sqrt{-\mathsf{log1p}\left(-u1\right)} \cdot \left(u2 \cdot \mathsf{fma}\left(-41.341705691712875 \cdot u2, u2, 6.2831854820251465\right)\right)
Initial program 57.8%
lift-log.f32N/A
lift--.f32N/A
sub-flipN/A
lower-log1p.f32N/A
lower-neg.f3298.4%
Applied rewrites98.4%
Evaluated real constant98.4%
Taylor expanded in u2 around 0
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-pow.f3289.2%
Applied rewrites89.2%
lift-+.f32N/A
+-commutativeN/A
lift-*.f32N/A
lift-pow.f32N/A
unpow2N/A
associate-*r*N/A
lower-fma.f32N/A
lower-*.f3289.2%
Applied rewrites89.2%
(FPCore (cosTheta_i u1 u2) :precision binary32 (* (sqrt (- (log1p (- u1)))) (* 6.2831854820251465 u2)))
float code(float cosTheta_i, float u1, float u2) {
return sqrtf(-log1pf(-u1)) * (6.2831854820251465f * u2);
}
function code(cosTheta_i, u1, u2) return Float32(sqrt(Float32(-log1p(Float32(-u1)))) * Float32(Float32(6.2831854820251465) * u2)) end
\sqrt{-\mathsf{log1p}\left(-u1\right)} \cdot \left(6.2831854820251465 \cdot u2\right)
Initial program 57.8%
lift-log.f32N/A
lift--.f32N/A
sub-flipN/A
lower-log1p.f32N/A
lower-neg.f3298.4%
Applied rewrites98.4%
Evaluated real constant98.4%
Taylor expanded in u2 around 0
lower-*.f3281.6%
Applied rewrites81.6%
(FPCore (cosTheta_i u1 u2) :precision binary32 (if (<= u1 0.0002500000118743628) (* (+ u2 u2) (* (sqrt u1) PI)) (* (+ u2 u2) (* (sqrt (- (log (- 1.0 u1)))) PI))))
float code(float cosTheta_i, float u1, float u2) {
float tmp;
if (u1 <= 0.0002500000118743628f) {
tmp = (u2 + u2) * (sqrtf(u1) * ((float) M_PI));
} else {
tmp = (u2 + u2) * (sqrtf(-logf((1.0f - u1))) * ((float) M_PI));
}
return tmp;
}
function code(cosTheta_i, u1, u2) tmp = Float32(0.0) if (u1 <= Float32(0.0002500000118743628)) tmp = Float32(Float32(u2 + u2) * Float32(sqrt(u1) * Float32(pi))); else tmp = Float32(Float32(u2 + u2) * Float32(sqrt(Float32(-log(Float32(Float32(1.0) - u1)))) * Float32(pi))); end return tmp end
function tmp_2 = code(cosTheta_i, u1, u2) tmp = single(0.0); if (u1 <= single(0.0002500000118743628)) tmp = (u2 + u2) * (sqrt(u1) * single(pi)); else tmp = (u2 + u2) * (sqrt(-log((single(1.0) - u1))) * single(pi)); end tmp_2 = tmp; end
\begin{array}{l}
\mathbf{if}\;u1 \leq 0.0002500000118743628:\\
\;\;\;\;\left(u2 + u2\right) \cdot \left(\sqrt{u1} \cdot \pi\right)\\
\mathbf{else}:\\
\;\;\;\;\left(u2 + u2\right) \cdot \left(\sqrt{-\log \left(1 - u1\right)} \cdot \pi\right)\\
\end{array}
if u1 < 2.50000012e-4Initial program 57.8%
Taylor expanded in u2 around 0
lower-*.f32N/A
lower-*.f32N/A
lower-*.f32N/A
lower-PI.f32N/A
lower-sqrt.f32N/A
lower-neg.f32N/A
lower-log.f32N/A
lower--.f3250.9%
Applied rewrites50.9%
Taylor expanded in u1 around 0
lower-*.f32N/A
lower-PI.f32N/A
lower-sqrt.f3266.1%
Applied rewrites66.1%
lift-*.f32N/A
lift-*.f32N/A
associate-*r*N/A
lower-*.f32N/A
count-2-revN/A
lower-+.f3266.1%
lift-*.f32N/A
*-commutativeN/A
lower-*.f3266.1%
Applied rewrites66.1%
if 2.50000012e-4 < u1 Initial program 57.8%
Taylor expanded in u2 around 0
lower-*.f32N/A
lower-*.f32N/A
lower-*.f32N/A
lower-PI.f32N/A
lower-sqrt.f32N/A
lower-neg.f32N/A
lower-log.f32N/A
lower--.f3250.9%
Applied rewrites50.9%
lift-*.f32N/A
lift-*.f32N/A
associate-*r*N/A
lower-*.f32N/A
count-2-revN/A
lower-+.f3250.9%
lift-*.f32N/A
*-commutativeN/A
lower-*.f3250.9%
Applied rewrites50.9%
(FPCore (cosTheta_i u1 u2)
:precision binary32
(let* ((t_0 (log (- 1.0 u1))))
(if (<= t_0 -0.0002500000118743628)
(* (* u2 (+ PI PI)) (sqrt (- t_0)))
(* (+ u2 u2) (* (sqrt u1) PI)))))float code(float cosTheta_i, float u1, float u2) {
float t_0 = logf((1.0f - u1));
float tmp;
if (t_0 <= -0.0002500000118743628f) {
tmp = (u2 * (((float) M_PI) + ((float) M_PI))) * sqrtf(-t_0);
} else {
tmp = (u2 + u2) * (sqrtf(u1) * ((float) M_PI));
}
return tmp;
}
function code(cosTheta_i, u1, u2) t_0 = log(Float32(Float32(1.0) - u1)) tmp = Float32(0.0) if (t_0 <= Float32(-0.0002500000118743628)) tmp = Float32(Float32(u2 * Float32(Float32(pi) + Float32(pi))) * sqrt(Float32(-t_0))); else tmp = Float32(Float32(u2 + u2) * Float32(sqrt(u1) * Float32(pi))); end return tmp end
function tmp_2 = code(cosTheta_i, u1, u2) t_0 = log((single(1.0) - u1)); tmp = single(0.0); if (t_0 <= single(-0.0002500000118743628)) tmp = (u2 * (single(pi) + single(pi))) * sqrt(-t_0); else tmp = (u2 + u2) * (sqrt(u1) * single(pi)); end tmp_2 = tmp; end
\begin{array}{l}
t_0 := \log \left(1 - u1\right)\\
\mathbf{if}\;t\_0 \leq -0.0002500000118743628:\\
\;\;\;\;\left(u2 \cdot \left(\pi + \pi\right)\right) \cdot \sqrt{-t\_0}\\
\mathbf{else}:\\
\;\;\;\;\left(u2 + u2\right) \cdot \left(\sqrt{u1} \cdot \pi\right)\\
\end{array}
if (log.f32 (-.f32 #s(literal 1 binary32) u1)) < -2.50000012e-4Initial program 57.8%
Taylor expanded in u2 around 0
lower-*.f32N/A
lower-*.f32N/A
lower-*.f32N/A
lower-PI.f32N/A
lower-sqrt.f32N/A
lower-neg.f32N/A
lower-log.f32N/A
lower--.f3250.9%
Applied rewrites50.9%
lift-*.f32N/A
lift-*.f32N/A
associate-*r*N/A
lift-*.f32N/A
associate-*r*N/A
*-commutativeN/A
associate-*r*N/A
lift-*.f32N/A
*-commutativeN/A
lift-*.f32N/A
lower-*.f3250.9%
lift-*.f32N/A
*-commutativeN/A
lower-*.f3250.9%
lift-*.f32N/A
count-2-revN/A
lower-+.f3250.9%
Applied rewrites50.9%
if -2.50000012e-4 < (log.f32 (-.f32 #s(literal 1 binary32) u1)) Initial program 57.8%
Taylor expanded in u2 around 0
lower-*.f32N/A
lower-*.f32N/A
lower-*.f32N/A
lower-PI.f32N/A
lower-sqrt.f32N/A
lower-neg.f32N/A
lower-log.f32N/A
lower--.f3250.9%
Applied rewrites50.9%
Taylor expanded in u1 around 0
lower-*.f32N/A
lower-PI.f32N/A
lower-sqrt.f3266.1%
Applied rewrites66.1%
lift-*.f32N/A
lift-*.f32N/A
associate-*r*N/A
lower-*.f32N/A
count-2-revN/A
lower-+.f3266.1%
lift-*.f32N/A
*-commutativeN/A
lower-*.f3266.1%
Applied rewrites66.1%
(FPCore (cosTheta_i u1 u2)
:precision binary32
(let* ((t_0 (log (- 1.0 u1))))
(if (<= t_0 -0.0002500000118743628)
(* 6.2831854820251465 (* u2 (sqrt (- t_0))))
(* (+ u2 u2) (* (sqrt u1) PI)))))float code(float cosTheta_i, float u1, float u2) {
float t_0 = logf((1.0f - u1));
float tmp;
if (t_0 <= -0.0002500000118743628f) {
tmp = 6.2831854820251465f * (u2 * sqrtf(-t_0));
} else {
tmp = (u2 + u2) * (sqrtf(u1) * ((float) M_PI));
}
return tmp;
}
function code(cosTheta_i, u1, u2) t_0 = log(Float32(Float32(1.0) - u1)) tmp = Float32(0.0) if (t_0 <= Float32(-0.0002500000118743628)) tmp = Float32(Float32(6.2831854820251465) * Float32(u2 * sqrt(Float32(-t_0)))); else tmp = Float32(Float32(u2 + u2) * Float32(sqrt(u1) * Float32(pi))); end return tmp end
function tmp_2 = code(cosTheta_i, u1, u2) t_0 = log((single(1.0) - u1)); tmp = single(0.0); if (t_0 <= single(-0.0002500000118743628)) tmp = single(6.2831854820251465) * (u2 * sqrt(-t_0)); else tmp = (u2 + u2) * (sqrt(u1) * single(pi)); end tmp_2 = tmp; end
\begin{array}{l}
t_0 := \log \left(1 - u1\right)\\
\mathbf{if}\;t\_0 \leq -0.0002500000118743628:\\
\;\;\;\;6.2831854820251465 \cdot \left(u2 \cdot \sqrt{-t\_0}\right)\\
\mathbf{else}:\\
\;\;\;\;\left(u2 + u2\right) \cdot \left(\sqrt{u1} \cdot \pi\right)\\
\end{array}
if (log.f32 (-.f32 #s(literal 1 binary32) u1)) < -2.50000012e-4Initial program 57.8%
lift-log.f32N/A
lift--.f32N/A
sub-flipN/A
lower-log1p.f32N/A
lower-neg.f3298.4%
Applied rewrites98.4%
Evaluated real constant98.4%
Taylor expanded in u2 around 0
lower-*.f32N/A
lower-*.f32N/A
lower-sqrt.f32N/A
lower-neg.f32N/A
lower-log.f32N/A
lower--.f3250.9%
Applied rewrites50.9%
if -2.50000012e-4 < (log.f32 (-.f32 #s(literal 1 binary32) u1)) Initial program 57.8%
Taylor expanded in u2 around 0
lower-*.f32N/A
lower-*.f32N/A
lower-*.f32N/A
lower-PI.f32N/A
lower-sqrt.f32N/A
lower-neg.f32N/A
lower-log.f32N/A
lower--.f3250.9%
Applied rewrites50.9%
Taylor expanded in u1 around 0
lower-*.f32N/A
lower-PI.f32N/A
lower-sqrt.f3266.1%
Applied rewrites66.1%
lift-*.f32N/A
lift-*.f32N/A
associate-*r*N/A
lower-*.f32N/A
count-2-revN/A
lower-+.f3266.1%
lift-*.f32N/A
*-commutativeN/A
lower-*.f3266.1%
Applied rewrites66.1%
(FPCore (cosTheta_i u1 u2) :precision binary32 (* (+ u2 u2) (* (sqrt u1) PI)))
float code(float cosTheta_i, float u1, float u2) {
return (u2 + u2) * (sqrtf(u1) * ((float) M_PI));
}
function code(cosTheta_i, u1, u2) return Float32(Float32(u2 + u2) * Float32(sqrt(u1) * Float32(pi))) end
function tmp = code(cosTheta_i, u1, u2) tmp = (u2 + u2) * (sqrt(u1) * single(pi)); end
\left(u2 + u2\right) \cdot \left(\sqrt{u1} \cdot \pi\right)
Initial program 57.8%
Taylor expanded in u2 around 0
lower-*.f32N/A
lower-*.f32N/A
lower-*.f32N/A
lower-PI.f32N/A
lower-sqrt.f32N/A
lower-neg.f32N/A
lower-log.f32N/A
lower--.f3250.9%
Applied rewrites50.9%
Taylor expanded in u1 around 0
lower-*.f32N/A
lower-PI.f32N/A
lower-sqrt.f3266.1%
Applied rewrites66.1%
lift-*.f32N/A
lift-*.f32N/A
associate-*r*N/A
lower-*.f32N/A
count-2-revN/A
lower-+.f3266.1%
lift-*.f32N/A
*-commutativeN/A
lower-*.f3266.1%
Applied rewrites66.1%
herbie shell --seed 2025196
(FPCore (cosTheta_i u1 u2)
:name "Beckmann Sample, near normal, slope_y"
:precision binary32
:pre (and (and (and (> cosTheta_i 0.9999) (<= cosTheta_i 1.0)) (and (<= 2.328306437e-10 u1) (<= u1 1.0))) (and (<= 2.328306437e-10 u2) (<= u2 1.0)))
(* (sqrt (- (log (- 1.0 u1)))) (sin (* (* 2.0 PI) u2))))