(if.f64 (<=.f64 (/.f64 y esp) #s(literal -100000000000000007629769841091887003294964970946560 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (-.f64 (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (-.f64 (PI.f64) (/.f64 y esp)) phi0))) (*.f64 (sin.f64 (-.f64 (+.f64 (/.f64 y esp) phi0) (PI.f64))) #s(literal 0 binary64)))) #s(literal 0 binary64))) (atan2.f64 g (-.f64 (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (-.f64 (PI.f64) (/.f64 y esp)) phi0))) (*.f64 (sin.f64 (-.f64 (+.f64 (/.f64 y esp) phi0) (PI.f64))) #s(literal 0 binary64)))) #s(literal 0 binary64)) (if.f64 (<=.f64 (/.f64 y esp) #s(literal 5000000000 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (-.f64 (*.f64 (cos.f64 (/.f64 y esp)) (cos.f64 phi0)) (*.f64 (sin.f64 (/.f64 y esp)) (sin.f64 phi0)))) #s(literal 0 binary64))) (atan2.f64 g (-.f64 (*.f64 (cos.f64 (/.f64 y esp)) (cos.f64 phi0)) (*.f64 (sin.f64 (/.f64 y esp)) (sin.f64 phi0)))) #s(literal 0 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (sin.f64 (+.f64 (-.f64 phi0 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (/.f64 y esp)))) #s(literal 0 binary64))) (atan2.f64 g (sin.f64 (-.f64 (-.f64 (/.f64 (neg.f64 y) esp) phi0) (*.f64 #s(literal -1/2 binary64) (PI.f64))))) #s(literal 0 binary64))))
(if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 phi0) (sin.f64 (+.f64 (/.f64 y esp) (PI.f64)))) (*.f64 (cos.f64 phi0) (sin.f64 (-.f64 (/.f64 #s(literal -1 binary64) (/.f64 esp y)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 0 binary64))) (atan2.f64 g (-.f64 (*.f64 (sin.f64 phi0) (sin.f64 (+.f64 (/.f64 y esp) (PI.f64)))) (*.f64 (cos.f64 phi0) (sin.f64 (-.f64 (/.f64 #s(literal -1 binary64) (/.f64 esp y)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 0 binary64))
(if.f64 (<=.f64 (/.f64 y esp) #s(literal -100000000000000007629769841091887003294964970946560 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (-.f64 (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (-.f64 (PI.f64) (/.f64 y esp)) phi0))) (*.f64 (sin.f64 (-.f64 (+.f64 (/.f64 y esp) phi0) (PI.f64))) #s(literal 0 binary64)))) #s(literal 0 binary64))) (atan2.f64 g (-.f64 (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (-.f64 (PI.f64) (/.f64 y esp)) phi0))) (*.f64 (sin.f64 (-.f64 (+.f64 (/.f64 y esp) phi0) (PI.f64))) #s(literal 0 binary64)))) #s(literal 0 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (cos.f64 (+.f64 phi0 (*.f64 (/.f64 #s(literal 1 binary64) esp) y)))) #s(literal 0 binary64))) (atan2.f64 g (cos.f64 (+.f64 phi0 (*.f64 (/.f64 #s(literal 1 binary64) esp) y)))) #s(literal 0 binary64)))
(if.f64 (<=.f64 (/.f64 y esp) #s(literal -100000000000000007629769841091887003294964970946560 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (sin.f64 (-.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 esp y)) phi0) (*.f64 (PI.f64) #s(literal -1/2 binary64))))) #s(literal 0 binary64))) (atan2.f64 g (sin.f64 (-.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 esp y)) phi0) (*.f64 (PI.f64) #s(literal -1/2 binary64))))) #s(literal 0 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (cos.f64 (+.f64 phi0 (*.f64 (/.f64 #s(literal 1 binary64) esp) y)))) #s(literal 0 binary64))) (atan2.f64 g (cos.f64 (+.f64 phi0 (*.f64 (/.f64 #s(literal 1 binary64) esp) y)))) #s(literal 0 binary64)))
(if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 phi0) (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) (/.f64 y esp)))) (*.f64 (cos.f64 phi0) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) (/.f64 y esp)))))) #s(literal 0 binary64))) (atan2.f64 g (-.f64 (*.f64 (sin.f64 phi0) (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) (/.f64 y esp)))) (*.f64 (cos.f64 phi0) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) (/.f64 y esp)))))) #s(literal 0 binary64))
(if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (+.f64 (/.f64 (neg.f64 y) esp) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi0)) (*.f64 (sin.f64 (/.f64 y esp)) (sin.f64 phi0)))) #s(literal 0 binary64))) (atan2.f64 g (-.f64 (*.f64 (sin.f64 (+.f64 (/.f64 (neg.f64 y) esp) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi0)) (*.f64 (sin.f64 (/.f64 y esp)) (sin.f64 phi0)))) #s(literal 0 binary64))
(if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (cos.f64 (+.f64 phi0 (*.f64 (/.f64 #s(literal 1 binary64) esp) y)))) #s(literal 0 binary64))) (atan2.f64 g (cos.f64 (+.f64 phi0 (*.f64 (/.f64 #s(literal 1 binary64) esp) y)))) #s(literal 0 binary64))
(if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (cos.f64 (+.f64 phi0 (/.f64 y esp)))) #s(literal 0 binary64))) (atan2.f64 g (cos.f64 (+.f64 phi0 (/.f64 y esp)))) #s(literal 0 binary64))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (/.f64 y esp) phi0)) (asin.f64 (/.f64 (fabs.f64 (+.f64 (*.f64 (sin.f64 (/.f64 y esp)) (cos.f64 phi0)) (*.f64 (sin.f64 phi0) (cos.f64 (/.f64 y esp))))) (cosh.f64 (asinh.f64 g)))))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (*.f64 (/.f64 #s(literal 1 binary64) esp) y) phi0)) (asin.f64 (/.f64 (fabs.f64 (sin.f64 (+.f64 (*.f64 (/.f64 #s(literal 1 binary64) esp) y) phi0))) (cosh.f64 (asinh.f64 g)))))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (/.f64 y esp) phi0)) (asin.f64 (/.f64 (fabs.f64 (sin.f64 (+.f64 (/.f64 y esp) phi0))) (cosh.f64 (asinh.f64 g)))))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (*.f64 (/.f64 #s(literal 1 binary64) esp) y) phi0)) (asin.f64 (/.f64 (fabs.f64 (sin.f64 (+.f64 (*.f64 (/.f64 #s(literal 1 binary64) esp) y) phi0))) (sqrt.f64 (-.f64 (*.f64 g g) #s(literal -1 binary64))))))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (/.f64 y esp) phi0)) (asin.f64 (/.f64 (fabs.f64 (sin.f64 (+.f64 (/.f64 y esp) phi0))) (sqrt.f64 (-.f64 (*.f64 g g) #s(literal -1 binary64))))))
(sinh.f64 (/.f64 x esp))
(/.f64 (*.f64 (cos.f64 phi) (cos.f64 lam)) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/4 binary64) (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal -1 binary64)))) (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal -1 binary64)) #s(literal -1/4 binary64)) (cos.f64 (+.f64 lam lam))))))
(*.f64 (/.f64 (cos.f64 lam) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal -1 binary64)) (+.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/4 binary64)))))) (cos.f64 phi))
(*.f64 (cos.f64 lam) (/.f64 (cos.f64 phi) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal -1 binary64)) (+.f64 (*.f64 #s(literal -1/4 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/4 binary64)))))))
(*.f64 (neg.f64 ml0) (log.f64 (/.f64 (-.f64 (*.f64 (-.f64 b #s(literal 2 binary64)) b) #s(literal -1 binary64)) (fabs.f64 (-.f64 #s(literal 1 binary64) (*.f64 b b))))))
(*.f64 (neg.f64 ml0) (log.f64 (/.f64 (-.f64 b #s(literal 1 binary64)) (-.f64 #s(literal -1 binary64) b))))
(*.f64 ml0 (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) b) (-.f64 #s(literal 1 binary64) b))))
(*.f64 (cos.f64 phi) (sin.f64 lam))
(pow.f64 one_es #s(literal 3 binary64))
(*.f64 one_es (*.f64 one_es one_es))
(-.f64 (*.f64 (-.f64 rone_es (*.f64 (*.f64 (*.f64 ca es) rone_es) ca)) (-.f64 rone_es (*.f64 (*.f64 (*.f64 ca es) rone_es) ca))) #s(literal 1 binary64))
(-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (*.f64 ca ca))) rone_es) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (*.f64 ca ca))) rone_es)) #s(literal 1 binary64))
(if.f64 (<=.f64 rone_es #s(literal 20000000000000000038313501714693374724319102545303840223056070291987586484079775119224722902163606470656 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) rone_es) rone_es) (*.f64 sa es)) (*.f64 (*.f64 es (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) rone_es)) (*.f64 rone_es sa)))
(if.f64 (<=.f64 es #s(literal -19999999999999999226601456666277228317312027608945821444520376213797755867253464449639851093277241451755357223170329126057960799481106437684193392085572710063277407375056830116569569494225707696575710713873448865384990225989632 binary64)) (*.f64 (*.f64 (*.f64 sa (*.f64 rone_es rone_es)) (-.f64 #s(literal 2 binary64) es)) (*.f64 sa es)) (*.f64 (*.f64 es (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) rone_es)) (*.f64 rone_es sa)))
(*.f64 (*.f64 es (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) rone_es)) (*.f64 rone_es sa))
(*.f64 (*.f64 es (*.f64 (*.f64 rone_es (-.f64 #s(literal 2 binary64) es)) sa)) (*.f64 rone_es sa))
(if.f64 (<=.f64 rone_es #s(literal 1999999999999999996434887128370482831977857737518825000873086679459880803811809298994231532284537120019554351933503330752464420864 binary64)) (*.f64 sa (*.f64 es (*.f64 (*.f64 sa (*.f64 rone_es rone_es)) (-.f64 #s(literal 2 binary64) es)))) (*.f64 sa (*.f64 (*.f64 (*.f64 rone_es (-.f64 #s(literal 2 binary64) es)) es) (*.f64 rone_es sa))))
(if.f64 (<=.f64 rone_es #s(literal 12500000000000000089702894261377103801007685148645038975839096518281332710061042516033325873072023666298321726662095267032510191778683653244091706709639168 binary64)) (*.f64 sa (*.f64 es (*.f64 (*.f64 sa (*.f64 rone_es rone_es)) (-.f64 #s(literal 2 binary64) es)))) (*.f64 sa (*.f64 sa (*.f64 (*.f64 es rone_es) (*.f64 rone_es (-.f64 #s(literal 2 binary64) es))))))
(*.f64 sa (*.f64 es (*.f64 (*.f64 sa (*.f64 rone_es rone_es)) (-.f64 #s(literal 2 binary64) es))))
(*.f64 (/.f64 n0 (sin.f64 #s(literal 27401669256311/20000000000000 binary64))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal -27401669256311/20000000000000 binary64))) k0))
(*.f64 (*.f64 (/.f64 k0 (sin.f64 #s(literal 27401669256311/20000000000000 binary64))) n0) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal -27401669256311/20000000000000 binary64))))
(*.f64 (/.f64 k0 (tan.f64 (-.f64 (*.f64 #s(literal 3 binary64) (PI.f64)) (-.f64 #s(literal -27401669256311/20000000000000 binary64) (PI.f64))))) n0)
(*.f64 (*.f64 n0 k0) (tan.f64 (-.f64 #s(literal -27401669256311/20000000000000 binary64) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(*.f64 (/.f64 k0 (tan.f64 #s(literal 27401669256311/20000000000000 binary64))) n0)
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) es)) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi0 phi0)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64)))
(if.f64 (<=.f64 alpha #s(literal 6456360425798343/2305843009213693952 binary64)) (/.f64 (*.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) u0) (PI.f64)) #s(literal -1/4 binary64))) g) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 u0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64))) (sin.f64 (*.f64 u0 #s(literal 1/2 binary64))))) (pow.f64 (/.f64 (sin.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))))) alpha))) (if.f64 (<=.f64 alpha #s(literal 4100000000000000067724635881684132836750046052616762072010034311454885533067306854226414342764903334573112981058980167469236224 binary64)) (/.f64 (*.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64))))) g) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) alpha)) (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (+.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64))))) (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64)))))) alpha))))
(if.f64 (<=.f64 alpha #s(literal 4100000000000000067724635881684132836750046052616762072010034311454885533067306854226414342764903334573112981058980167469236224 binary64)) (/.f64 (*.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64))))) g) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) alpha)) (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (+.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64))))) (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64)))))) alpha)))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -3602879701896397/72057594037927936 binary64)) (/.f64 (*.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64))))) g) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) alpha)) (if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 4494592428115755/4503599627370496 binary64)) (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (+.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (sin.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (sin.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) alpha)) (/.f64 #s(literal 1 binary64) (*.f64 (/.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) alpha) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))) g)) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))))))))
(if.f64 (<=.f64 phi0 #s(literal 7328476136572799/311850048364799970571308236412006025948039259443040240859773006630814358104525635278899682108224328295209757319405077381870693435686499009490495593482004909425000886398607136955865268975681716747289586991334988123957939133612635998263883635695006899610487641699336881506618514879741251551232 binary64)) (/.f64 (*.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64))))) g) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) alpha)) (if.f64 (<=.f64 phi0 #s(literal 215500602038799/1267650600228229401496703205376 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) alpha) (/.f64 (cos.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))) (cos.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64)))))) g)) (/.f64 (*.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64))))) g) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) alpha))))
(if.f64 (<=.f64 phi0 #s(literal 7328476136572799/311850048364799970571308236412006025948039259443040240859773006630814358104525635278899682108224328295209757319405077381870693435686499009490495593482004909425000886398607136955865268975681716747289586991334988123957939133612635998263883635695006899610487641699336881506618514879741251551232 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) alpha) (*.f64 g (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64))))))) (if.f64 (<=.f64 phi0 #s(literal 215500602038799/1267650600228229401496703205376 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) alpha) (/.f64 (cos.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))) (cos.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64)))))) g)) (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) alpha))))
(if.f64 (<=.f64 phi0 #s(literal 7328476136572799/311850048364799970571308236412006025948039259443040240859773006630814358104525635278899682108224328295209757319405077381870693435686499009490495593482004909425000886398607136955865268975681716747289586991334988123957939133612635998263883635695006899610487641699336881506618514879741251551232 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) alpha) (*.f64 g (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64))))))) (if.f64 (<=.f64 phi0 #s(literal 215500602038799/1267650600228229401496703205376 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) alpha) (/.f64 (cos.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))) (cos.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64)))))) g)) (*.f64 g (*.f64 (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) (neg.f64 alpha))))))
(if.f64 (<=.f64 phi0 #s(literal 7328476136572799/311850048364799970571308236412006025948039259443040240859773006630814358104525635278899682108224328295209757319405077381870693435686499009490495593482004909425000886398607136955865268975681716747289586991334988123957939133612635998263883635695006899610487641699336881506618514879741251551232 binary64)) (*.f64 g (*.f64 (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) (neg.f64 alpha)))) (if.f64 (<=.f64 phi0 #s(literal 215500602038799/1267650600228229401496703205376 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) alpha) (/.f64 (cos.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))) (cos.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64)))))) g)) (*.f64 g (*.f64 (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) (neg.f64 alpha))))))
(if.f64 (<=.f64 alpha #s(literal 100000000000000003889357755108838843130737249295202013334302382007691294289384896763079965607877701387326460311941213291353170611409437561654018367221268940354434586262616943544566455807655946219322240663552 binary64)) (/.f64 (*.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64))))) g) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) alpha)) (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64)))))) alpha)))
(if.f64 (<=.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (/.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) alpha) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))) g)) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64)))))) (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) phi0) (PI.f64)) #s(literal -1/4 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0)))) alpha)))
(if.f64 (<=.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha) #s(literal 1 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) alpha) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) #s(literal -1 binary64))) g)) (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) phi0) (PI.f64)) #s(literal -1/4 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0)))) alpha)))
(if.f64 (<=.f64 (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha)) #s(literal +inf.0 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) alpha) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) #s(literal -1 binary64))) g)) (*.f64 (pow.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi0) (*.f64 #s(literal 13/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/2 binary64) phi0) (PI.f64))))) (neg.f64 alpha)) (*.f64 g (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 (PI.f64) u0) u0))))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 4494592428115755/4503599627370496 binary64)) (*.f64 (pow.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 15/4 binary64)) (*.f64 #s(literal -1/2 binary64) phi0)))) (neg.f64 alpha)) (*.f64 g (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 (PI.f64) u0) u0))))) (/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) alpha) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) #s(literal -1 binary64))) g)))
(/.f64 #s(literal 1 binary64) (/.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) alpha) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) #s(literal -1 binary64))) g))
(/.f64 (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))) (/.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) alpha) g))
(*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/2 binary64) phi0) (PI.f64)))) (neg.f64 alpha)) (*.f64 g (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64))))))
(*.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) (neg.f64 alpha)) (*.f64 g (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64))))))
(sqrt.f64 (/.f64 (-.f64 (-.f64 es #s(literal 1 binary64)) (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es)) (-.f64 es #s(literal 1 binary64))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 es (pow.f64 (cos.f64 phi0) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) es))))
(if.f64 (<=.f64 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam))))))))) #s(literal -6325070415853457/12650140831706913647030959169932331690597290610258882397306334876714396222999709180747523981339820280949192366519800744461863046086612092304188337496296156870094839017285397585279181733880826021327485479904546566785125467714043293663631459728072472271300628532022423097020838413451906408261645469290375391456731733818343424 binary64)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)))))))) (if.f64 (<=.f64 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam))))))))) #s(literal 0 binary64)) (*.f64 sa (*.f64 (*.f64 (cos.f64 lam) p22) (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))))))))) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam))))))))))))
(if.f64 (<=.f64 lam #s(literal 41999999999999995768604662431744 binary64)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))))))) (*.f64 (*.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) (*.f64 (cos.f64 lam) sa)) (/.f64 p22 (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)))))))))
(if.f64 (<=.f64 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam))))))))) #s(literal 0 binary64)) (*.f64 sa (*.f64 (*.f64 (cos.f64 lam) p22) (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))))))))) (*.f64 p22 (*.f64 (*.f64 sa (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 (neg.f64 q) (sin.f64 lam)) (sin.f64 lam)) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) w) #s(literal 1 binary64)))))) (cos.f64 lam))))
(if.f64 (<=.f64 (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))))))) #s(literal 0 binary64)) (*.f64 (*.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) (*.f64 (cos.f64 lam) sa)) (/.f64 p22 (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)))))))) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) w) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) q) #s(literal 1 binary64)))))))))
(*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (*.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) w) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 q (sin.f64 lam)) (sin.f64 lam)) #s(literal -1 binary64)))))))))
(*.f64 (*.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) (*.f64 (cos.f64 lam) sa)) (/.f64 p22 (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))))))))
(*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) w) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) q) #s(literal 1 binary64))))))))
(*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (/.f64 (-.f64 (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)))))))
(*.f64 (*.f64 (*.f64 sa p22) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64)))))) (cos.f64 lam))
(*.f64 (*.f64 (*.f64 sa p22) (cos.f64 lam)) (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) q) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) w) #s(literal 1 binary64))))))
(*.f64 p22 (*.f64 (*.f64 sa (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) q) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) w) #s(literal 1 binary64)))))) (cos.f64 lam)))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (-.f64 (*.f64 (/.f64 (-.f64 (*.f64 (*.f64 w (*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 #s(literal 0 binary64) (+.f64 lam lam)) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 #s(literal 0 binary64) (+.f64 lam lam)) #s(literal 2 binary64)))))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 #s(literal 0 binary64) (+.f64 lam lam)) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 #s(literal 0 binary64) (+.f64 lam lam)) #s(literal 2 binary64)))))) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 #s(literal 0 binary64) (+.f64 lam lam)) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 #s(literal 0 binary64) (+.f64 lam lam)) #s(literal 2 binary64)))))) #s(literal 1/2 binary64))))) (*.f64 p22 ca)))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (-.f64 (*.f64 (/.f64 (-.f64 (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam)) #s(literal -1 binary64)) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam)))) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam))))) (*.f64 p22 ca)))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam))))))
(if.f64 (<=.f64 w #s(literal -4999999999999999817948147482624 binary64)) (*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 p22 ca))) (if.f64 (<=.f64 w #s(literal 2350000000000000036564627904247081107030273282764494368418960864012459385737175902672715666300361502039084760039424 binary64)) (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)))))) (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam))))) (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))))))))))
(if.f64 (<=.f64 w #s(literal -4999999999999999817948147482624 binary64)) (*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 p22 ca))) (if.f64 (<=.f64 w #s(literal 5000000000000000111755861797384299667549204650486879780239418214450132430121171797988101755921550297505076285418812476851459272474624 binary64)) (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)))))) (*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (pow.f64 (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) (*.f64 #s(literal 1/2 binary64) q)) #s(literal 1 binary64)) #s(literal 2 binary64))) (*.f64 p22 ca)))))
(if.f64 (<=.f64 w #s(literal -4999999999999999817948147482624 binary64)) (*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 p22 ca))) (if.f64 (<=.f64 w #s(literal 5000000000000000111755861797384299667549204650486879780239418214450132430121171797988101755921550297505076285418812476851459272474624 binary64)) (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)))))) (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam))))))))
(if.f64 (<=.f64 q #s(literal 27500000000000000907802244204418231828801502636971396938280344620772069864858002627851918580202423843582911275309524202477591716889908625536282225301680894427735316687593930752 binary64)) (*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal 2 binary64))) (*.f64 p22 ca))) (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))))) (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam)))))))))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam))) (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))) (*.f64 p22 ca)))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 p22 ca)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))))) (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (neg.f64 (*.f64 (neg.f64 q) (sin.f64 lam))) (sin.f64 lam))))))))
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)))) (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))) (*.f64 ca p22)))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 (sin.f64 lam) q) (neg.f64 (sin.f64 lam))) #s(literal 1 binary64)))))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))))))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)))) (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))) (*.f64 p22 ca)))
(/.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))))))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (/.f64 (sqrt.f64 (fabs.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) q)) #s(literal 1 binary64)))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))))))
(*.f64 (-.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (pow.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) q)) #s(literal 1 binary64)) #s(literal 2 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))))))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))))))
(*.f64 mult (*.f64 (/.f64 (+.f64 xj h) (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj)))) s))
(*.f64 mult (*.f64 (/.f64 s (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj)))) (+.f64 xj h)))
(*.f64 mult (/.f64 (-.f64 (*.f64 h xj) (*.f64 s s)) (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))
(*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (*.f64 e #s(literal 1/2 binary64))) (/.f64 (cos.f64 phi) (-.f64 (sin.f64 phi) #s(literal -1 binary64))))
(*.f64 (cos.f64 phi) (/.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (*.f64 e #s(literal 1/2 binary64))) (-.f64 (sin.f64 phi) #s(literal -1 binary64))))
(*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (*.f64 e #s(literal 1/2 binary64))) (tan.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64))))
(+.f64 #s(literal 9827991/390625000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Yr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal 4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 #s(literal 4668270147/10000000000000000 binary64) Xr)) (-.f64 (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) Xr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr))) (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)))) (-.f64 (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)))) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 Xr Xr) Xr) #s(literal -4165541759/500000000000000000000000000000000 binary64)) Xr) (-.f64 (*.f64 (*.f64 #s(literal -3689471323/250000000000000000000000000000000 binary64) Xr) (*.f64 (*.f64 Yr (+.f64 Xr Yr)) (-.f64 Xr Yr))) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 (*.f64 #s(literal 6 binary64) Xr) Xr)) #s(literal -4165541759/500000000000000000000000000000000 binary64)) Yr) Yr)))))))
(+.f64 #s(literal 9827991/390625000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Yr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal 4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 #s(literal 4668270147/10000000000000000 binary64) Xr)) (-.f64 (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) Xr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr))) (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)))) (-.f64 (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)))) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 Xr Xr) Xr) #s(literal -4165541759/500000000000000000000000000000000 binary64)) Xr) (-.f64 (*.f64 (*.f64 #s(literal -3689471323/250000000000000000000000000000000 binary64) Xr) (*.f64 (*.f64 Yr (+.f64 Xr Yr)) (-.f64 Xr Yr))) (*.f64 (*.f64 #s(literal -4165541759/500000000000000000000000000000000 binary64) (*.f64 Yr Yr)) (-.f64 (*.f64 Yr Yr) (*.f64 (*.f64 #s(literal 6 binary64) Xr) Xr)))))))))
(+.f64 #s(literal 9827991/390625000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Yr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal 4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 #s(literal 4668270147/10000000000000000 binary64) Xr)) (-.f64 (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) Xr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr))) (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)))) (-.f64 (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)))) (-.f64 (*.f64 (*.f64 (*.f64 Xr Xr) Xr) (*.f64 #s(literal -4165541759/500000000000000000000000000000000 binary64) Xr)) (-.f64 (*.f64 (*.f64 #s(literal -3689471323/250000000000000000000000000000000 binary64) Xr) (*.f64 (*.f64 Yr (+.f64 Xr Yr)) (-.f64 Xr Yr))) (*.f64 (*.f64 #s(literal -4165541759/500000000000000000000000000000000 binary64) (*.f64 Yr Yr)) (-.f64 (*.f64 Yr Yr) (*.f64 (*.f64 #s(literal 6 binary64) Xr) Xr)))))))))
(+.f64 #s(literal 9827991/390625000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Yr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal 4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 #s(literal 4668270147/10000000000000000 binary64) Xr)) (-.f64 (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) Xr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr))) (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)))) (-.f64 (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 (*.f64 #s(literal 6 binary64) Xr) Xr)) Yr) Yr) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr)) #s(literal -4165541759/500000000000000000000000000000000 binary64)) (*.f64 (*.f64 #s(literal 3689471323/250000000000000000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 (-.f64 Xr Yr) (+.f64 Xr Yr))))))))
(+.f64 #s(literal 9827991/390625000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Yr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal 4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 #s(literal 4668270147/10000000000000000 binary64) Xr)) (-.f64 (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) Xr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr))) (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)))) (-.f64 (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 Yr Yr) (+.f64 (*.f64 #s(literal -6 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr)) #s(literal -4165541759/500000000000000000000000000000000 binary64)) (*.f64 (*.f64 #s(literal 3689471323/250000000000000000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 (-.f64 Xr Yr) (+.f64 Xr Yr))))))))
(+.f64 #s(literal 9827991/390625000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Yr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal 4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 #s(literal 4668270147/10000000000000000 binary64) Xr)) (-.f64 (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) Xr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr))) (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)))) (-.f64 (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 Yr Yr) (+.f64 (*.f64 #s(literal -6 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (*.f64 (*.f64 Xr Xr) (*.f64 Xr Xr))) #s(literal -4165541759/500000000000000000000000000000000 binary64)) (*.f64 (*.f64 #s(literal 3689471323/250000000000000000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 (-.f64 Xr Yr) (+.f64 Xr Yr))))))))
(+.f64 #s(literal 2946529277/100000000000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Xr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal -304747143/100000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 Yr #s(literal -4668270147/10000000000000000 binary64))) (-.f64 (*.f64 (*.f64 Xr #s(literal -212097503/125000000000000000000000000 binary64)) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)))) (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Xr Yr)))) (-.f64 (*.f64 (*.f64 Yr #s(literal 881662847/200000000000000000000000000 binary64)) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (-.f64 (+.f64 (*.f64 (*.f64 (*.f64 (*.f64 Xr Xr) Xr) #s(literal -3689471323/1000000000000000000000000000000000 binary64)) Xr) (*.f64 (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 (*.f64 #s(literal 6 binary64) Xr) Xr)) (*.f64 #s(literal -3689471323/1000000000000000000000000000000000 binary64) Yr)) Yr)) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Yr Xr) (+.f64 Yr Xr))))))))
(+.f64 #s(literal 2946529277/100000000000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Xr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal -304747143/100000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 Yr #s(literal -4668270147/10000000000000000 binary64))) (-.f64 (*.f64 (*.f64 Xr #s(literal -212097503/125000000000000000000000000 binary64)) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)))) (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Xr Yr)))) (-.f64 (*.f64 (*.f64 Yr #s(literal 881662847/200000000000000000000000000 binary64)) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (-.f64 (+.f64 (*.f64 (*.f64 (*.f64 (*.f64 Xr Xr) Xr) #s(literal -3689471323/1000000000000000000000000000000000 binary64)) Xr) (*.f64 (*.f64 (*.f64 #s(literal -3689471323/1000000000000000000000000000000000 binary64) Yr) Yr) (-.f64 (*.f64 Yr Yr) (*.f64 (*.f64 #s(literal 6 binary64) Xr) Xr)))) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Yr Xr) (+.f64 Yr Xr))))))))
(+.f64 #s(literal 2946529277/100000000000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Xr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal -304747143/100000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 Yr #s(literal -4668270147/10000000000000000 binary64))) (-.f64 (*.f64 (*.f64 Xr #s(literal -212097503/125000000000000000000000000 binary64)) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)))) (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Xr Yr)))) (-.f64 (*.f64 (*.f64 Yr #s(literal 881662847/200000000000000000000000000 binary64)) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (-.f64 (+.f64 (*.f64 (*.f64 (*.f64 Xr Xr) (*.f64 #s(literal -3689471323/1000000000000000000000000000000000 binary64) Xr)) Xr) (*.f64 (*.f64 #s(literal -3689471323/1000000000000000000000000000000000 binary64) (*.f64 Yr Yr)) (-.f64 (*.f64 Yr Yr) (*.f64 (*.f64 #s(literal 6 binary64) Xr) Xr)))) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Yr Xr) (+.f64 Yr Xr))))))))
(+.f64 #s(literal 2946529277/100000000000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Xr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal -304747143/100000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 Yr #s(literal -4668270147/10000000000000000 binary64))) (-.f64 (*.f64 (*.f64 Xr #s(literal -212097503/125000000000000000000000000 binary64)) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)))) (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Xr Yr)))) (-.f64 (*.f64 (*.f64 Yr #s(literal 881662847/200000000000000000000000000 binary64)) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (-.f64 (+.f64 (*.f64 (*.f64 (*.f64 Xr Xr) Xr) (*.f64 #s(literal -3689471323/1000000000000000000000000000000000 binary64) Xr)) (*.f64 (*.f64 #s(literal -3689471323/1000000000000000000000000000000000 binary64) (*.f64 Yr Yr)) (-.f64 (*.f64 Yr Yr) (*.f64 (*.f64 #s(literal 6 binary64) Xr) Xr)))) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Yr Xr) (+.f64 Yr Xr))))))))
(+.f64 #s(literal 2946529277/100000000000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Xr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal -304747143/100000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 Yr #s(literal -4668270147/10000000000000000 binary64))) (-.f64 (*.f64 (*.f64 Xr #s(literal -212097503/125000000000000000000000000 binary64)) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)))) (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Xr Yr)))) (-.f64 (*.f64 (*.f64 Yr #s(literal 881662847/200000000000000000000000000 binary64)) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (-.f64 (*.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 (*.f64 #s(literal 6 binary64) Xr) Xr)) Yr) Yr) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr)) #s(literal -3689471323/1000000000000000000000000000000000 binary64)) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Yr Xr) (+.f64 Yr Xr))))))))
(+.f64 #s(literal 2946529277/100000000000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Xr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal -304747143/100000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 Yr #s(literal -4668270147/10000000000000000 binary64))) (-.f64 (*.f64 (*.f64 Xr #s(literal -212097503/125000000000000000000000000 binary64)) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)))) (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Xr Yr)))) (-.f64 (*.f64 (*.f64 Yr #s(literal 881662847/200000000000000000000000000 binary64)) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (-.f64 (*.f64 (+.f64 (*.f64 (*.f64 Yr Yr) (+.f64 (*.f64 #s(literal -6 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr)) #s(literal -3689471323/1000000000000000000000000000000000 binary64)) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Yr Xr) (+.f64 Yr Xr))))))))
(+.f64 #s(literal 2946529277/100000000000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Xr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal -304747143/100000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 Yr #s(literal -4668270147/10000000000000000 binary64))) (-.f64 (*.f64 (*.f64 Xr #s(literal -212097503/125000000000000000000000000 binary64)) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)))) (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Xr Yr)))) (-.f64 (*.f64 (*.f64 Yr #s(literal 881662847/200000000000000000000000000 binary64)) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (-.f64 (*.f64 (+.f64 (*.f64 (*.f64 Yr Yr) (+.f64 (*.f64 #s(literal -6 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (*.f64 (*.f64 Xr Xr) (*.f64 Xr Xr))) #s(literal -3689471323/1000000000000000000000000000000000 binary64)) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Yr Xr) (+.f64 Yr Xr))))))))
(asin.f64 (+.f64 (*.f64 (cos.f64 ad) (sin.f64 u)) (*.f64 (*.f64 (sin.f64 ad) (cos.f64 deltav)) (cos.f64 u))))
(asin.f64 (+.f64 (*.f64 (cos.f64 ad) (sin.f64 u)) (*.f64 (sin.f64 ad) (*.f64 (cos.f64 u) (cos.f64 deltav)))))
(asin.f64 (-.f64 (*.f64 (sin.f64 s) (cos.f64 ad)) (*.f64 (*.f64 (cos.f64 d) (sin.f64 ad)) (cos.f64 s))))
(asin.f64 (-.f64 (*.f64 (sin.f64 s) (cos.f64 ad)) (*.f64 (*.f64 (cos.f64 d) (cos.f64 s)) (sin.f64 ad))))
(+.f64 (*.f64 (atan.f64 (*.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) (pow.f64 (/.f64 rho0 rho) (/.f64 #s(literal 1 binary64) n)))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(/.f64 Esc (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) Up) (-.f64 #s(literal 1 binary64) Up))))
(*.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 #s(literal 1 binary64) Up) (-.f64 Up #s(literal -1 binary64))))) Esc)
(+.f64 (*.f64 (atan.f64 (exp.f64 (/.f64 y kR))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(asin.f64 (+.f64 (*.f64 cosp0 (sin.f64 phipp)) (*.f64 (*.f64 (cos.f64 phipp) sinp0) (cos.f64 lampp))))
(asin.f64 (+.f64 (*.f64 cosp0 (sin.f64 phipp)) (*.f64 sinp0 (*.f64 (cos.f64 phipp) (cos.f64 lampp)))))
(+.f64 (*.f64 (atan.f64 fac) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(if.f64 (<=.f64 (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (*.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u) (/.f64 (PI.f64) #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) alpha)) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 fi))) (-.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 fi)))) (*.f64 #s(literal 1/2 binary64) evar))))) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 0 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) alpha))) (pow.f64 k (/.f64 #s(literal 1 binary64) alpha)))) (/.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 fi) evar))) (*.f64 evar #s(literal 1/2 binary64)))) (pow.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 u u) (PI.f64)))) (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) u)) (sin.f64 (*.f64 u #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 u u) (PI.f64))))))))) (/.f64 #s(literal 1 binary64) alpha)))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -5764607523034235/288230376151711744 binary64)) (*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (-.f64 (*.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 fi) evar))) (*.f64 evar #s(literal 1/2 binary64)))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 u #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) u)))) (cos.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64)))) (/.f64 #s(literal 1 binary64) alpha)))) #s(literal 4 binary64)) (PI.f64))))) (*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 fi) evar))) (*.f64 evar #s(literal 1/2 binary64)))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 u #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) u)))) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 u u) (PI.f64)))))) (/.f64 #s(literal 1 binary64) alpha)))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 5764607523034235/1152921504606846976 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 fi) evar))) (*.f64 evar #s(literal 1/2 binary64)))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 u #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) u)))) (cos.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64)))) (/.f64 #s(literal 1 binary64) alpha)))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 fi) evar))) (*.f64 evar #s(literal 1/2 binary64)))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 u #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) u)))) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 u u) (PI.f64)))))) (/.f64 #s(literal 1 binary64) alpha)))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)))
(*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 fi) evar))) (*.f64 evar #s(literal 1/2 binary64)))) (pow.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 u u) (PI.f64)))) (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) u)) (sin.f64 (*.f64 u #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal -1/4 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))) (/.f64 #s(literal 1 binary64) alpha)))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))
(*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 fi) evar))) (*.f64 evar #s(literal 1/2 binary64)))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 u #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) u)))) (cos.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64)))) (/.f64 #s(literal 1 binary64) alpha)))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))
(if.f64 (<=.f64 (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (*.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u) (/.f64 (PI.f64) #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) alpha)) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 fi))) (-.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 fi)))) (*.f64 #s(literal 1/2 binary64) evar))))) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 2028240960365167/5070602400912917605986812821504 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) alpha))) (pow.f64 k (/.f64 #s(literal 1 binary64) alpha)))) (/.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (*.f64 (pow.f64 (tan.f64 (+.f64 (+.f64 (*.f64 u #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (PI.f64))) (PI.f64))) (/.f64 #s(literal 1 binary64) alpha)) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 fi))) (-.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 fi)))) (*.f64 #s(literal 1/2 binary64) evar))))) (/.f64 (PI.f64) #s(literal 4 binary64)))))
(*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) alpha))) (pow.f64 k (/.f64 #s(literal 1 binary64) alpha)))) (/.f64 (PI.f64) #s(literal 4 binary64))))
(*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 fi) evar))) (*.f64 evar #s(literal 1/2 binary64)))) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) alpha)))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))
(if.f64 (<=.f64 spp #s(literal 35000000000000000000 binary64)) (asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 (*.f64 es spp) spp))))) (asin.f64 (/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) spp) (/.f64 (sqrt.f64 (fabs.f64 (+.f64 (/.f64 (*.f64 one_es one_es) spp) (*.f64 es spp)))) (sqrt.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) spp))))))))
(if.f64 (<=.f64 spp #s(literal 7200000000000000000000 binary64)) (asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 (*.f64 es spp) spp))))) (asin.f64 (/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) spp) (*.f64 (sqrt.f64 (fabs.f64 (+.f64 (/.f64 (*.f64 one_es one_es) spp) (*.f64 es spp)))) (sqrt.f64 (fabs.f64 spp)))))))
(asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 (*.f64 es spp) spp)))))
(asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 es (*.f64 spp spp))))))
(atan.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 lamt) (tan.f64 lamdp)) (*.f64 (sin.f64 lamt) ca)) one_es) (/.f64 #s(literal 1 binary64) sa)))
(atan.f64 (/.f64 (/.f64 (-.f64 (*.f64 (cos.f64 lamt) (tan.f64 lamdp)) (*.f64 (sin.f64 lamt) ca)) one_es) sa))
(atan.f64 (/.f64 (-.f64 (*.f64 (tan.f64 lamdp) (cos.f64 lamt)) (*.f64 ca (sin.f64 lamt))) (*.f64 one_es sa)))
(atan.f64 (/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 rone_es (*.f64 spp spp))) ca) (tan.f64 lamdp)) (*.f64 (*.f64 spp (sqrt.f64 (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 (sin.f64 lamdp) q) (neg.f64 (sin.f64 lamdp))) #s(literal 1 binary64)) (-.f64 (*.f64 spp spp) #s(literal 1 binary64))) (*.f64 u (*.f64 spp spp))))) (/.f64 sa (cos.f64 lamdp)))) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal -1 binary64) u) spp) spp) #s(literal -1 binary64))))
(atan.f64 (/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 spp spp) rone_es)) (*.f64 (tan.f64 lamdp) ca)) (/.f64 (*.f64 spp (*.f64 sa (sqrt.f64 (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lamdp) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (*.f64 spp spp))) (*.f64 (*.f64 spp spp) u))))) (cos.f64 lamdp))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 spp spp) (+.f64 #s(literal 1 binary64) u)))))
(atan.f64 (/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 spp spp) rone_es)) (*.f64 (tan.f64 lamdp) ca)) (/.f64 (*.f64 spp (*.f64 sa (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lamdp lamdp)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) q) #s(literal 1 binary64)) (-.f64 (*.f64 spp spp) #s(literal 1 binary64))) (*.f64 u (*.f64 spp spp))))))) (cos.f64 lamdp))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 spp spp) (+.f64 #s(literal 1 binary64) u)))))
(atan.f64 (/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 rone_es (*.f64 spp spp))) ca) (tan.f64 lamdp)) (*.f64 (sqrt.f64 (-.f64 (*.f64 (-.f64 (*.f64 spp spp) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lamdp lamdp)) #s(literal 1 binary64))) #s(literal 1 binary64))) (*.f64 u (*.f64 spp spp)))) (*.f64 sa (/.f64 spp (cos.f64 lamdp))))) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal -1 binary64) u) spp) spp) #s(literal -1 binary64))))
(asin.f64 (/.f64 (sin.f64 lampp) (/.f64 (cos.f64 phip) (cos.f64 phipp))))
(asin.f64 (*.f64 (/.f64 (sin.f64 lampp) (cos.f64 phip)) (cos.f64 phipp)))
(asin.f64 (*.f64 (/.f64 (cos.f64 phipp) (cos.f64 phip)) (sin.f64 lampp)))
(if.f64 (<=.f64 (/.f64 s xj) #s(literal -4999999999999999797831017376714894119127812233696870733560457558998243835015834942700401512775872587353423939115559831572611431741498074611166071691150501229607379410134558461510763529142729843207341692956811227775656913210014077504201792814563184923802875085144633272926482892941009176900625498112 binary64)) (-.f64 (/.f64 (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y)) (*.f64 b xj)) (+.f64 (/.f64 (+.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) b) (/.f64 (/.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s) b) xj))) (if.f64 (<=.f64 (/.f64 s xj) #s(literal 49999999999999995479700522383768796750828459370288199293446396232636225513976650518267070869242994014784776519255333159340432639921443621581114593421638826653196203084930967019206774335332538842228389918338449408 binary64)) (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 (*.f64 (/.f64 s xj) xy_y) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) (*.f64 (/.f64 s xj) (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lamdp lamdp)))) (*.f64 (sin.f64 lamdp) #s(literal 4 binary64)))))))) b) (/.f64 (-.f64 (*.f64 (-.f64 (-.f64 (+.f64 (/.f64 (*.f64 s xy_y) xj) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) xj) (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s)) (*.f64 b xj))))
(if.f64 (<=.f64 (/.f64 s xj) #s(literal -499999999999999964386920260183378768438369660405788306115890740350735047677263747003873170720569138221237194884773781762716146558250561283589357179690611388552427230372902339689822248521604133691815823583688930974272944987404480934971785538387714054461744742400 binary64)) (-.f64 (/.f64 (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y)) (*.f64 b xj)) (+.f64 (/.f64 (+.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) b) (/.f64 (/.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s) b) xj))) (if.f64 (<=.f64 (/.f64 s xj) #s(literal 49999999999999995479700522383768796750828459370288199293446396232636225513976650518267070869242994014784776519255333159340432639921443621581114593421638826653196203084930967019206774335332538842228389918338449408 binary64)) (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 xy_x (*.f64 xy_y (*.f64 (/.f64 #s(literal 1 binary64) xj) s))) (*.f64 a2 (sin.f64 (*.f64 #s(literal 2 binary64) lamdp)))) (*.f64 a4 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) xj) s) (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64))))))) b) (/.f64 (-.f64 (*.f64 (-.f64 (-.f64 (+.f64 (/.f64 (*.f64 s xy_y) xj) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) xj) (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s)) (*.f64 b xj))))
(if.f64 (<=.f64 (/.f64 s xj) #s(literal -4999999999999999797831017376714894119127812233696870733560457558998243835015834942700401512775872587353423939115559831572611431741498074611166071691150501229607379410134558461510763529142729843207341692956811227775656913210014077504201792814563184923802875085144633272926482892941009176900625498112 binary64)) (-.f64 (/.f64 (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y)) (*.f64 b xj)) (+.f64 (/.f64 (+.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) b) (/.f64 (/.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s) b) xj))) (if.f64 (<=.f64 (/.f64 s xj) #s(literal 49999999999999995479700522383768796750828459370288199293446396232636225513976650518267070869242994014784776519255333159340432639921443621581114593421638826653196203084930967019206774335332538842228389918338449408 binary64)) (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 xy_x (*.f64 xy_y (/.f64 s xj))) (*.f64 a2 (sin.f64 (*.f64 #s(literal 2 binary64) lamdp)))) (*.f64 a4 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)))) (*.f64 (/.f64 s xj) (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64))))))) b) (/.f64 (-.f64 (*.f64 (-.f64 (-.f64 (+.f64 (/.f64 (*.f64 s xy_y) xj) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) xj) (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s)) (*.f64 b xj))))
(if.f64 (<=.f64 xj #s(literal -88000000000000000 binary64)) (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 (*.f64 (/.f64 s xj) xy_y) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) (*.f64 s (/.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) xj))) b) (if.f64 (<=.f64 xj #s(literal 1684996666696915/842498333348457493583344221469363458551160763204392890034487820288 binary64)) (/.f64 (-.f64 (*.f64 (-.f64 (-.f64 (+.f64 (/.f64 (*.f64 s xy_y) xj) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) xj) (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s)) (*.f64 b xj)) (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 (*.f64 (/.f64 s xj) xy_y) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) (*.f64 s (/.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) xj))) b)))
(if.f64 (<=.f64 (-.f64 (-.f64 (-.f64 (+.f64 xy_x (*.f64 xy_y (/.f64 s xj))) (*.f64 a2 (sin.f64 (*.f64 #s(literal 2 binary64) lamdp)))) (*.f64 a4 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)))) (*.f64 (/.f64 s xj) (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))) #s(literal 4999999999999999906743388603115020788907780359910290665049241860223423941639750419942148863391427290368681348502011290786385146843522467955007764480084024749443603611970102342099448132228169829243943975742290002451379260550207232245491981306595417943121645130212363962285255265070690291922501632 binary64)) (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 (*.f64 (/.f64 s xj) xy_y) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) (/.f64 s xj))) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) b) (/.f64 (-.f64 (*.f64 (-.f64 (-.f64 (+.f64 (/.f64 (*.f64 s xy_y) xj) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) xj) (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s)) (*.f64 b xj)))
(if.f64 (<=.f64 (/.f64 s xj) #s(literal 499999999999999972661166934123722562854823285010623962332920807424 binary64)) (/.f64 (-.f64 (*.f64 (neg.f64 a4) (sin.f64 (*.f64 #s(literal 4 binary64) lamdp))) (+.f64 (/.f64 (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y))) xj) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2))) b) (/.f64 (-.f64 (*.f64 (-.f64 (-.f64 (+.f64 (/.f64 (*.f64 s xy_y) xj) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) xj) (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s)) (*.f64 b xj)))
(if.f64 (<=.f64 (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 xy_x (*.f64 xy_y (/.f64 s xj))) (*.f64 a2 (sin.f64 (*.f64 #s(literal 2 binary64) lamdp)))) (*.f64 a4 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)))) (*.f64 (/.f64 s xj) (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))) b) #s(literal -inf.0 binary64)) (/.f64 (-.f64 (*.f64 (-.f64 (-.f64 (+.f64 (*.f64 (/.f64 s xj) xy_y) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) xj) (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s)) (*.f64 b xj)) (/.f64 (-.f64 (*.f64 (neg.f64 a4) (sin.f64 (*.f64 #s(literal 4 binary64) lamdp))) (+.f64 (/.f64 (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y))) xj) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2))) b))
(/.f64 (-.f64 (*.f64 (neg.f64 a4) (sin.f64 (*.f64 #s(literal 4 binary64) lamdp))) (+.f64 (/.f64 (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y))) xj) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2))) b)
(neg.f64 (*.f64 rB (atan2.f64 (-.f64 (*.f64 Sp cosgam) (*.f64 Vp singam)) (/.f64 (-.f64 (sin.f64 (-.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (fabs.f64 (*.f64 u BrA))) #s(literal 0 binary64))) (cos.f64 (+.f64 (PI.f64) (*.f64 u BrA)))) #s(literal 2 binary64)))))
(neg.f64 (*.f64 rB (atan2.f64 (-.f64 (*.f64 Sp cosgam) (*.f64 Vp singam)) (sin.f64 (-.f64 (*.f64 u BrA) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))
(neg.f64 (*.f64 rB (atan2.f64 (-.f64 (*.f64 Sp cosgam) (*.f64 Vp singam)) (cos.f64 (*.f64 BrA u)))))
(exp.f64 (*.f64 (-.f64 (-.f64 xy_y (*.f64 (sin.f64 lamdp) c1)) (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3)) (sqrt.f64 (-.f64 (*.f64 (/.f64 s (*.f64 xj xj)) s) #s(literal -1 binary64)))))
(exp.f64 (*.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 s s) (*.f64 xj xj)))) (-.f64 xy_y (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))))
(*.f64 ecc (sin.f64 phip))
(*.f64 (-.f64 (-.f64 (+.f64 con (log.f64 (fabs.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))))) (log.f64 (fabs.f64 (sin.f64 (+.f64 (+.f64 (*.f64 phip #s(literal -1/4 binary64)) (*.f64 (+.f64 phip (PI.f64)) #s(literal -1/4 binary64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 ecc (sin.f64 phip)) (*.f64 ecc (sin.f64 phip)))) (*.f64 (cos.f64 phip) rone_es)))
(*.f64 (-.f64 (-.f64 (+.f64 con (log.f64 (fabs.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))))) (log.f64 (fabs.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal -1/4 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64))) (*.f64 ecc ecc))) (*.f64 (cos.f64 phip) rone_es)))
(if.f64 (<=.f64 (*.f64 (-.f64 (+.f64 con (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 ecc (sin.f64 phip)) (*.f64 ecc (sin.f64 phip)))) (*.f64 (cos.f64 phip) rone_es))) #s(literal +inf.0 binary64)) (*.f64 (-.f64 (+.f64 con (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)) (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc))) (*.f64 (cos.f64 phip) rone_es))) (*.f64 (*.f64 (*.f64 (-.f64 con (+.f64 (log.f64 (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64)))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64))) (*.f64 ecc ecc)))) rone_es) (cos.f64 phip)))
(*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e) (+.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal -1/4 binary64)))) (fabs.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal -1/4 binary64)))))) con)) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64))) (*.f64 ecc ecc)) #s(literal 1 binary64))) rone_es) (cos.f64 phip))
(*.f64 (-.f64 (+.f64 con (log.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 phip phip) (PI.f64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 ecc (sin.f64 phip)) (*.f64 ecc (sin.f64 phip)))) (*.f64 (cos.f64 phip) rone_es)))
(*.f64 (-.f64 (+.f64 con (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)) (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc))) (*.f64 (cos.f64 phip) rone_es)))
(*.f64 (-.f64 (+.f64 con (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 2 binary64))) (*.f64 (cos.f64 phip) rone_es)))
(*.f64 (*.f64 (*.f64 (-.f64 (+.f64 (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))) con) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e)) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64))) (*.f64 ecc ecc)))) (cos.f64 phip)) rone_es)
(*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e) (+.f64 (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))) con)) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64))) (*.f64 ecc ecc)) #s(literal 1 binary64))) rone_es) (cos.f64 phip))
(/.f64 (-.f64 K (log.f64 (/.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))))) (fabs.f64 (-.f64 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))))))) c)
(/.f64 (-.f64 K (log.f64 (/.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))))) (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))))))) c)
(if.f64 (<=.f64 (/.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) c) #s(literal 40000000000000002469113341114686275479774892438520450332402114021552535061586862357701566837778591867772418338059650452413836314173582468695284614146794891421703640843664752874453897213525501450909354384098510897997938503156139212326160449694681680764853030332740522014435580368453040603136 binary64)) (/.f64 (-.f64 K (log.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.f64))) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (PI.f64))) (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) c) (/.f64 (-.f64 K (+.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.f64))) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 0 binary64))) c))
(/.f64 (-.f64 K (log.f64 (/.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))))) (fabs.f64 (cos.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 phip #s(literal 1/2 binary64)))))))) c)
(/.f64 (-.f64 K (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))))) (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))))))) c)
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))) #s(literal 4458563631096791/4503599627370496 binary64)) (/.f64 (-.f64 K (+.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.f64))) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 0 binary64))) c) (/.f64 (-.f64 K (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) c))
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))) #s(literal 4458563631096791/4503599627370496 binary64)) (/.f64 (-.f64 K (+.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.f64))) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 0 binary64))) c) (/.f64 (-.f64 K (log.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.f64))))) #s(literal -1 binary64)))) c))
(/.f64 (-.f64 K (log.f64 (/.f64 (fabs.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (/.f64 (PI.f64) #s(literal 2 binary64))))) (fabs.f64 (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) c)
(/.f64 (-.f64 K (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) c)
(if.f64 (<=.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) #s(literal -2535301200456459/1267650600228229401496703205376 binary64)) (/.f64 (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) c) (if.f64 (<=.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) #s(literal 281474976710667/2535301200456458802993406410752 binary64)) (/.f64 (-.f64 (*.f64 c K) (*.f64 c (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip)))))) (*.f64 (sqrt.f64 (fabs.f64 (*.f64 (*.f64 c c) c))) (sqrt.f64 (fabs.f64 c)))) (/.f64 (-.f64 K (+.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.f64))) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 0 binary64))) c)))
(if.f64 (<=.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) #s(literal -2535301200456459/1267650600228229401496703205376 binary64)) (/.f64 (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) c) (if.f64 (<=.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) #s(literal 281474976710667/2535301200456458802993406410752 binary64)) (/.f64 (*.f64 (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))))) c) (sqrt.f64 (*.f64 (*.f64 c c) (*.f64 c c)))) (/.f64 (-.f64 K (+.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.f64))) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 0 binary64))) c)))
(/.f64 (-.f64 K (+.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.f64))) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))) #s(literal 0 binary64))) c)
(/.f64 (-.f64 K (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.f64))) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))) c)
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip)))) #s(literal -944473296573929/18889465931478580854784 binary64)) (/.f64 (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 9/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))))) c) (+.f64 (/.f64 K c) (/.f64 (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.f64)))))) c)))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip)))) #s(literal -944473296573929/18889465931478580854784 binary64)) (/.f64 (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 9/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))))) c) (/.f64 (+.f64 (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.f64)))))) K) c))
(/.f64 (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) c)
(/.f64 (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 9/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))))) c)
(/.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 13/4 binary64) (PI.f64)))))) c)
(if.f64 (<=.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) #s(literal -4999999999999999800927527874125884903225023646122271188244059062844836125828179933504382251951246898414048346036516555219607894574104645734358989258735238802169125071413611270845861073660931792484870623193962544889856 binary64)) (+.f64 (*.f64 (/.f64 Vp Tp) cosgam) (*.f64 (/.f64 singam Tp) Sp)) (/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp))
(/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp)
(exp.f64 (neg.f64 (*.f64 BrA v)))
(if.f64 (<=.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)) #s(literal 5404319552844595/9007199254740992 binary64)) (*.f64 ArB (log.f64 (-.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0))) (*.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0))))) (/.f64 (*.f64 (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0))) (*.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0)))))))) (-.f64 (*.f64 (log.f64 (fabs.f64 (sin.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/4 binary64))))) ArB) (*.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) gamma0))))) ArB)))
(if.f64 (<=.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)) #s(literal -5 binary64)) (*.f64 ArB (log.f64 (fabs.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64))))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0)))))))) (-.f64 (*.f64 (log.f64 (fabs.f64 (sin.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/4 binary64))))) ArB) (*.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) gamma0))))) ArB)))
(if.f64 (<=.f64 (*.f64 ArB (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0))))) #s(literal -404805/202402253307310618352495346718917307049556649764142118356901358027430339567995346891960383701437124495187077864316811911389808737385793476867013399940738509921517424276566361364466907742093216341239767678472745068562007483424692698618103355649159556340810056512358769552333414615230502532186327508646006263307707741093494784 binary64)) (*.f64 ArB (-.f64 (log.f64 (fabs.f64 (cos.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64)))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) (*.f64 ArB (log.f64 (fabs.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64))))) (cos.f64 (+.f64 (-.f64 (+.f64 (PI.f64) (*.f64 gamma0 #s(literal 1/2 binary64))) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (*.f64 ArB (-.f64 (log.f64 (fabs.f64 (cos.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64)))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) (*.f64 ArB (log.f64 (-.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0))) (cos.f64 (+.f64 (-.f64 (-.f64 (*.f64 gamma0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal -1/2 binary64) (PI.f64))) (PI.f64)))) (/.f64 (*.f64 (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64))) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (+.f64 (-.f64 (-.f64 (*.f64 gamma0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal -1/2 binary64) (PI.f64))) (PI.f64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -6189700196426901/309485009821345068724781056 binary64)) (*.f64 ArB (log.f64 (fabs.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sin.f64 (-.f64 (*.f64 gamma0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))) (*.f64 ArB (-.f64 (log.f64 (fabs.f64 (sin.f64 (*.f64 (-.f64 (-.f64 (PI.f64) gamma0) gamma0) #s(literal -1/4 binary64))))) (log.f64 (fabs.f64 (cos.f64 (+.f64 (-.f64 (*.f64 gamma0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -3022314549036573/151115727451828646838272 binary64)) (*.f64 ArB (log.f64 (fabs.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64))))) (sin.f64 (-.f64 (*.f64 gamma0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))) (*.f64 ArB (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) gamma0)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -3022314549036573/151115727451828646838272 binary64)) (*.f64 ArB (log.f64 (fabs.f64 (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64)))) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (-.f64 (*.f64 gamma0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))) (*.f64 ArB (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) gamma0)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (*.f64 ArB (-.f64 (log.f64 (fabs.f64 (cos.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64)))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) (*.f64 ArB (log.f64 (fabs.f64 (/.f64 (sin.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/4 binary64))) (cos.f64 (+.f64 (-.f64 (-.f64 (*.f64 gamma0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal -1/2 binary64) (PI.f64))) (PI.f64))))))))
(*.f64 ArB (-.f64 (log.f64 (fabs.f64 (sin.f64 (*.f64 (+.f64 (*.f64 gamma0 #s(literal -2 binary64)) (PI.f64)) #s(literal -1/4 binary64))))) (log.f64 (fabs.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 gamma0 #s(literal 1/2 binary64)))))))))
(*.f64 ArB (-.f64 (log.f64 (fabs.f64 (sin.f64 (*.f64 (-.f64 (-.f64 (PI.f64) gamma0) gamma0) #s(literal -1/4 binary64))))) (log.f64 (fabs.f64 (-.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 gamma0 #s(literal 1/2 binary64)))))))))
(*.f64 ArB (-.f64 (log.f64 (fabs.f64 (sin.f64 (*.f64 (+.f64 (*.f64 gamma0 #s(literal -2 binary64)) (PI.f64)) #s(literal -1/4 binary64))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 gamma0 #s(literal 1/2 binary64)))))))))
(*.f64 ArB (log.f64 (fabs.f64 (/.f64 (sin.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/4 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0))))))))
(if.f64 (<=.f64 gamma0 #s(literal 4593802368423799/7067388259113537318333190002971674063309935587502475832486424805170479104 binary64)) (*.f64 (log.f64 (/.f64 (sin.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/4 binary64))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) ArB) (*.f64 (log.f64 (fabs.f64 (tan.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/4 binary64))))) ArB))
(if.f64 (<=.f64 gamma0 #s(literal 4593802368423799/7067388259113537318333190002971674063309935587502475832486424805170479104 binary64)) (log.f64 (pow.f64 (tan.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64))) ArB)) (*.f64 (log.f64 (fabs.f64 (tan.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/4 binary64))))) ArB))
(*.f64 ArB (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) gamma0)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))
(*.f64 (log.f64 (fabs.f64 (tan.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/4 binary64))))) ArB)
(*.f64 (log.f64 (tan.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64)))) ArB)
(if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (fabs.f64 (*.f64 ArB (atan.f64 (/.f64 (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64))) (cos.f64 alpha_c)))))) (fabs.f64 (*.f64 ArB (atan.f64 (/.f64 (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64))) (cos.f64 alpha_c))))))
(/.f64 (sin.f64 phi0) c)
(-.f64 (/.f64 L (+.f64 H L)) (/.f64 H (+.f64 H L)))
(/.f64 (-.f64 L H) (+.f64 L H))
(-.f64 (/.f64 (atan.f64 (*.f64 (tan.f64 (*.f64 (*.f64 B #s(literal 1/2 binary64)) (-.f64 (if.f64 (<.f64 (-.f64 lam1 lam2) (neg.f64 (PI.f64))) (+.f64 (+.f64 (PI.f64) (PI.f64)) lam2) (if.f64 (>.f64 (-.f64 lam1 lam2) (PI.f64)) (-.f64 lam2 (+.f64 (PI.f64) (PI.f64))) lam2)) lam1))) (/.f64 J p))) B) (*.f64 #s(literal -1/2 binary64) (+.f64 (if.f64 (<.f64 (-.f64 lam1 lam2) (neg.f64 (PI.f64))) (+.f64 (+.f64 (PI.f64) (PI.f64)) lam2) (if.f64 (>.f64 (-.f64 lam1 lam2) (PI.f64)) (-.f64 lam2 (+.f64 (PI.f64) (PI.f64))) lam2)) lam1)))
(-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lam1 (if.f64 (<.f64 (-.f64 lam1 lam2) (neg.f64 (PI.f64))) (+.f64 (+.f64 (PI.f64) (PI.f64)) lam2) (if.f64 (>.f64 (-.f64 lam1 lam2) (PI.f64)) (-.f64 lam2 (+.f64 (PI.f64) (PI.f64))) lam2)))) (/.f64 (atan.f64 (/.f64 (*.f64 J (tan.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 B (-.f64 lam1 (if.f64 (<.f64 (-.f64 lam1 lam2) (neg.f64 (PI.f64))) (+.f64 (+.f64 (PI.f64) (PI.f64)) lam2) (if.f64 (>.f64 (-.f64 lam1 lam2) (PI.f64)) (-.f64 lam2 (+.f64 (PI.f64) (PI.f64))) lam2))))))) p)) B))
(-.f64 lamc (/.f64 (asin.f64 (/.f64 (*.f64 (-.f64 F #s(literal -1 binary64)) (*.f64 (-.f64 F #s(literal 1 binary64)) (*.f64 (tan.f64 gamma0) #s(literal 1/2 binary64)))) F)) B))
(-.f64 lamc (/.f64 (asin.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 F (/.f64 #s(literal 1 binary64) F))) (tan.f64 gamma0))) B))
(*.f64 (/.f64 k0 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))) #s(literal -1/2 binary64)) (*.f64 ecc ecc)) #s(literal -1 binary64))) (sqrt.f64 one_es))
(asin.f64 (/.f64 (sin.f64 alpha_c) D))
(-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi0 phi0)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64))
(sqrt.f64 (-.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es) rone_es) #s(literal -1 binary64)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) (*.f64 rone_es es))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 rone_es (pow.f64 (cos.f64 phi0) #s(literal 4 binary64))) es)))
(asin.f64 (*.f64 D (sin.f64 gamma0)))
(if.f64 (<=.f64 (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))) #s(literal -1000000 binary64)) (-.f64 (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (if.f64 (<=.f64 (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))) #s(literal 2000000000000000016987242867379405952297739849197521231789998205405593811812352 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (-.f64 (log.f64 (fabs.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))) (PI.f64))))) (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))))
(if.f64 (<=.f64 (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))) #s(literal -1000000 binary64)) (-.f64 (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (if.f64 (<=.f64 (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))) #s(literal 2000000000000000016987242867379405952297739849197521231789998205405593811812352 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (-.f64 (log.f64 (fabs.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))) (PI.f64))))) (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))))
(if.f64 (<=.f64 c #s(literal 850000 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 c #s(literal 850000 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 c #s(literal 850000 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 c #s(literal 850000 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 c #s(literal 430000 binary64)) (-.f64 (log.f64 (/.f64 (-.f64 (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)))) (neg.f64 (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 c #s(literal 430000 binary64)) (-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))))) (*.f64 c (-.f64 (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) #s(literal 4835703278458517/9671406556917033397649408 binary64)) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0))) #s(literal -5764607523034235/144115188075855872 binary64)) (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (*.f64 c (-.f64 (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0))) #s(literal 3242591731706757/18014398509481984 binary64)) (-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))) (*.f64 (-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi0) ecc)))) hlf_e)) c)))
(-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (*.f64 c (-.f64 (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0))) #s(literal 3242591731706757/18014398509481984 binary64)) (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64)))))) (-.f64 (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip0))))) (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi0) ecc)) (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal 1 binary64)))) hlf_e) (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))))) c))) (-.f64 (log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))) (*.f64 (-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi0) ecc)))) hlf_e)) c)))
(if.f64 (<=.f64 c #s(literal 680000000000000034125992661345493122882077864230506014214012342552527291529334829002167381500765405184 binary64)) (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))) #s(literal 19999999999999999042943898584577627210672650772505466848487442240115469688899487215981329357961462820572091693694875828215901850281511913037194533151440339824999916850618391401330231357640700542387220923023397191454763848595979444663933846679453696 binary64)) (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))) (*.f64 (-.f64 (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)))) (neg.f64 (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))))) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi0) ecc)))) hlf_e)) c)))
(-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/2 binary64) phip0) (PI.f64))))) (*.f64 (-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi0) ecc)))) hlf_e)) c))
(-.f64 (log.f64 (tan.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(-.f64 (log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))) (*.f64 (-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi0) ecc)))) hlf_e)) c))
(-.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal -1 binary64) (*.f64 E_var (/.f64 E_var (*.f64 H L))))) (*.f64 (neg.f64 E_var) (/.f64 E_var (+.f64 (*.f64 H L) (*.f64 E_var E_var)))))
(-.f64 (/.f64 L (-.f64 (/.f64 (*.f64 (neg.f64 E_var) E_var) H) L)) (*.f64 (neg.f64 E_var) (/.f64 E_var (+.f64 (*.f64 H L) (*.f64 E_var E_var)))))
(-.f64 (*.f64 (/.f64 L (+.f64 (*.f64 H L) (*.f64 E_var E_var))) (neg.f64 H)) (*.f64 (neg.f64 E_var) (/.f64 E_var (+.f64 (*.f64 H L) (*.f64 E_var E_var)))))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 H L) (*.f64 E_var E_var)) (-.f64 (*.f64 E_var E_var) (*.f64 H L))))
(/.f64 (-.f64 (*.f64 E_var E_var) (*.f64 L H)) (+.f64 (*.f64 E_var E_var) (*.f64 L H)))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) D))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))) (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) D))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (*.f64 (sqrt.f64 (fabs.f64 (-.f64 D #s(literal 1 binary64)))) (neg.f64 (sqrt.f64 (fabs.f64 (-.f64 D #s(literal -1 binary64)))))) (/.f64 (sqrt.f64 (fabs.f64 (-.f64 D #s(literal -1 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fabs.f64 (-.f64 D #s(literal 1 binary64))))))))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (*.f64 (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) D))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))) (*.f64 (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) D))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (sqrt.f64 (fabs.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64))))) (*.f64 (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) D))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)))) (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)))))
(/.f64 (*.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) one_es) (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es)))) com) (*.f64 (cos.f64 phi0) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (*.f64 (sin.f64 phi0) (sin.f64 phi0)))))))
(/.f64 (*.f64 com (sqrt.f64 (-.f64 (/.f64 #s(literal 1 binary64) (/.f64 one_es (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es))) #s(literal -1 binary64)))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))) #s(literal 1/2 binary64)) es))) (cos.f64 phi0)))
(/.f64 (*.f64 com (sqrt.f64 (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es) one_es) #s(literal -1 binary64)))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))) #s(literal 1/2 binary64)) es))) (cos.f64 phi0)))
(*.f64 (/.f64 com (cos.f64 phi0)) (sqrt.f64 (/.f64 (-.f64 (*.f64 (/.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) one_es) es) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 es (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0)))) #s(literal 1/2 binary64))))))
(sqrt.f64 (/.f64 (+.f64 one_es (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es)) one_es))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) one_es) es)))
(if.f64 (<=.f64 phipp #s(literal 8973886915892005/28948022309329048855892746252171976963317496166410141009864396001978282409984 binary64)) (*.f64 kR (log.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) #s(literal -1 binary64)))) (*.f64 kR (log.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64)))))))))
(*.f64 kR (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp))))))))
(*.f64 kR (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp))))))))
(*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64)))))))))
(if.f64 (<=.f64 (*.f64 kR (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))))) #s(literal -5316911983139663/1329227995784915872903807060280344576 binary64)) (*.f64 kR (+.f64 (log.f64 (fabs.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (log.f64 (fabs.f64 (/.f64 (-.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (sin.f64 (+.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))) (*.f64 kR (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (+.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (+.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))))
(if.f64 (<=.f64 (*.f64 kR (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))))) #s(literal -5316911983139663/1329227995784915872903807060280344576 binary64)) (*.f64 kR (+.f64 (log.f64 (fabs.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (log.f64 (fabs.f64 (/.f64 (-.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (sin.f64 (+.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))) (*.f64 kR (log.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)))) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phipp)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))
(if.f64 (<=.f64 (*.f64 kR (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))))) #s(literal -5316911983139663/1329227995784915872903807060280344576 binary64)) (*.f64 kR (-.f64 (log.f64 (fabs.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) (*.f64 kR (log.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)))) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phipp)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))
(if.f64 (<=.f64 (*.f64 kR (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))))) #s(literal -5316911983139663/1329227995784915872903807060280344576 binary64)) (*.f64 kR (log.f64 (fabs.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp))))))) (*.f64 kR (log.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)))) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phipp)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -5764607523034235/288230376151711744 binary64)) (*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal 3602879701896397/9007199254740992 binary64)) (*.f64 kR (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal 5224175567749775/9007199254740992 binary64)) (*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (cos.f64 (+.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64)))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -5764607523034235/288230376151711744 binary64)) (*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal 1 binary64)) (*.f64 kR (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -5764607523034235/288230376151711744 binary64)) (*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (*.f64 kR (log.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) #s(literal -1 binary64)))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -5764607523034235/288230376151711744 binary64)) (*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (log.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))) kR)) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -5764607523034235/288230376151711744 binary64)) (*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (tan.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))))))))
(if.f64 (<=.f64 phipp #s(literal 1166238552209971/1267650600228229401496703205376 binary64)) (*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (tan.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))))
(if.f64 (<=.f64 phipp #s(literal 2535301200456459/5070602400912917605986812821504 binary64)) (*.f64 kR (log.f64 (tan.f64 (+.f64 (+.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)) (PI.f64))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))))
(if.f64 (<=.f64 phipp #s(literal 2535301200456459/5070602400912917605986812821504 binary64)) (*.f64 kR (log.f64 (tan.f64 (+.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64))) (PI.f64))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))))
(if.f64 (<=.f64 phipp #s(literal 2535301200456459/2535301200456458802993406410752 binary64)) (*.f64 kR (log.f64 (tan.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64)))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))))
(*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))))))
(*.f64 (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))) kR)
(+.f64 (*.f64 c1 (sin.f64 lamdp)) (+.f64 (*.f64 c3 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64)))) (*.f64 tanph (/.f64 xj (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))))
(+.f64 (*.f64 c1 (sin.f64 lamdp)) (+.f64 (*.f64 (*.f64 c3 (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 4 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lamdp lamdp)) #s(literal 1/2 binary64)))))) (sin.f64 lamdp)) (*.f64 tanph (/.f64 xj (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))))
(+.f64 (*.f64 c1 (sin.f64 lamdp)) (+.f64 (*.f64 c3 (*.f64 (sin.f64 lamdp) (-.f64 #s(literal 3 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lamdp lamdp)) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) (*.f64 tanph (/.f64 xj (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))))
(+.f64 (*.f64 c1 (sin.f64 lamdp)) (+.f64 (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp))) (*.f64 tanph (/.f64 xj (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))))
(-.f64 (+.f64 (+.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (*.f64 lamdp b)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) (*.f64 (/.f64 s (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj)))) tanph))
(if.f64 (<=.f64 one_es #s(literal -119999999999999992791711785436734146363018478165098748993720564156436311965696 binary64)) (/.f64 (+.f64 (*.f64 one_es (*.f64 tanphi sa)) (*.f64 (sin.f64 lamt) ca)) (cos.f64 lamt)) (+.f64 (*.f64 (*.f64 sa one_es) (/.f64 tanphi (cos.f64 lamt))) (*.f64 (tan.f64 lamt) ca)))
(if.f64 (<=.f64 one_es #s(literal -149999999999999990989639731795917682953773097706373436242150705195545389957120 binary64)) (+.f64 (*.f64 (*.f64 (/.f64 tanphi (cos.f64 lamt)) one_es) sa) (*.f64 (tan.f64 lamt) ca)) (+.f64 (*.f64 (*.f64 sa one_es) (/.f64 tanphi (cos.f64 lamt))) (*.f64 (tan.f64 lamt) ca)))
(+.f64 (*.f64 (*.f64 sa one_es) (/.f64 tanphi (cos.f64 lamt))) (*.f64 (tan.f64 lamt) ca))
(*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (*.f64 (-.f64 U #s(literal 1 binary64)) (-.f64 U #s(literal 1 binary64))))) ArB) (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (-.f64 U #s(literal -1 binary64))))) ArB)))
(*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (log.f64 (fabs.f64 (-.f64 U #s(literal 1 binary64)))) ArB) (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (-.f64 U #s(literal -1 binary64))))) ArB)))
(*.f64 #s(literal 1/2 binary64) (*.f64 ArB (log.f64 (/.f64 (-.f64 #s(literal 1 binary64) U) (+.f64 #s(literal 1 binary64) U)))))
(if.f64 (<=.f64 (*.f64 B lam) #s(literal 19999999999999999864418973487232559529234168838881280 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) lam) B))) singam)) (cos.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 1 binary64) lam) B))))) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (+.f64 (*.f64 (neg.f64 B) lam) (PI.f64))) singam)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (/.f64 lam (/.f64 #s(literal 1 binary64) B)))))))
(if.f64 (<=.f64 cosgam #s(literal 4066580100539833/90368446678662959902371482950548091627243325179250480789868861787606202571558351996987965471847359903068731695945087890499945499708108510324049698831582275405785474927446915858324226319766512887160235503322704971703517184 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (sin.f64 (-.f64 (*.f64 lam B) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) lam) (/.f64 #s(literal 1 binary64) B)))) singam)) (cos.f64 (*.f64 lam B)))))
(if.f64 (<=.f64 (*.f64 B lam) #s(literal 19999999999999999864418973487232559529234168838881280 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (sin.f64 (-.f64 (*.f64 lam B) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (+.f64 (*.f64 (neg.f64 B) lam) (PI.f64))) singam)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (/.f64 lam (/.f64 #s(literal 1 binary64) B)))))))
(if.f64 (<=.f64 (*.f64 B lam) #s(literal 19999999999999999864418973487232559529234168838881280 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (sin.f64 (-.f64 (*.f64 lam B) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (-.f64 (PI.f64) (*.f64 lam B))) singam)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 lam B))))))
(if.f64 (<=.f64 (*.f64 B lam) #s(literal 19999999999999999864418973487232559529234168838881280 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (sin.f64 (-.f64 (*.f64 lam B) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (-.f64 (PI.f64) (*.f64 lam B))) singam)) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 lam B))))))
(if.f64 (<=.f64 (*.f64 B lam) #s(literal 10000000000000000905969664 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (sin.f64 (-.f64 (*.f64 lam B) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (cos.f64 (-.f64 (*.f64 lam B) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) singam)) (cos.f64 (*.f64 B lam)))))
(if.f64 (<=.f64 (*.f64 B lam) #s(literal 10000000000000000905969664 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (cos.f64 (*.f64 B lam)))) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (cos.f64 (-.f64 (*.f64 lam B) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) singam)) (cos.f64 (*.f64 B lam)))))
(if.f64 (<=.f64 (*.f64 B lam) #s(literal 500000000000000006643777536 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (cos.f64 (*.f64 B lam)))) (*.f64 (atan2.f64 (-.f64 (*.f64 cosgam S) (*.f64 (sin.f64 (-.f64 (*.f64 lam B) (PI.f64))) singam)) (cos.f64 (*.f64 lam B))) ArB))
(if.f64 (<=.f64 (*.f64 B lam) #s(literal 500000000000000006643777536 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (cos.f64 (*.f64 B lam)))) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (neg.f64 (+.f64 (PI.f64) (*.f64 lam B)))) singam)) (cos.f64 (*.f64 B lam)))))
(*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (cos.f64 (*.f64 B lam))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 phi #s(literal 1/2 binary64))))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))))) alpha) k) gfi)) (/.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 phi #s(literal 1/2 binary64))))) (cos.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)))) alpha) k) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -3039929748475085/1125899906842624 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (sin.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 phi #s(literal 1/2 binary64))))) (cos.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)))) alpha) k) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -5404319552844595/4503599627370496 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (sin.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 1080863910568919/36028797018963968 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (/.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))))) alpha)) gfi)) (/.f64 (PI.f64) #s(literal 4 binary64)))) (if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 2206763817411543/2251799813685248 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) (sin.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (PI.f64)))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 1 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) alpha) k) gfi)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 2206763817411543/2251799813685248 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) (sin.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (PI.f64)))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 1 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) alpha) k) gfi)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))))
(if.f64 (<=.f64 phi #s(literal -4106071118205837/120766797594289323271729746591624604509341479053326093708038601607859973196548763266756055205685080561326988000984443036792658708157593364241965896045846273396780650463232 binary64)) (*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) alpha) k) gfi)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (if.f64 (<=.f64 phi #s(literal 357986298980937/3579862989809370150552347991709354811340217396521331566180181212788883000669113019918160533228078546928669938652374965009299607594634172087555628255195572452564109288497401512783350157684872347030630001028968155934491319200842197951919848388309286912 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64)) (PI.f64)) (PI.f64))) alpha) k) gfi)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))))
(if.f64 (<=.f64 phi #s(literal 8371160993642713/167423219872854268898191413915625282900219501828989626163085998182867351738271269139562246689952477832436667643367679191435491450889424069312259024604665231311477621481628609147204290704099549091843034096141351171618467832303105743111961624157454108040174944963852221369694216119572256044331338563584 binary64)) (*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) alpha) k) gfi)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64)) (PI.f64)) (PI.f64))) alpha) k) gfi)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)))
(*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) alpha) k) gfi)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))
(*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))))))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64)))))) (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64))))))))
(log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)))))))
(log.f64 (/.f64 (*.f64 (-.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))))))
(log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64)))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal 5764607523034235/288230376151711744 binary64)) (neg.f64 (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))) (log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (+.f64 (-.f64 (+.f64 (PI.f64) (*.f64 phidp #s(literal 1/2 binary64))) (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal 6189700196426901/1237940039285380274899124224 binary64)) (log.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (+.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 13/4 binary64) (PI.f64)))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal -5764607523034235/576460752303423488 binary64)) (log.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phidp))))) (log.f64 (fabs.f64 (cos.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal 6189700196426901/309485009821345068724781056 binary64)) (log.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal 5 binary64)) (log.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (log.f64 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64))))))))
(neg.f64 (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal 5 binary64)) (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal 5 binary64)) (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (log.f64 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64))))))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp))) #s(literal -5764607523034235/576460752303423488 binary64)) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phidp))) (cos.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal 6189700196426901/309485009821345068724781056 binary64)) (log.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 13/4 binary64) (PI.f64))) (PI.f64)))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))))))
(log.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 13/4 binary64) (PI.f64))) (PI.f64))))
(log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64))))))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 phi #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64)))))) (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (*.f64 phi #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64))))))))
(log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)))))))
(log.f64 (/.f64 (*.f64 (-.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))))))
(log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal 5764607523034235/288230376151711744 binary64)) (neg.f64 (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))) (log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (+.f64 (-.f64 (+.f64 (PI.f64) (*.f64 phi #s(literal 1/2 binary64))) (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal 6189700196426901/1237940039285380274899124224 binary64)) (log.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (+.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 13/4 binary64) (PI.f64)))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal -5764607523034235/576460752303423488 binary64)) (log.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi))))) (log.f64 (fabs.f64 (cos.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal 6189700196426901/309485009821345068724781056 binary64)) (log.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal 5 binary64)) (log.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (log.f64 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))))))
(neg.f64 (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal 5 binary64)) (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal 5 binary64)) (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (log.f64 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi))) #s(literal -5764607523034235/576460752303423488 binary64)) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi))) (cos.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal 6189700196426901/309485009821345068724781056 binary64)) (log.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 13/4 binary64) (PI.f64))) (PI.f64)))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))))
(log.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 13/4 binary64) (PI.f64))) (PI.f64))))
(log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))
(-.f64 (*.f64 (-.f64 u u0) cosrot) (*.f64 v sinrot))
(+.f64 (*.f64 v cosrot) (*.f64 (-.f64 u u0) sinrot))
(*.f64 (pow.f64 (/.f64 (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) s)) (sin.f64 (*.f64 #s(literal -1/2 binary64) s))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) s)) (sin.f64 (*.f64 s #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (neg.f64 n)) (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) rho0))
(*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 s #s(literal 1/2 binary64))) (cos.f64 (*.f64 s #s(literal 1/2 binary64))))) (cos.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64)))) (neg.f64 n)) (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) rho0))
(*.f64 (pow.f64 (/.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 (+.f64 s s) (PI.f64)))) (cos.f64 (*.f64 (+.f64 (+.f64 s (PI.f64)) s) #s(literal 1/4 binary64)))) (neg.f64 n)) (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) rho0))
(*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) (*.f64 rho0 (pow.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 s (PI.f64)) s)))) (neg.f64 n))))
(*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) (*.f64 rho0 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64))) (neg.f64 n))))
(asin.f64 (-.f64 (*.f64 cosp0 (sin.f64 phip)) (*.f64 (*.f64 (cos.f64 phip) sinp0) (cos.f64 lamp))))
(asin.f64 (-.f64 (*.f64 cosp0 (sin.f64 phip)) (*.f64 sinp0 (*.f64 (cos.f64 phip) (cos.f64 lamp)))))
(if.f64 (<=.f64 (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))))))) #s(literal -3602879701896397/72057594037927936 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (atan.f64 (exp.f64 (+.f64 (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (sin.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (sin.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi)))))))) K)))) (/.f64 (PI.f64) #s(literal 2 binary64))) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64)))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e)) c) K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(if.f64 (<=.f64 phi #s(literal -7970587860157857/10218702384817765435680628290748613458265350453429542612493041881278524886369096016818984783322294789577433327842265575649138882500575199542984559607218336872038429045509558663769793133795138494375185186532064890845853749530218856391110938974453986086436459043203870933208875495579361330830770176 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64)))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e)) c) K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 (atan.f64 (exp.f64 (-.f64 K (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e) (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(if.f64 (<=.f64 phi #s(literal 2157231761834779/359538626972463181545861038157804946723595395788461314546860162315465351611001926265416954644815072042240227759742786715317579537628833244985694861278948248755535786849730970552604439202492188238906165904170011537676301364684925762947826221081654474326701021369172596479894491876959432609670712659248448274432 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64)))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e)) c) K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (-.f64 (log.f64 (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (PI.f64))) (PI.f64))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e)) c) K))) #s(literal 2 binary64)) (*.f64 (pow.f64 (PI.f64) #s(literal 2/3 binary64)) (*.f64 (cbrt.f64 (PI.f64)) #s(literal 1/2 binary64)))))
(-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64)))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e)) c) K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(if.f64 (<=.f64 (-.f64 (*.f64 #s(literal 2 binary64) (atan.f64 (exp.f64 (+.f64 (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi)))))))) K)))) (/.f64 (PI.f64) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (-.f64 K (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e) (log.f64 (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi phi) (PI.f64)))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 (atan.f64 (*.f64 (exp.f64 K) (pow.f64 (*.f64 (tan.f64 (+.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 21/4 binary64) (PI.f64)))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e))) c))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(if.f64 (<=.f64 (-.f64 (*.f64 #s(literal 2 binary64) (atan.f64 (exp.f64 (+.f64 (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi)))))))) K)))) (/.f64 (PI.f64) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (-.f64 K (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e) (log.f64 (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi phi) (PI.f64)))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 (atan.f64 (*.f64 (exp.f64 K) (pow.f64 (*.f64 (tan.f64 (+.f64 (*.f64 phi #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 21/4 binary64) (PI.f64)) (PI.f64)))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e))) c))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (*.f64 (atan.f64 (exp.f64 (-.f64 K (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e) (log.f64 (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi phi) (PI.f64)))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(asin.f64 (/.f64 (-.f64 (*.f64 (*.f64 ca one_es) (sin.f64 phi)) (*.f64 sa (*.f64 (cos.f64 phi) (sin.f64 lamt)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (*.f64 (sin.f64 phi) (sin.f64 phi)))))))
(asin.f64 (/.f64 (-.f64 (*.f64 (*.f64 ca one_es) (sin.f64 phi)) (*.f64 (*.f64 (sin.f64 lamt) sa) (cos.f64 phi))) (sqrt.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64)))))
(asin.f64 (/.f64 (-.f64 (*.f64 (*.f64 ca one_es) (sin.f64 phi)) (*.f64 sa (*.f64 (cos.f64 phi) (sin.f64 lamt)))) (sqrt.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64)))))
(asin.f64 (/.f64 (-.f64 (*.f64 one_es (*.f64 ca (sin.f64 phi))) (*.f64 sa (*.f64 (cos.f64 phi) (sin.f64 lamt)))) (sqrt.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64)))))
(asin.f64 (*.f64 (/.f64 cp (cos.f64 phipp)) (sin.f64 lamp)))
(*.f64 #s(literal 1/2 binary64) (+.f64 W (/.f64 #s(literal 1 binary64) W)))
(*.f64 #s(literal 1/2 binary64) (-.f64 W (/.f64 #s(literal 1 binary64) W)))
(pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 phi)))) (*.f64 #s(literal 1/2 binary64) (*.f64 alpha evar)))
(-.f64 (log.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)))) (*.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (log.f64 (+.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)) #s(literal 2 binary64)) (pow.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 2 binary64))) (*.f64 (pow.f64 (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) (+.f64 ecc ecc)))))))))
(*.f64 #s(literal 1/2 binary64) (log.f64 (pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc))) #s(literal 2 binary64))))
(log.f64 (*.f64 (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal -1 binary64))))
(log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi)))))
(/.f64 E_var (pow.f64 tsfn_phi B))
(*.f64 (pow.f64 tsfn_phi (neg.f64 B)) E_var)
(if.f64 (<=.f64 (-.f64 (*.f64 S singam) (*.f64 (sin.f64 (*.f64 B lam)) cosgam)) #s(literal 79999999999999992572557248974409696645542519751366315717019574956943378396992011625615002254491042001997551038446498825815256733445644654873893590829124841073981698194737055027963378008064 binary64)) (/.f64 (-.f64 (*.f64 S singam) (*.f64 (sin.f64 (*.f64 B lam)) cosgam)) T) (-.f64 (*.f64 (/.f64 S T) singam) (*.f64 (cos.f64 (-.f64 (*.f64 lam B) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (/.f64 cosgam T))))
(/.f64 (-.f64 (*.f64 S singam) (*.f64 (sin.f64 (*.f64 B lam)) cosgam)) T)
(cosh.f64 (asinh.f64 (sinh.f64 Ce)))
(sqrt.f64 (+.f64 (pow.f64 (sinh.f64 Ce) #s(literal 2 binary64)) #s(literal 1 binary64)))
(*.f64 (exp.f64 (*.f64 #s(literal -2 binary64) Ce)) #s(literal 1/2 binary64))
(exp.f64 (+.f64 Ce Ce))
(cosh.f64 (+.f64 Ce Ce))
(atan2.f64 (sin.f64 Cn) (sqrt.f64 (+.f64 (pow.f64 (sinh.f64 Ce) #s(literal 2 binary64)) (pow.f64 (cos.f64 Cn) #s(literal 2 binary64)))))
(atan2.f64 (sin.f64 Cn) (sqrt.f64 (-.f64 (pow.f64 (sinh.f64 Ce) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal -1 binary64) (cos.f64 (+.f64 Cn Cn))) #s(literal 1/2 binary64)))))
(atan2.f64 (sinh.f64 Ce) (cos.f64 Cn))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (pow.f64 (cos.f64 lam) #s(literal 2 binary64))))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (pow.f64 (*.f64 (cos.f64 lam) (cos.f64 Cn)) #s(literal 2 binary64)))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (-.f64 (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal -1 binary64)) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (+.f64 lam lam))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) #s(literal -1/2 binary64))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (-.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 Cn Cn))) #s(literal -1/2 binary64)) (*.f64 (-.f64 #s(literal -1 binary64) (cos.f64 (+.f64 Cn Cn))) (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal -1/4 binary64) (cos.f64 (+.f64 lam lam))))))))
(/.f64 (*.f64 (sin.f64 lam) (cos.f64 Cn)) (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 #s(literal 0 binary64)) (cos.f64 (+.f64 Cn Cn))))) (*.f64 (cos.f64 Cn) (*.f64 (cos.f64 Cn) (*.f64 (cos.f64 lam) (cos.f64 lam)))))))
(/.f64 (*.f64 (sin.f64 lam) (cos.f64 Cn)) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (*.f64 (cos.f64 Cn) (*.f64 (cos.f64 Cn) (*.f64 (cos.f64 lam) (cos.f64 lam)))))))
(*.f64 (cos.f64 Cn) (/.f64 (sin.f64 lam) (sqrt.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (pow.f64 (cos.f64 lam) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn))))))))
(/.f64 (*.f64 (sin.f64 lam) (cos.f64 Cn)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lam lam)))))))))
(/.f64 (*.f64 (sin.f64 lam) (cos.f64 Cn)) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lam lam))))))))
(*.f64 (/.f64 (cos.f64 Cn) (sqrt.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lam lam))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn))))))) (sin.f64 lam))
(*.f64 (cos.f64 Cn) (/.f64 (sin.f64 lam) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal 1/2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal -1 binary64))) (-.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal -1 binary64))))))))
(atan2.f64 (sin.f64 Cn) (*.f64 (cos.f64 Cn) (cos.f64 lam)))
(if.f64 (<=.f64 cos_arg_r #s(literal -3500000000000000097743684606361600 binary64)) (-.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hr) (*.f64 (*.f64 hi sinh_arg_i) cos_arg_r)) (-.f64 (*.f64 (*.f64 hr sin_arg_r) cosh_arg_i) (*.f64 (*.f64 hi cos_arg_r) sinh_arg_i)))
(if.f64 (<=.f64 cos_arg_r #s(literal -3500000000000000097743684606361600 binary64)) (-.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hr) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)) (-.f64 (*.f64 (*.f64 hr sin_arg_r) cosh_arg_i) (*.f64 (*.f64 hi cos_arg_r) sinh_arg_i)))
(if.f64 (<=.f64 sin_arg_r #s(literal -1065287220983309/463168356949264781694283940034751631413079938662562256157830336031652518559744 binary64)) (-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)) (-.f64 (*.f64 (*.f64 hr sin_arg_r) cosh_arg_i) (*.f64 (*.f64 hi cos_arg_r) sinh_arg_i)))
(if.f64 (<=.f64 cosh_arg_i #s(literal 2408173546789575/2293498615990071511610820895302086940796564989168281123737588839386922876088484808070018553110125686554624 binary64)) (-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)) (-.f64 (*.f64 (*.f64 hr sin_arg_r) cosh_arg_i) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)))
(-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi))
(if.f64 (<=.f64 (*.f64 sin_arg_r cosh_arg_i) #s(literal 5764607523034235/576460752303423488 binary64)) (+.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hi) (*.f64 (*.f64 hr cos_arg_r) sinh_arg_i)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.f64 (*.f64 hr sinh_arg_i) cos_arg_r)))
(if.f64 (<=.f64 sinh_arg_i #s(literal 5871356456934583/587135645693458306972370149197334256843920637227079967676822742883052256278652110865924749596192175757983744 binary64)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.f64 (*.f64 hr sinh_arg_i) cos_arg_r)) (+.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hi) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr)))
(if.f64 (<=.f64 sinh_arg_i #s(literal 8000000000000000000000 binary64)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.f64 (*.f64 hr sinh_arg_i) cos_arg_r)) (+.f64 (*.f64 (*.f64 hi cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr)))
(if.f64 (<=.f64 (*.f64 sin_arg_r cosh_arg_i) #s(literal 5065326622169181/253266331108459042877954581524118722595974501479640924072000569439126758509088631982403994686712878069348015540240526683495797795130113239006767262824338603946605334680267915264 binary64)) (+.f64 (*.f64 (*.f64 hi cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr)))
(+.f64 (*.f64 (*.f64 hi cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr))
(if.f64 (>.f64 (fabs.f64 (cos.f64 phi)) #s(literal 1/10000000000 binary64)) (tan.f64 phi) #s(literal 0 binary64))
(/.f64 (*.f64 (cos.f64 phi) lam) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (pow.f64 (sin.f64 phi) #s(literal 2 binary64))))))
(*.f64 (/.f64 (cos.f64 phi) (sqrt.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64)))) lam)
(/.f64 (*.f64 (sqrt.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64))) x) k0)