(if.f64 (<=.f64 g #s(literal -1829961045242925/11296055834832869987796435368818511453405415647406310098733607723450775321444793999623495683980919987883591461993135986312493187463513563790506212353947784425723184365930864482290528289970814110895029437915338121462939648 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (+.f64 (*.f64 (sin.f64 phi0) (sin.f64 (+.f64 (*.f64 (/.f64 #s(literal 1 binary64) esp) y) (PI.f64)))) (*.f64 (cos.f64 (*.f64 (/.f64 #s(literal 1 binary64) esp) y)) (cos.f64 phi0)))) #s(literal 0 binary64))) (atan2.f64 g (+.f64 (*.f64 (sin.f64 phi0) (sin.f64 (+.f64 (*.f64 (/.f64 #s(literal 1 binary64) esp) y) (PI.f64)))) (*.f64 (cos.f64 (*.f64 (/.f64 #s(literal 1 binary64) esp) y)) (cos.f64 phi0)))) #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 (sin.f64 (-.f64 (/.f64 y esp) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 phi0)))) #s(literal 0 binary64))) (atan2.f64 g (+.f64 (*.f64 (sin.f64 phi0) (sin.f64 (+.f64 (/.f64 y esp) (PI.f64)))) (*.f64 (sin.f64 (-.f64 (/.f64 y esp) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 phi0)))) #s(literal 0 binary64)))
(if.f64 (<=.f64 (cos.f64 (+.f64 phi0 (/.f64 y esp))) #s(literal -5404319552844595/36028797018963968 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 (/.f64 y esp)) (cos.f64 phi0)))) #s(literal 0 binary64))) (atan2.f64 g (+.f64 (*.f64 (sin.f64 phi0) (sin.f64 (+.f64 (/.f64 y esp) (PI.f64)))) (*.f64 (cos.f64 (/.f64 y esp)) (cos.f64 phi0)))) #s(literal 0 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (-.f64 (/.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 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 (+.f64 (*.f64 (sin.f64 phi0) (sin.f64 (+.f64 (/.f64 y esp) (PI.f64)))) (*.f64 (cos.f64 (/.f64 y esp)) (cos.f64 phi0)))) #s(literal 0 binary64))) (atan2.f64 g (+.f64 (*.f64 (sin.f64 phi0) (sin.f64 (+.f64 (/.f64 y esp) (PI.f64)))) (*.f64 (cos.f64 (/.f64 y esp)) (cos.f64 phi0)))) #s(literal 0 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 (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))
(if.f64 (<=.f64 g #s(literal 33999999999999997385945714264732131596311799179418596210267929689480641054901534033468063226777126186016033121888357170920470762342405313696510302276812800 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))))) (sqrt.f64 (-.f64 (*.f64 g g) #s(literal -1 binary64)))))) (*.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 (+.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 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 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 lam) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) (-.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 phi) #s(literal 2 binary64))))))) (cos.f64 phi))
(*.f64 (/.f64 (cos.f64 lam) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1/2 binary64)))))))) (cos.f64 phi))
(*.f64 (/.f64 (cos.f64 lam) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.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 phi phi)))))))) (cos.f64 phi))
(*.f64 (cos.f64 lam) (/.f64 (cos.f64 phi) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.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 phi phi)))))))))
(*.f64 (+.f64 ml0 ml0) (atanh.f64 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 (*.f64 (*.f64 rone_es (*.f64 (neg.f64 es) ca)) ca) rone_es) (+.f64 (*.f64 (*.f64 rone_es (*.f64 (neg.f64 es) ca)) ca) rone_es)) #s(literal 1 binary64))
(-.f64 (*.f64 (-.f64 (*.f64 (*.f64 ca es) ca) #s(literal 1 binary64)) (*.f64 rone_es (*.f64 (-.f64 (*.f64 (*.f64 ca es) ca) #s(literal 1 binary64)) rone_es))) #s(literal 1 binary64))
(-.f64 (*.f64 (-.f64 (*.f64 (*.f64 ca ca) es) #s(literal 1 binary64)) (*.f64 rone_es (*.f64 (-.f64 (*.f64 (*.f64 ca ca) es) #s(literal 1 binary64)) rone_es))) #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))
(*.f64 (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) rone_es) (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (*.f64 rone_es sa) es) #s(literal -1 binary64))))
(*.f64 (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) rone_es) (*.f64 (*.f64 rone_es sa) es))
(*.f64 sa (*.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) rone_es) es) rone_es))
(if.f64 (<=.f64 sa #s(literal 8069530869021589/645562469521727147413979793000752968582426448207305878207664839135161905504210298657411338320034457858975792993186873344 binary64)) (*.f64 sa (*.f64 es (*.f64 (*.f64 sa (*.f64 rone_es (-.f64 #s(literal 2 binary64) es))) rone_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 (-.f64 #s(literal 2 binary64) es))) rone_es)))
(*.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 n0 (tan.f64 (-.f64 (*.f64 #s(literal 4 binary64) (PI.f64)) #s(literal -27401669256311/20000000000000 binary64)))) k0)
(*.f64 (/.f64 k0 (tan.f64 (-.f64 (*.f64 #s(literal 4 binary64) (PI.f64)) #s(literal -27401669256311/20000000000000 binary64)))) n0)
(*.f64 (*.f64 (tan.f64 (-.f64 #s(literal -27401669256311/20000000000000 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) n0) k0)
(*.f64 (*.f64 n0 k0) (tan.f64 (-.f64 #s(literal -27401669256311/20000000000000 binary64) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))
(/.f64 (*.f64 k0 n0) (tan.f64 #s(literal 27401669256311/20000000000000 binary64)))
(*.f64 (/.f64 n0 (tan.f64 #s(literal 27401669256311/20000000000000 binary64))) k0)
(*.f64 (/.f64 k0 (tan.f64 #s(literal 27401669256311/20000000000000 binary64))) n0)
(*.f64 (/.f64 #s(literal -1 binary64) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi0 phi0)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es))) (sqrt.f64 (-.f64 #s(literal 1 binary64) es)))
(/.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 (/.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 (*.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))) (cos.f64 (+.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64)))) 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 (cos.f64 (+.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) #s(literal 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)))))) 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 1000000000000000007630473539575035660514778335511710750780086664439969510636494954611131549135839186513983455555395220895687860544809584999829725260594873271087399626486606146442550988840016917394626449536395208620267012778077787723395914064607119962069483324573977857832138825282954985472 binary64)) (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 u0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 u0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) g) (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))) (neg.f64 alpha))) (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 u0 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) u0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))) (cos.f64 (+.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64)))) 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)))) (cos.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) phi0) (PI.f64)) #s(literal -1/4 binary64)))) (/.f64 (+.f64 (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #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 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) #s(literal 2 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 9007199254704963/9007199254740992 binary64)) (/.f64 (*.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))) (cos.f64 (+.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64)))) 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)))) (cos.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) phi0) (PI.f64)) #s(literal -1/4 binary64)))) (/.f64 (+.f64 (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #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 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) #s(literal 2 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 2 binary64)) (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 u0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 u0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) g) (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))) (neg.f64 alpha))) (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 u0 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) u0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (/.f64 (cos.f64 (+.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64)))) 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)))) (cos.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) phi0) (PI.f64)) #s(literal -1/4 binary64)))) (/.f64 (/.f64 (+.f64 (cos.f64 (+.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) #s(literal 2 binary64)) (cos.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) 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 9007199254704963/9007199254740992 binary64)) (/.f64 (*.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))) (cos.f64 (+.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64)))) 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)))) (cos.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) phi0) (PI.f64)) #s(literal -1/4 binary64)))) (/.f64 (+.f64 (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #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 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) #s(literal 2 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 2 binary64)) (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 u0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 u0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) g) (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))) (neg.f64 alpha))) (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 u0 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) u0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))) (cos.f64 (+.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64)))) 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)))) (cos.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) phi0) (PI.f64)) #s(literal -1/4 binary64)))) (/.f64 (+.f64 (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #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 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) #s(literal 2 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 9007199254704963/9007199254740992 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 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (/.f64 (/.f64 (+.f64 (cos.f64 (+.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) #s(literal 2 binary64)) (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 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 2 binary64)) (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 u0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 u0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) g) (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))) (neg.f64 alpha))) (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 u0 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) u0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))) (cos.f64 (+.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64)))) g) (pow.f64 (/.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (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))))) (cos.f64 (*.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 9007199254704963/9007199254740992 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 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (*.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 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 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 2 binary64)) (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 u0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 u0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) g) (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))) (neg.f64 alpha))) (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 u0 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) u0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))) (cos.f64 (+.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64)))) g) (pow.f64 (/.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (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))))) (cos.f64 (*.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 9007199254704963/9007199254740992 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 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (*.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 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 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 2 binary64)) (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 u0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 u0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) g) (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))) (neg.f64 alpha))) (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 u0 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) u0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 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 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) 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))) (cos.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) phi0) (PI.f64)) #s(literal -1/4 binary64))))) 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 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi0 #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 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))))) 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 1000000000000000007630473539575035660514778335511710750780086664439969510636494954611131549135839186513983455555395220895687860544809584999829725260594873271087399626486606146442550988840016917394626449536395208620267012778077787723395914064607119962069483324573977857832138825282954985472 binary64)) (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 u0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 u0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) g) (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))) (neg.f64 alpha))) (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 u0 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) u0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 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 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) 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))) (cos.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) phi0) (PI.f64)) #s(literal -1/4 binary64))))) 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 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (/.f64 (*.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi0 #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 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))))) 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 1000000000000000007630473539575035660514778335511710750780086664439969510636494954611131549135839186513983455555395220895687860544809584999829725260594873271087399626486606146442550988840016917394626449536395208620267012778077787723395914064607119962069483324573977857832138825282954985472 binary64)) (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 u0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 u0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) g) (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))) (neg.f64 alpha))) (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 u0 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) u0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g) (*.f64 (cos.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))) (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 g #s(literal 1999999999999999966718360446383443429120744550034941072734015228920936835002025109062955753891877483502474776688726210135069014696329147466931020740652171264 binary64)) (*.f64 g (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) (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)))) (neg.f64 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 (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi0 #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 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))))) alpha)))
(/.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 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) alpha) (*.f64 g (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))))))
(*.f64 g (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) (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)))) (neg.f64 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 5000000000000000486031202442672326724878364240237470927923828819955650261110669617194088753258003880396378339073836923076302170214215142647864457235610681184975154073244321423156615667780219280818176 binary64)) (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g) (pow.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/2 binary64) phi0) (PI.f64))) (PI.f64))) (neg.f64 alpha))) (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 u0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (/.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) alpha) (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g))))
(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 5000000000000000486031202442672326724878364240237470927923828819955650261110669617194088753258003880396378339073836923076302170214215142647864457235610681184975154073244321423156615667780219280818176 binary64)) (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g) (pow.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/2 binary64) phi0) (PI.f64))) (PI.f64))) (neg.f64 alpha))) (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 u0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (*.f64 (pow.f64 (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) (neg.f64 alpha)) (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g)))
(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 0 binary64)) (*.f64 (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) (pow.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/2 binary64) phi0) (PI.f64))) (PI.f64))) (neg.f64 alpha))) g) (*.f64 (pow.f64 (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) (neg.f64 alpha)) (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g)))
(*.f64 (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) (pow.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/2 binary64) phi0) (PI.f64))) (PI.f64))) (neg.f64 alpha))) g)
(*.f64 (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))) (neg.f64 alpha))) g)
(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 (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 4230758200257591/21153791001287955166461289857048673274508949854856999017108761448780985319561963066406054734070889115122918784800747465736192 binary64)) (*.f64 (*.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 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) w) #s(literal 1/2 binary64)))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))))) (cos.f64 lam)) (*.f64 sa p22)) (*.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 (*.f64 q (sin.f64 lam)) (sin.f64 lam))))))))))
(if.f64 (<=.f64 (*.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 4230758200257591/21153791001287955166461289857048673274508949854856999017108761448780985319561963066406054734070889115122918784800747465736192 binary64)) (*.f64 (*.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 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) w) #s(literal 1/2 binary64)))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))))) (cos.f64 lam)) (*.f64 sa p22)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 t (sin.f64 lam)) (sin.f64 lam))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))))))))
(if.f64 (<=.f64 (*.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 4230758200257591/21153791001287955166461289857048673274508949854856999017108761448780985319561963066406054734070889115122918784800747465736192 binary64)) (*.f64 (*.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 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) w) #s(literal 1/2 binary64)))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))))) (cos.f64 lam)) (*.f64 sa p22)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))))))))
(if.f64 (<=.f64 (*.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 4230758200257591/21153791001287955166461289857048673274508949854856999017108761448780985319561963066406054734070889115122918784800747465736192 binary64)) (*.f64 (*.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 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) w) #s(literal 1/2 binary64)))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))))) (cos.f64 lam)) (*.f64 sa p22)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 t (sin.f64 lam)) (sin.f64 lam))) (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) w) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))))))))
(if.f64 (<=.f64 (*.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 4230758200257591/21153791001287955166461289857048673274508949854856999017108761448780985319561963066406054734070889115122918784800747465736192 binary64)) (*.f64 (*.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 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) w) #s(literal 1/2 binary64)))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))))) (cos.f64 lam)) (*.f64 sa p22)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) w) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))))))))
(if.f64 (<=.f64 (*.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 4230758200257591/21153791001287955166461289857048673274508949854856999017108761448780985319561963066406054734070889115122918784800747465736192 binary64)) (*.f64 (*.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 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) w) #s(literal 1/2 binary64)))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))))) (cos.f64 lam)) (*.f64 sa p22)) (if.f64 (<=.f64 (*.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 4278419646001971/4503599627370496 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 #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 (*.f64 q (sin.f64 lam)) (sin.f64 lam))))))) (cos.f64 lam))) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) q) #s(literal -1 binary64))))))))))
(if.f64 (<=.f64 (*.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 4230758200257591/21153791001287955166461289857048673274508949854856999017108761448780985319561963066406054734070889115122918784800747465736192 binary64)) (*.f64 (*.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 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) w) #s(literal 1/2 binary64)))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))))) (cos.f64 lam)) (*.f64 sa p22)) (if.f64 (<=.f64 (*.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 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 #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 (*.f64 q (sin.f64 lam)) (sin.f64 lam))))))) (cos.f64 lam))) (*.f64 p22 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fabs.f64 (*.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 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))))) (*.f64 (*.f64 (cos.f64 lam) sa) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 lam) t) (sin.f64 lam)))))))))))
(if.f64 (<=.f64 (*.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 4230758200257591/21153791001287955166461289857048673274508949854856999017108761448780985319561963066406054734070889115122918784800747465736192 binary64)) (*.f64 (*.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 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) w) #s(literal 1/2 binary64)))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))))) (cos.f64 lam)) (*.f64 sa p22)) (if.f64 (<=.f64 (*.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 4278419646001971/4503599627370496 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 #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 (*.f64 q (sin.f64 lam)) (sin.f64 lam))))))) (cos.f64 lam))) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) w) #s(literal -1 binary64)) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) q) #s(literal -1 binary64))))))))))
(if.f64 (<=.f64 (*.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 4230758200257591/21153791001287955166461289857048673274508949854856999017108761448780985319561963066406054734070889115122918784800747465736192 binary64)) (*.f64 (*.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 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) w) #s(literal 1/2 binary64)))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))))) (cos.f64 lam)) (*.f64 sa p22)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) w) #s(literal -1 binary64)) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) q) #s(literal -1 binary64)))))))))
(*.f64 (*.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 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) w) #s(literal 1/2 binary64)))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))))) (cos.f64 lam)) (*.f64 sa p22))
(*.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 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))))) (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)))))))))
(*.f64 (*.f64 p22 (*.f64 (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 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)))))) (cos.f64 lam))) sa)
(*.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 #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 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 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 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 w (sin.f64 lam)) #s(literal -1 binary64))) (sin.f64 lam))))) (-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 w (sin.f64 lam)) #s(literal -1 binary64))) (sin.f64 lam))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (*.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 (*.f64 w (sin.f64 lam)) (sin.f64 lam))))) (-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (*.f64 p22 ca)))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))) (-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))) (*.f64 p22 ca)))
(if.f64 (<=.f64 w #s(literal 200000000000000008376305112842291591798286773328067656628685542361399296 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 (-.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 (sin.f64 lam) q) (sin.f64 lam)) #s(literal -1 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam)))) (*.f64 p22 ca))) (*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 w (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 lam) #s(literal -2 binary64))))))) (-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (/.f64 #s(literal 1 binary64) (pow.f64 (sin.f64 lam) #s(literal -2 binary64))))) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)))) (*.f64 p22 ca))))
(if.f64 (<=.f64 w #s(literal 1999999999999999890644667736494890251419293140042495849331683229696 binary64)) (/.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 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam))) #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 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))))
(if.f64 (<=.f64 w #s(literal 399999999999999990819805306098134651378737087969660002451998389892797380872315964521304517792604618752 binary64)) (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam))) #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 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 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)))))))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 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))))))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #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 (*.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 (*.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 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)))) (-.f64 (/.f64 (/.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 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 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)))) (*.f64 p22 ca)))
(*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 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 (/.f64 (/.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 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 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)))) (*.f64 p22 ca)))
(/.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 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 #s(literal -1 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) q) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam))) q))) #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 #s(literal 1/2 binary64) q) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam))) q))) (-.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 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (-.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) w) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam))) w)) #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 #s(literal 1/2 binary64) w) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam))) w))))))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 #s(literal -1 binary64) (*.f64 (+.f64 q (*.f64 (neg.f64 (cos.f64 (+.f64 lam lam))) q)) #s(literal 1/2 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 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)))))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 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 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)))))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 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 (*.f64 (*.f64 (neg.f64 mult) s) (*.f64 s (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))) (*.f64 (*.f64 xj (/.f64 #s(literal 1 binary64) (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s))))) (*.f64 h mult)))
(*.f64 mult (/.f64 (-.f64 (*.f64 h xj) (*.f64 s s)) (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))
(if.f64 (<=.f64 e #s(literal -22999999999999999001039926326419776719211201546724876874039335800597457129342923547709552051746243890215526725345776786542197825601536 binary64)) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (-.f64 (*.f64 (cos.f64 (+.f64 (+.f64 phi (*.f64 (PI.f64) #s(literal 1/2 binary64))) (PI.f64))) e) #s(literal -1 binary64))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal 2400000000000000056566482034008613999798878708136516471511790094243876004318788158235942467821878824629553856512 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))) (/.f64 (cos.f64 phi) (-.f64 (sin.f64 phi) #s(literal -1 binary64)))) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 (+.f64 phi (*.f64 (PI.f64) #s(literal 1/2 binary64))) (PI.f64))) e) #s(literal 1 binary64))) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal -1 binary64))) (*.f64 #s(literal 1/2 binary64) e)))))
(if.f64 (<=.f64 e #s(literal -22999999999999999001039926326419776719211201546724876874039335800597457129342923547709552051746243890215526725345776786542197825601536 binary64)) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (-.f64 (*.f64 (cos.f64 (+.f64 (+.f64 phi (*.f64 (PI.f64) #s(literal 1/2 binary64))) (PI.f64))) e) #s(literal -1 binary64))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal 2400000000000000056566482034008613999798878708136516471511790094243876004318788158235942467821878824629553856512 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 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 (+.f64 phi (*.f64 (PI.f64) #s(literal 1/2 binary64))) (PI.f64))) e) #s(literal 1 binary64))) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal -1 binary64))) (*.f64 #s(literal 1/2 binary64) e)))))
(if.f64 (<=.f64 e #s(literal -22999999999999999001039926326419776719211201546724876874039335800597457129342923547709552051746243890215526725345776786542197825601536 binary64)) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (-.f64 (*.f64 (cos.f64 (+.f64 (+.f64 phi (*.f64 (PI.f64) #s(literal 1/2 binary64))) (PI.f64))) e) #s(literal -1 binary64))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal 700000000000000033169659690240613213295632470482168174236156111249819443132486650335073110377862260588544 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 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 (+.f64 phi (*.f64 (PI.f64) #s(literal 1/2 binary64))) (PI.f64))) e) #s(literal 1 binary64))) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal -1 binary64))) (*.f64 #s(literal 1/2 binary64) e)))))
(if.f64 (<=.f64 e #s(literal 700000000000000033169659690240613213295632470482168174236156111249819443132486650335073110377862260588544 binary64)) (*.f64 (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (-.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 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 (+.f64 phi (*.f64 (PI.f64) #s(literal 1/2 binary64))) (PI.f64))) e) #s(literal 1 binary64))) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal -1 binary64))) (*.f64 #s(literal 1/2 binary64) e))))
(*.f64 (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (-.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 (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 #s(literal -4668270147/10000000000000000 binary64) Xr) (+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (*.f64 Xr Yr))) (+.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (-.f64 (*.f64 Xr Xr) (*.f64 Yr Yr))) (+.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) (*.f64 Xr (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr))))) (+.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) (*.f64 Yr (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr)))) (+.f64 (*.f64 (*.f64 #s(literal -4165541759/500000000000000000000000000000000 binary64) (*.f64 (*.f64 Xr Xr) Xr)) Xr) (-.f64 (*.f64 (*.f64 #s(literal -4165541759/500000000000000000000000000000000 binary64) Yr) (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))) Yr)) (*.f64 #s(literal -3689471323/250000000000000000000000000000000 binary64) (*.f64 (*.f64 (-.f64 Xr Yr) (+.f64 Xr Yr)) (*.f64 Xr Yr))))))))))))
(+.f64 #s(literal 9827991/390625000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Yr) (+.f64 (*.f64 #s(literal -4668270147/10000000000000000 binary64) Xr) (+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (*.f64 Xr Yr))) (+.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (-.f64 (*.f64 Xr Xr) (*.f64 Yr Yr))) (+.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) (*.f64 Xr (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr))))) (+.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) (*.f64 Yr (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr)))) (+.f64 (*.f64 (*.f64 #s(literal -4165541759/500000000000000000000000000000000 binary64) (*.f64 (*.f64 Xr Xr) Xr)) Xr) (-.f64 (*.f64 Yr (*.f64 Yr (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))) #s(literal -4165541759/500000000000000000000000000000000 binary64)))) (*.f64 #s(literal -3689471323/250000000000000000000000000000000 binary64) (*.f64 (*.f64 (-.f64 Xr Yr) (+.f64 Xr Yr)) (*.f64 Xr Yr))))))))))))
(-.f64 (-.f64 (-.f64 (*.f64 Yr #s(literal 149230739/1250000000000000 binary64)) #s(literal -9827991/390625000 binary64)) (-.f64 (*.f64 #s(literal -4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal -4165541759/500000000000000000000000000000000 binary64) Xr) Xr) Xr) Xr) (+.f64 (-.f64 (-.f64 (*.f64 (*.f64 (*.f64 #s(literal -3689471323/250000000000000000000000000000000 binary64) Xr) Yr) (*.f64 (+.f64 Xr Yr) (-.f64 Xr Yr))) (*.f64 (*.f64 #s(literal -4165541759/500000000000000000000000000000000 binary64) (*.f64 Yr Yr)) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))))) (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr)))) (-.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 #s(literal 4668270147/10000000000000000 binary64) Xr))
(-.f64 (-.f64 (-.f64 (*.f64 Yr #s(literal 149230739/1250000000000000 binary64)) #s(literal -9827991/390625000 binary64)) (-.f64 (*.f64 #s(literal -4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)) (-.f64 (*.f64 (*.f64 (*.f64 #s(literal -4165541759/500000000000000000000000000000000 binary64) (*.f64 Xr Xr)) Xr) Xr) (+.f64 (-.f64 (-.f64 (*.f64 (*.f64 (*.f64 #s(literal -3689471323/250000000000000000000000000000000 binary64) Xr) Yr) (*.f64 (+.f64 Xr Yr) (-.f64 Xr Yr))) (*.f64 (*.f64 #s(literal -4165541759/500000000000000000000000000000000 binary64) (*.f64 Yr Yr)) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))))) (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr)))) (-.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 #s(literal 4668270147/10000000000000000 binary64) Xr))
(-.f64 (-.f64 (-.f64 (*.f64 Yr #s(literal 149230739/1250000000000000 binary64)) #s(literal -9827991/390625000 binary64)) (-.f64 (*.f64 #s(literal -4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)) (+.f64 (-.f64 (-.f64 (+.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 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr))) (*.f64 (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr)) (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) Xr))) (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr))))) (*.f64 #s(literal 4668270147/10000000000000000 binary64) 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 (*.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 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr))) (*.f64 (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr)) (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) Xr)))) (*.f64 (*.f64 (-.f64 Yr Xr) (+.f64 Xr Yr)) #s(literal 304747143/200000000000000000000 binary64)))))
(-.f64 (-.f64 (-.f64 (*.f64 Xr #s(literal 149230739/1250000000000000 binary64)) #s(literal -2946529277/100000000000 binary64)) (-.f64 (*.f64 #s(literal 304747143/100000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 Yr #s(literal 4668270147/10000000000000000 binary64)))) (-.f64 (-.f64 (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Xr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr))) (-.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -3689471323/1000000000000000000000000000000000 binary64) (*.f64 (*.f64 Xr Xr) Xr)) Xr) (*.f64 (*.f64 (*.f64 #s(literal -3689471323/1000000000000000000000000000000000 binary64) Yr) Yr) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))))) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Xr Yr) (+.f64 Yr Xr)))) (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) Yr)))) (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Xr Yr))))
(-.f64 (-.f64 (-.f64 (*.f64 Xr #s(literal 149230739/1250000000000000 binary64)) #s(literal -2946529277/100000000000 binary64)) (-.f64 (*.f64 #s(literal 304747143/100000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 Yr #s(literal 4668270147/10000000000000000 binary64)))) (-.f64 (-.f64 (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Xr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr))) (-.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -3689471323/1000000000000000000000000000000000 binary64) (*.f64 (*.f64 Xr Xr) Xr)) Xr) (*.f64 (*.f64 #s(literal -3689471323/1000000000000000000000000000000000 binary64) (*.f64 Yr Yr)) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))))) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Xr Yr) (+.f64 Yr Xr)))) (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) Yr)))) (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Xr Yr))))
(-.f64 (-.f64 (-.f64 (*.f64 Xr #s(literal 149230739/1250000000000000 binary64)) #s(literal -2946529277/100000000000 binary64)) (-.f64 (*.f64 #s(literal 304747143/100000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 Yr #s(literal 4668270147/10000000000000000 binary64)))) (-.f64 (-.f64 (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Xr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr))) (-.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 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 Xr Yr) (+.f64 Yr Xr)))) (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) Yr)))) (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Xr Yr))))
(-.f64 (-.f64 (-.f64 (*.f64 Xr #s(literal 149230739/1250000000000000 binary64)) #s(literal -2946529277/100000000000 binary64)) (-.f64 (*.f64 #s(literal 304747143/100000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 Yr #s(literal 4668270147/10000000000000000 binary64)))) (-.f64 (-.f64 (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Xr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr))) (-.f64 (+.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 Xr Yr) (+.f64 Yr Xr)))) (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) Yr)))) (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.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 #s(literal -4668270147/10000000000000000 binary64) Yr)) (-.f64 (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Xr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr))) (-.f64 (+.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 Xr Yr) (+.f64 Yr Xr)))) (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) Yr))))) (*.f64 (*.f64 (-.f64 Yr Xr) (+.f64 Yr Xr)) #s(literal 4616990181/500000000000000000000 binary64)))))
(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 (+.f64 (/.f64 #s(literal 1 binary64) n) #s(literal 1 binary64)) #s(literal 1 binary64))))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(+.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 n (*.f64 n n))))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(+.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 (/.f64 (-.f64 (-.f64 Up #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (-.f64 #s(literal -1 binary64) Up))) Esc)
(*.f64 (sqrt.f64 (/.f64 (-.f64 Up #s(literal 1 binary64)) (-.f64 #s(literal -1 binary64) Up))) Esc)
(+.f64 (*.f64 (atan.f64 (/.f64 #s(literal 1 binary64) (exp.f64 (/.f64 (neg.f64 y) kR)))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(+.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 (*.f64 (cos.f64 lampp) sinp0) (cos.f64 phipp)) (*.f64 (sin.f64 phipp) cosp0)))
(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 5764607523034235/1152921504606846976 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (*.f64 (/.f64 #s(literal 1 binary64) (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)))) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (*.f64 (pow.f64 (/.f64 (sin.f64 (-.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (sin.f64 (-.f64 (*.f64 u #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (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 1/4 binary64)))))
(*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (*.f64 (pow.f64 (/.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (sin.f64 (-.f64 (*.f64 u #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (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 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (-.f64 (*.f64 u #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (/.f64 #s(literal 1 binary64) alpha)) (*.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 k (/.f64 #s(literal -1 binary64) alpha))))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))
(if.f64 (<=.f64 k #s(literal 3152519739159347/18014398509481984 binary64)) (+.f64 (*.f64 (atan.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))) (*.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 u #s(literal 1/2 binary64)))) (/.f64 #s(literal -1 binary64) alpha)) (pow.f64 k (/.f64 #s(literal 1 binary64) alpha))))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64))) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) u))) (/.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)))))
(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 -3/2 binary64)) (*.f64 (-.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 k (/.f64 #s(literal -1 binary64) alpha))) (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)) (+.f64 (*.f64 (atan.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))) (*.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 u #s(literal 1/2 binary64)))) (/.f64 #s(literal -1 binary64) alpha)) (pow.f64 k (/.f64 #s(literal 1 binary64) alpha))))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64))))
(if.f64 (<=.f64 k #s(literal 3152519739159347/18014398509481984 binary64)) (-.f64 (*.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 k (/.f64 #s(literal -1 binary64) alpha))) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 u #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) alpha)))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (-.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 k (/.f64 #s(literal -1 binary64) alpha))) (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)))
(*.f64 (-.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 k (/.f64 #s(literal -1 binary64) alpha))) (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))
(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 (cos.f64 lamt) (/.f64 (tan.f64 lamdp) one_es)) (/.f64 (*.f64 (sin.f64 lamt) ca) one_es)) 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 #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 (/.f64 #s(literal 1 binary64) (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 (-.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 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lamdp lamdp)))) #s(literal 1/2 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))) (tan.f64 lamdp)) ca) (*.f64 sa (/.f64 (*.f64 (sqrt.f64 (-.f64 (*.f64 (-.f64 (*.f64 spp spp) #s(literal 1 binary64)) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lamdp lamdp)))))) (*.f64 u (*.f64 spp 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 (*.f64 sa spp) (/.f64 (sqrt.f64 (-.f64 (*.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lamdp lamdp)))) #s(literal 1/2 binary64))) (-.f64 (*.f64 spp spp) #s(literal 1 binary64))) (*.f64 u (*.f64 spp spp)))) (cos.f64 lamdp)))) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal -1 binary64) u) spp) spp) #s(literal -1 binary64))))
(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 (-.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 -inf.0 binary64)) (-.f64 (/.f64 (*.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4) xj) (-.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)))) #s(literal -1 binary64)) (*.f64 b xj)) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) (/.f64 a2 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 9999999999999999860310597602564577717002641838126363875249660735883565852672743849064846414228960666786379280392654615393353172850252103336275952370615397010730691664689375178569039851073146339641623266071126720011020169553304018596457812688561947201171488461172921822139066929851282122002676667750021070848 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 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))) b) (-.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)) b) (*.f64 (/.f64 s (*.f64 b xj)) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1))))))
(if.f64 (<=.f64 (/.f64 s xj) #s(literal 5000000000000000085887661936088595590196552042152727553866164222600015631390942710041313371430586591361272979771771417393465563222586503124817274732544 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 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4) xj) (-.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)))) #s(literal -1 binary64)) (*.f64 b xj)) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) (/.f64 a2 b))))
(if.f64 (<=.f64 (/.f64 s xj) #s(literal 5000000000000000085887661936088595590196552042152727553866164222600015631390942710041313371430586591361272979771771417393465563222586503124817274732544 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 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64))))))) b) (-.f64 (/.f64 (*.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4) xj) (-.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)))) #s(literal -1 binary64)) (*.f64 b xj)) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) (/.f64 a2 b))))
(if.f64 (<=.f64 (/.f64 s xj) #s(literal 100000000000000003284156248920492607898701256635961169551231342625874700689878799554400131562772741268394950478432243557864849063421149184 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 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))) b) (/.f64 (-.f64 (*.f64 (-.f64 (-.f64 (+.f64 (*.f64 s (/.f64 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 100000000000000003284156248920492607898701256635961169551231342625874700689878799554400131562772741268394950478432243557864849063421149184 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 s (/.f64 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 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 9999999999999999860310597602564577717002641838126363875249660735883565852672743849064846414228960666786379280392654615393353172850252103336275952370615397010730691664689375178569039851073146339641623266071126720011020169553304018596457812688561947201171488461172921822139066929851282122002676667750021070848 binary64)) (/.f64 (+.f64 (+.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 #s(literal 4 binary64) lamdp)) a4)) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (neg.f64 b)) (/.f64 (-.f64 (*.f64 (-.f64 (-.f64 (+.f64 (*.f64 s (/.f64 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 (*.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 #s(literal 4 binary64) lamdp)) a4)) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (neg.f64 b))
(neg.f64 (*.f64 rB (atan2.f64 (-.f64 (*.f64 Sp cosgam) (*.f64 Vp singam)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 u BrA))))))
(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 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64))) c3)) (sqrt.f64 (-.f64 (*.f64 (/.f64 s (*.f64 xj xj)) s) #s(literal -1 binary64)))))
(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 con (-.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) phip)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip)))))) (log.f64 (fabs.f64 (sin.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))))))) (*.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 (-.f64 (log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal -1/4 binary64))) (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #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)) con) (-.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 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal -1/4 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)) con) (-.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 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal -1/4 binary64)))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip))))) (*.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)) con) (-.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))
(if.f64 (<=.f64 phip #s(literal -6084722881095501/10141204801825835211973625643008 binary64)) (*.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 (-.f64 (log.f64 (fabs.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64))))) (log.f64 (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)) (if.f64 (<=.f64 phip #s(literal 8746789141574783/2535301200456458802993406410752 binary64)) (*.f64 (-.f64 (+.f64 con (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)))) (*.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 (*.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 (-.f64 (log.f64 (fabs.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64))))) (log.f64 (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))))
(if.f64 (<=.f64 phip #s(literal -6084722881095501/10141204801825835211973625643008 binary64)) (*.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 (*.f64 #s(literal 1 binary64) (log.f64 (fabs.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)) (if.f64 (<=.f64 phip #s(literal 15500000000000000343396057088 binary64)) (*.f64 (-.f64 (+.f64 con (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)))) (*.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 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))))) (*.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 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))))) (*.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 (*.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 (*.f64 #s(literal 1 binary64) (log.f64 (fabs.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))
(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 9999999999999999363587069377675917736425707327570073564839440723358156278052707548893386994586947577981035182609405692455150664165314335743772262409420005560181719702721238568128862437403998276353831973920663150777435958293799716241167969694049028276224 binary64)) (*.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 (PI.f64)) phip) #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 (-.f64 con (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.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 (-.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))
(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 9999999999999999363587069377675917736425707327570073564839440723358156278052707548893386994586947577981035182609405692455150664165314335743772262409420005560181719702721238568128862437403998276353831973920663150777435958293799716241167969694049028276224 binary64)) (*.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 (PI.f64)) phip) #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 #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)) (*.f64 rone_es (-.f64 (-.f64 con (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.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 (*.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 (PI.f64)) phip) #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 (-.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 (/.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sin.f64 (*.f64 phip #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.f64))))))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))))) c)
(*.f64 (/.f64 #s(literal 1 binary64) c) (-.f64 K (log.f64 (/.f64 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sin.f64 (*.f64 phip #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.f64))))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip)))) #s(literal -4951760157141521/9903520314283042199192993792 binary64)) (/.f64 (-.f64 K (-.f64 #s(literal 0 binary64) (log.f64 (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) c) (/.f64 (-.f64 K (log.f64 (/.f64 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip)) (*.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 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64)))))))))) c))
(/.f64 (-.f64 K (log.f64 (/.f64 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.f64))))))))) c)
(/.f64 (-.f64 K (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.f64))))))) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 phip #s(literal 1/2 binary64))))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))) c)
(*.f64 (/.f64 #s(literal 1 binary64) c) (-.f64 K (log.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 phip #s(literal 1/2 binary64))))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.f64))))))))))
(/.f64 (-.f64 K (log.f64 (/.f64 (fabs.f64 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip)) (*.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)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))))) (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))) #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 1/2 binary64))))) c)
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))) #s(literal 1125899906842061/1125899906842624 binary64)) (/.f64 (-.f64 K (-.f64 #s(literal 0 binary64) (log.f64 (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 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 1125899906842061/1125899906842624 binary64)) (/.f64 (-.f64 K (-.f64 #s(literal 0 binary64) (log.f64 (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) c) (/.f64 (-.f64 K (log.f64 (pow.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal -1 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 9007199054957987/81129638414606681695789005144064 binary64)) (/.f64 (-.f64 K (-.f64 #s(literal 0 binary64) (log.f64 (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 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 8286623314361713/18014398509481984 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 c c)) (*.f64 c (-.f64 K (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))) (/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 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 9007199054957987/81129638414606681695789005144064 binary64)) (/.f64 (-.f64 K (-.f64 #s(literal 0 binary64) (log.f64 (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 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 8286623314361713/18014398509481984 binary64)) (*.f64 c (/.f64 (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (*.f64 c c))) (/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 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 c) (/.f64 (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 8286623314361713/18014398509481984 binary64)) (*.f64 c (/.f64 (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (*.f64 c c))) (/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 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 -7737125245533627/77371252455336267181195264 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 8286623314361713/18014398509481984 binary64)) (*.f64 c (/.f64 (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (*.f64 c c))) (/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 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 2251799813685255/20282409603651670423947251286016 binary64)) (*.f64 c (/.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64)))))) (*.f64 c c))) (/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))))))) c)))
(/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))))))) 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 13/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64)))))) c)
(if.f64 (<=.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) #s(literal -inf.0 binary64)) (+.f64 (*.f64 (/.f64 cosgam Tp) Vp) (*.f64 (/.f64 Sp Tp) singam)) (if.f64 (<=.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) #s(literal 10000000000000000617278335278671568869943723109630112583100528505388133765396715589425391709444647966943104584514912613103459078543395617173821153536698722855425910210916188218613474303381375362727338596024627724499484625789034803081540112423670420191213257583185130503608895092113260150784 binary64)) (/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp) (+.f64 (*.f64 (/.f64 cosgam Tp) Vp) (*.f64 (/.f64 Sp Tp) singam))))
(if.f64 (<=.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) #s(literal -inf.0 binary64)) (+.f64 (*.f64 (/.f64 Sp Tp) singam) (*.f64 (/.f64 Vp Tp) cosgam)) (if.f64 (<=.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) #s(literal 10000000000000000617278335278671568869943723109630112583100528505388133765396715589425391709444647966943104584514912613103459078543395617173821153536698722855425910210916188218613474303381375362727338596024627724499484625789034803081540112423670420191213257583185130503608895092113260150784 binary64)) (/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp) (+.f64 (*.f64 (/.f64 Sp Tp) singam) (*.f64 (/.f64 Vp Tp) cosgam))))
(/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp)
(exp.f64 (neg.f64 (*.f64 BrA v)))
(*.f64 ArB (log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/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 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0))))) (*.f64 (-.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 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0)))) (*.f64 (sin.f64 (*.f64 gamma0 #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 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/2 binary64)))))))))
(*.f64 ArB (log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/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 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0))))) (*.f64 (-.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 (sin.f64 (*.f64 gamma0 #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 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/2 binary64)))))))))
(*.f64 ArB (neg.f64 (log.f64 (/.f64 (*.f64 (+.f64 (sin.f64 (-.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (fabs.f64 (*.f64 (sin.f64 (-.f64 (*.f64 gamma0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (-.f64 (*.f64 (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))))))
(if.f64 (<=.f64 gamma0 #s(literal 5703700733736561/4074071952668972172536891376818756322102936787331872501272280898708762599526673412366794752 binary64)) (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (tan.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64))) #s(literal -1 binary64)))) ArB) (*.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (*.f64 (-.f64 (-.f64 (PI.f64) gamma0) gamma0) #s(literal 1/4 binary64)))) (fabs.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (+.f64 gamma0 gamma0) (PI.f64))))))) ArB))
(if.f64 (<=.f64 gamma0 #s(literal 5703700733736561/4074071952668972172536891376818756322102936787331872501272280898708762599526673412366794752 binary64)) (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (tan.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64))) #s(literal -1 binary64)))) ArB) (*.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64)))) (fabs.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (+.f64 gamma0 gamma0) (PI.f64))))))) ArB))
(if.f64 (<=.f64 gamma0 #s(literal 5703700733736561/4074071952668972172536891376818756322102936787331872501272280898708762599526673412366794752 binary64)) (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (tan.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64))) #s(literal -1 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 (fabs.f64 (*.f64 (sin.f64 (-.f64 (*.f64 gamma0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (-.f64 (*.f64 (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) (*.f64 (+.f64 (cos.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/2 binary64))) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))
(*.f64 ArB (neg.f64 (log.f64 (*.f64 (/.f64 #s(literal 1/2 binary64) (fabs.f64 (*.f64 (*.f64 (-.f64 (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0))) (*.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 (cos.f64 (*.f64 (-.f64 (+.f64 gamma0 gamma0) (PI.f64)) #s(literal 1/2 binary64))) #s(literal -1 binary64))))))
(*.f64 ArB (log.f64 (/.f64 (fabs.f64 (*.f64 (*.f64 (-.f64 (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0))) (*.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 (-.f64 (cos.f64 (*.f64 (-.f64 (+.f64 gamma0 gamma0) (PI.f64)) #s(literal 1/2 binary64))) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))
(if.f64 (<=.f64 gamma0 #s(literal 5703700733736561/4074071952668972172536891376818756322102936787331872501272280898708762599526673412366794752 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 (log.f64 (/.f64 (*.f64 (*.f64 (-.f64 (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0))) (*.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 (-.f64 (cos.f64 (*.f64 (-.f64 (+.f64 gamma0 gamma0) (PI.f64)) #s(literal 1/2 binary64))) #s(literal -1 binary64)) #s(literal -1/2 binary64)))) ArB)
(*.f64 (log.f64 (sinh.f64 (atanh.f64 (fabs.f64 (sin.f64 (*.f64 (-.f64 (+.f64 gamma0 gamma0) (PI.f64)) #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 (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 #s(literal 1 binary64) (/.f64 (+.f64 H L) (-.f64 L H)))
(/.f64 (-.f64 L H) (+.f64 L H))
(-.f64 (*.f64 (+.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) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 B (atan.f64 (*.f64 (/.f64 J p) (tan.f64 (*.f64 (*.f64 B #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 (*.f64 #s(literal 1/2 binary64) (+.f64 lam1 (if.f64 (<.f64 (-.f64 lam1 lam2) (neg.f64 (PI.f64))) (-.f64 (+.f64 (PI.f64) lam2) (neg.f64 (PI.f64))) (if.f64 (>.f64 (-.f64 lam1 lam2) (PI.f64)) (-.f64 lam2 (+.f64 (PI.f64) (PI.f64))) lam2)))) (/.f64 (atan.f64 (*.f64 (/.f64 J p) (tan.f64 (*.f64 (*.f64 B #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))))))) B))
(-.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 #s(literal 1/2 binary64) (-.f64 F (/.f64 #s(literal 1 binary64) F))) (tan.f64 gamma0))) B))
(/.f64 k0 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) one_es)) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 phi0 phi0)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 ecc ecc)) #s(literal -1 binary64))))
(/.f64 (*.f64 (sqrt.f64 one_es) k0) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 phi0 phi0)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 ecc ecc)) #s(literal -1 binary64)))
(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 (pow.f64 (cos.f64 phi0) #s(literal -4 binary64)) (*.f64 rone_es es)) (pow.f64 (cos.f64 phi0) #s(literal -4 binary64))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 phi0) #s(literal -4 binary64))) (*.f64 rone_es es))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (/.f64 es (pow.f64 (cos.f64 phi0) #s(literal -4 binary64))) rone_es)))
(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 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es) rone_es)))
(asin.f64 (*.f64 D (sin.f64 gamma0)))
(-.f64 (*.f64 #s(literal 1 binary64) (log.f64 (fabs.f64 (-.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.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 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (*.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 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 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0))) #s(literal 5404319552844595/9007199254740992 binary64)) (-.f64 (*.f64 #s(literal 1 binary64) (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 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.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) 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 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))))))))) (-.f64 (log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) #s(literal -1 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))))))))))
(-.f64 (*.f64 #s(literal 1 binary64) (log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip0) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) #s(literal -1 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 c #s(literal 4800000000000000134217728 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.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 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (*.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 c (-.f64 (log.f64 (-.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.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))))))))) (-.f64 (*.f64 #s(literal 1 binary64) (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 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.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) 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 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))))))))))
(-.f64 (*.f64 #s(literal 1 binary64) (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 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.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) 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 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 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) #s(literal 1152921504606847/1152921504606846976 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 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.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) 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 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))))))))) (-.f64 (*.f64 #s(literal 1 binary64) (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 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.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 #s(literal 1 binary64) (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 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.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)))))))))
(-.f64 (*.f64 #s(literal 1 binary64) (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 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.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 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip0))))))) (*.f64 c (-.f64 (*.f64 #s(literal 1 binary64) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.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 #s(literal 1 binary64) (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 (*.f64 #s(literal 1 binary64) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.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 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip0)))) (*.f64 (-.f64 (*.f64 #s(literal 1 binary64) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0)))))) (*.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)) 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 (*.f64 #s(literal 1 binary64) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.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 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip0) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (*.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 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip0)))) (*.f64 (-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0)))) (*.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)) 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 (*.f64 (/.f64 E_var (neg.f64 (-.f64 (*.f64 (neg.f64 H) L) (*.f64 E_var E_var)))) E_var) (*.f64 L (/.f64 H (neg.f64 (-.f64 (*.f64 (neg.f64 H) L) (*.f64 E_var E_var))))))
(-.f64 (*.f64 (/.f64 E_var (+.f64 (*.f64 H L) (*.f64 E_var E_var))) E_var) (*.f64 L (/.f64 H (+.f64 (*.f64 H L) (*.f64 E_var E_var)))))
(/.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 (+.f64 (E.f64) (E.f64)) (fabs.f64 (-.f64 D #s(literal 1 binary64))))) (sqrt.f64 (/.f64 (fabs.f64 (-.f64 D #s(literal -1 binary64))) (+.f64 (E.f64) (E.f64)))))) (*.f64 (sqrt.f64 (*.f64 (+.f64 (E.f64) (E.f64)) (fabs.f64 (-.f64 D #s(literal 1 binary64))))) (sqrt.f64 (/.f64 (fabs.f64 (-.f64 D #s(literal -1 binary64))) (+.f64 (E.f64) (E.f64)))))))
(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 (-.f64 #s(literal 1 binary64) D) #s(literal -2 binary64)))) (sqrt.f64 (fabs.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 D #s(literal -1 binary64))))))) (*.f64 (sqrt.f64 (fabs.f64 (*.f64 (-.f64 #s(literal 1 binary64) D) #s(literal -2 binary64)))) (sqrt.f64 (fabs.f64 (*.f64 #s(literal 1/2 binary64) (-.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)) (*.f64 #s(literal 1 binary64) (neg.f64 (sqrt.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 (-.f64 D #s(literal -1 binary64)) D) (-.f64 D #s(literal -1 binary64))))) (sqrt.f64 (-.f64 (*.f64 (-.f64 D #s(literal -1 binary64)) D) (-.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 (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)))) (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)))))
(/.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 com (*.f64 (sqrt.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) es) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))))) one_es) (+.f64 (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es) one_es))) (cos.f64 phi0)))
(*.f64 (/.f64 com (cos.f64 phi0)) (sqrt.f64 (/.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es) one_es) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) es) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))))) one_es))))
(sqrt.f64 (/.f64 (+.f64 (/.f64 es (pow.f64 (cos.f64 phi0) #s(literal -4 binary64))) one_es) one_es))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (cos.f64 phi0) #s(literal -4 binary64)) one_es)) 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 1764020109474739/452312848583266388373324160190187140051835877600158453279131187530910662656 binary64)) (*.f64 kR (log.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (+.f64 (PI.f64) (PI.f64))) (PI.f64)) (PI.f64))))) (*.f64 kR (+.f64 (log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fabs.f64 (*.f64 (+.f64 (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) #s(literal -1 binary64)))) (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (-.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 phipp #s(literal 1764020109474739/452312848583266388373324160190187140051835877600158453279131187530910662656 binary64)) (*.f64 kR (log.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (+.f64 (PI.f64) (PI.f64))) (PI.f64)) (PI.f64))))) (*.f64 kR (+.f64 (log.f64 (fabs.f64 (+.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (-.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 phipp #s(literal 1/2 binary64)))))))))))
(if.f64 (<=.f64 phipp #s(literal 1764020109474739/452312848583266388373324160190187140051835877600158453279131187530910662656 binary64)) (*.f64 kR (log.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (+.f64 (PI.f64) (PI.f64))) (PI.f64)) (PI.f64))))) (*.f64 kR (+.f64 (log.f64 (fabs.f64 (*.f64 (+.f64 (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (-.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 (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (-.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))) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)) #s(literal -1 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (neg.f64 (PI.f64))))))))))))
(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 -6070840288205403/60708402882054033466233184588234965832575213720379360039119137804340758912662765568 binary64)) (*.f64 kR (+.f64 (log.f64 (fabs.f64 (+.f64 (*.f64 (*.f64 (neg.f64 (sin.f64 (+.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))))))) (*.f64 kR (log.f64 (-.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (PI.f64) (*.f64 #s(literal -1/2 binary64) phipp)))) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (PI.f64)))) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (*.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 -6070840288205403/60708402882054033466233184588234965832575213720379360039119137804340758912662765568 binary64)) (*.f64 kR (+.f64 (log.f64 (fabs.f64 (+.f64 (*.f64 (*.f64 (neg.f64 (sin.f64 (+.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))))))) (*.f64 kR (+.f64 (log.f64 (fabs.f64 (+.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phipp (PI.f64))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (PI.f64)))))))))
(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 -6070840288205403/60708402882054033466233184588234965832575213720379360039119137804340758912662765568 binary64)) (*.f64 kR (+.f64 (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))))) (log.f64 (fabs.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (neg.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))))))))) (*.f64 kR (+.f64 (log.f64 (fabs.f64 (+.f64 (*.f64 (*.f64 (neg.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64)) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phipp (PI.f64))) (*.f64 #s(literal 1/4 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) phipp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (*.f64 kR (log.f64 (fabs.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (sin.f64 (neg.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) phipp)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (PI.f64))))) (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 #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 -3602879701896397/72057594037927936 binary64)) (*.f64 (log.f64 (fabs.f64 (*.f64 (/.f64 (+.f64 (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) kR) (*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (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 -3602879701896397/72057594037927936 binary64)) (*.f64 kR (log.f64 (fabs.f64 (/.f64 (*.f64 (+.f64 (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #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 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (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 -2028240960365167/20282409603651670423947251286016 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 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))))))
(*.f64 kR (log.f64 (fabs.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (+.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) phipp)) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (PI.f64))))) (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))))
(if.f64 (<=.f64 phipp #s(literal 1764020109474739/452312848583266388373324160190187140051835877600158453279131187530910662656 binary64)) (*.f64 kR (log.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (+.f64 (PI.f64) (PI.f64))) (PI.f64)) (PI.f64))))) (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phipp))))) kR) #s(literal -1 binary64))))
(if.f64 (<=.f64 phipp #s(literal 1764020109474739/452312848583266388373324160190187140051835877600158453279131187530910662656 binary64)) (*.f64 kR (log.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (+.f64 (PI.f64) (PI.f64))) (PI.f64)) (PI.f64))))) (/.f64 kR (/.f64 #s(literal 1 binary64) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phipp))))))))
(if.f64 (<=.f64 phipp #s(literal 1764020109474739/452312848583266388373324160190187140051835877600158453279131187530910662656 binary64)) (*.f64 kR (log.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (+.f64 (PI.f64) (PI.f64))) (PI.f64)) (PI.f64))))) (*.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phipp))))) kR))
(*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.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 -3511119404027961/175555970201398037864189960037990696642380564349834626243584063630598316216309534309285622385163609395625111210811907575838661883607828732903171318983861449587663958422720200465138886329341888788528401320395513446131006525725061407689368272012526598792334483090416306874948482361796597953940777665648656384 binary64)) (*.f64 (log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))) kR) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))))))
(*.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phipp))))) kR)
(*.f64 (log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))) kR)
(*.f64 kR (log.f64 (tan.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))
(*.f64 kR (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 9/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phipp)))))
(+.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)))))))
(if.f64 (<=.f64 tanph #s(literal -6690223559559187/5575186299632655785383929568162090376495104 binary64)) (+.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 xj tanph) (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj)))) (*.f64 (sin.f64 lamdp) (+.f64 c1 (*.f64 (-.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))))) c3)))))
(+.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))
(-.f64 (+.f64 (+.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (*.f64 lamdp b)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) (*.f64 s (/.f64 tanph (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj))))))
(if.f64 (<=.f64 one_es #s(literal -9999999999999999594167244563503627314919960896484514396697390098067039229509544255160320 binary64)) (+.f64 (*.f64 one_es (/.f64 (*.f64 sa 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)))
(if.f64 (<=.f64 one_es #s(literal -9999999999999999594167244563503627314919960896484514396697390098067039229509544255160320 binary64)) (+.f64 (*.f64 one_es (/.f64 (*.f64 sa tanphi) (cos.f64 lamt))) (*.f64 (tan.f64 lamt) ca)) (+.f64 (*.f64 tanphi (*.f64 (/.f64 one_es (cos.f64 lamt)) sa)) (*.f64 (tan.f64 lamt) ca)))
(+.f64 (*.f64 one_es (/.f64 (*.f64 sa tanphi) (cos.f64 lamt))) (*.f64 (tan.f64 lamt) ca))
(*.f64 #s(literal 1/2 binary64) (*.f64 ArB (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 U #s(literal -1 binary64)) (*.f64 (-.f64 U #s(literal -1 binary64)) (log.f64 (/.f64 (-.f64 U #s(literal 1 binary64)) (-.f64 #s(literal -1 binary64) U))))))))
(/.f64 (*.f64 ArB #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (log.f64 (/.f64 (-.f64 U #s(literal 1 binary64)) (-.f64 #s(literal -1 binary64) U)))))
(*.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 B #s(literal 2647814816397709/1260864198284623334792929283204595641762551656654894293374345388935863096687910739565256520156317300505812095689818112 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (/.f64 (-.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (neg.f64 (+.f64 (fabs.f64 (*.f64 lam B)) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))) (-.f64 (*.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (fabs.f64 (*.f64 lam B)))) (cos.f64 (*.f64 (PI.f64) #s(literal -1 binary64)))) (/.f64 (+.f64 (sin.f64 (-.f64 (neg.f64 (PI.f64)) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (fabs.f64 (*.f64 lam B))))) (sin.f64 (+.f64 (neg.f64 (PI.f64)) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (fabs.f64 (*.f64 lam B)))))) #s(literal 2 binary64)))) #s(literal 2 binary64)))) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (PI.f64) (*.f64 lam B))) singam) (*.f64 cosgam S)) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 lam B))))))
(if.f64 (<=.f64 B #s(literal 2647814816397709/1260864198284623334792929283204595641762551656654894293374345388935863096687910739565256520156317300505812095689818112 binary64)) (*.f64 (atan2.f64 (+.f64 (*.f64 singam (sin.f64 (*.f64 lam B))) (*.f64 cosgam S)) (*.f64 (+.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (fabs.f64 (*.f64 lam B)))) (cos.f64 (*.f64 lam B))) #s(literal 1/2 binary64))) ArB) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (PI.f64) (*.f64 lam B))) singam) (*.f64 cosgam S)) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 lam B))))))
(if.f64 (<=.f64 B #s(literal 2647814816397709/1260864198284623334792929283204595641762551656654894293374345388935863096687910739565256520156317300505812095689818112 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 (sin.f64 (-.f64 (PI.f64) (*.f64 lam B))) singam) (*.f64 cosgam S)) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 lam B))))))
(if.f64 (<=.f64 B #s(literal 2647814816397709/1260864198284623334792929283204595641762551656654894293374345388935863096687910739565256520156317300505812095689818112 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 (sin.f64 (-.f64 (PI.f64) (*.f64 lam B))) singam) (*.f64 cosgam S)) (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 -8106479329266893/18014398509481984 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (*.f64 (/.f64 (-.f64 (cos.f64 (*.f64 phi #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi))) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) alpha)) 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 3602879701896397/9007199254740992 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 2206763817411543/2251799813685248 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (*.f64 phi #s(literal 2 binary64)) (PI.f64)) #s(literal -1/4 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 phi #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 phi #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) alpha)) gfi)) (/.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) #s(literal -1 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 -2 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 k (pow.f64 (+.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))) (cos.f64 (*.f64 (+.f64 (*.f64 phi #s(literal 2 binary64)) (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) phi))) (cos.f64 (*.f64 (+.f64 (*.f64 phi #s(literal 2 binary64)) (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 -8106479329266893/18014398509481984 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (*.f64 (/.f64 (-.f64 (cos.f64 (*.f64 phi #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi))) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) alpha)) 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 1080863910568919/1125899906842624 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)) (*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) #s(literal -1 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 1080863910568919/1125899906842624 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)) (*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) #s(literal -1 binary64))) alpha) k) gfi)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)))
(if.f64 (<=.f64 alpha #s(literal 69999999999999994673039854912731469364597688959069784637440 binary64)) (*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) #s(literal -1 binary64))) alpha) k) gfi)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 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 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)))
(if.f64 (<=.f64 (*.f64 k (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha)) #s(literal 49999999999999999438455393753164723825467229914774961498751742442014630591180933422221348473000344922592960267277821122740746306537869061820762693597271311957371597483119525588936543990108212932301029376 binary64)) (*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) #s(literal -1 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 #s(literal 1 binary64) (/.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi phi) (PI.f64)))))) alpha) k) gfi)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)))
(if.f64 (<=.f64 k #s(literal 8958978968711217/2239744742177804210557442280568444278121645497234649534899989100963791871180160945380877493271607115776 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 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))))
(if.f64 (<=.f64 k #s(literal 1162941958872971/5814709794364855124394590463104036274829130885498544482251921593445114304907183386609528405710108524486100172850129423468276813028917248 binary64)) (*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 #s(literal 1 binary64) (/.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1/2 binary64) (+.f64 (+.f64 phi phi) (PI.f64)))))) alpha) k) gfi)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 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 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.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 #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 1/2 binary64)) (neg.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (fabs.f64 (-.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 phidp #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))) (+.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (cos.f64 (*.f64 #s(literal -5/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)))))) (neg.f64 (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.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 5404319552844595/9007199254740992 binary64)) (neg.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (fabs.f64 (-.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 phidp #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))) (neg.f64 (log.f64 (/.f64 (fabs.f64 (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (fabs.f64 (-.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))))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal 2 binary64)) (log.f64 (/.f64 (-.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 phidp #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (PI.f64))))) (log.f64 (/.f64 (*.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)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.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) phidp)))) #s(literal 2 binary64)) (log.f64 (-.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (-.f64 (PI.f64) (*.f64 #s(literal -1/2 binary64) phidp)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (PI.f64)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (log.f64 (/.f64 (*.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)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp))) #s(literal -3602879701896397/72057594037927936 binary64)) (log.f64 (/.f64 (*.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)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))) (neg.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (fabs.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)))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal 7566047373982433/18014398509481984 binary64)) (neg.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (fabs.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)))))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 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/288230376151711744 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (fabs.f64 (/.f64 #s(literal 1/2 binary64) (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/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) phidp)))) #s(literal 5404319552844595/9007199254740992 binary64)) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phidp #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 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phidp)))) (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64)))))))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp))) #s(literal -3602879701896397/72057594037927936 binary64)) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/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 2206763817411543/2251799813685248 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (fabs.f64 (/.f64 #s(literal 1/2 binary64) (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp))) #s(literal -3602879701896397/72057594037927936 binary64)) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/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 2206763817411543/2251799813685248 binary64)) (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.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) phidp)))) #s(literal -5764607523034235/288230376151711744 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (fabs.f64 (/.f64 #s(literal 1/2 binary64) (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 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/288230376151711744 binary64)) (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phidp)) (*.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) phidp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (log.f64 (/.f64 #s(literal 1 binary64) (tan.f64 (+.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (PI.f64))))) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/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 -5764607523034235/288230376151711744 binary64)) (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phidp)) (*.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) phidp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (log.f64 (tan.f64 (+.f64 (+.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)) (PI.f64)))) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/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 -5764607523034235/288230376151711744 binary64)) (-.f64 #s(literal 0 binary64) (log.f64 (fabs.f64 (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phidp)) (*.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) phidp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (log.f64 (tan.f64 (+.f64 (+.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)) (PI.f64)))) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/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 -5764607523034235/288230376151711744 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (fabs.f64 (/.f64 #s(literal 1/2 binary64) (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (neg.f64 (log.f64 (/.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 #s(literal -1/2 binary64) phidp)))) (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))))))))
(neg.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (fabs.f64 (-.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 phidp #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))))
(if.f64 (<=.f64 phidp #s(literal 1298074214633707/324518553658426726783156020576256 binary64)) (log.f64 (tan.f64 (+.f64 (+.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)) (PI.f64)))) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 phidp #s(literal 1298074214633707/324518553658426726783156020576256 binary64)) (log.f64 (tan.f64 (+.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)))) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)) #s(literal 884279719003557/1125899906842624 binary64)) (log.f64 (tan.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64))))) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))))))
(log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64))))))
(log.f64 (tan.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))
(log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phidp))))
(log.f64 (/.f64 (-.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 phi #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.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 #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 1/2 binary64)) (neg.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (fabs.f64 (-.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 phi #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))) (+.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (cos.f64 (*.f64 #s(literal -5/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)))))) (neg.f64 (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.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 5404319552844595/9007199254740992 binary64)) (neg.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (fabs.f64 (-.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 phi #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))) (neg.f64 (log.f64 (/.f64 (fabs.f64 (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (fabs.f64 (-.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))))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal 2 binary64)) (log.f64 (/.f64 (-.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 phi #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (PI.f64))))) (log.f64 (/.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 #s(literal -1/2 binary64) phi)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.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) phi)))) #s(literal 2 binary64)) (log.f64 (-.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (-.f64 (PI.f64) (*.f64 #s(literal -1/2 binary64) phi)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (PI.f64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (log.f64 (/.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 #s(literal -1/2 binary64) phi)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi))) #s(literal -3602879701896397/72057594037927936 binary64)) (log.f64 (/.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 #s(literal -1/2 binary64) phi)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))) (neg.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (fabs.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)))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal 7566047373982433/18014398509481984 binary64)) (neg.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (fabs.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)))))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 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/288230376151711744 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (fabs.f64 (/.f64 #s(literal 1/2 binary64) (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/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) phi)))) #s(literal 5404319552844595/9007199254740992 binary64)) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #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 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi)))) (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64)))))))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi))) #s(literal -3602879701896397/72057594037927936 binary64)) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/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 2206763817411543/2251799813685248 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (fabs.f64 (/.f64 #s(literal 1/2 binary64) (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi))) #s(literal -3602879701896397/72057594037927936 binary64)) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/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 2206763817411543/2251799813685248 binary64)) (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.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) phi)))) #s(literal -5764607523034235/288230376151711744 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (fabs.f64 (/.f64 #s(literal 1/2 binary64) (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 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/288230376151711744 binary64)) (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi)) (*.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) phi)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (log.f64 (/.f64 #s(literal 1 binary64) (tan.f64 (+.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (PI.f64))))) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/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 -5764607523034235/288230376151711744 binary64)) (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi)) (*.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) phi)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (log.f64 (tan.f64 (+.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)) (PI.f64)))) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/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 -5764607523034235/288230376151711744 binary64)) (-.f64 #s(literal 0 binary64) (log.f64 (fabs.f64 (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi)) (*.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) phi)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (log.f64 (tan.f64 (+.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)) (PI.f64)))) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/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 -5764607523034235/288230376151711744 binary64)) (+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (fabs.f64 (/.f64 #s(literal 1/2 binary64) (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (neg.f64 (log.f64 (/.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 #s(literal -1/2 binary64) phi)))) (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))))))
(neg.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (fabs.f64 (-.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 phi #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))))
(if.f64 (<=.f64 phi #s(literal 1298074214633707/324518553658426726783156020576256 binary64)) (log.f64 (tan.f64 (+.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)) (PI.f64)))) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 phi #s(literal 1298074214633707/324518553658426726783156020576256 binary64)) (log.f64 (tan.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)))) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)) #s(literal 884279719003557/1125899906842624 binary64)) (log.f64 (tan.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64))))) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))))
(log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))))
(log.f64 (tan.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))
(log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi))))
(-.f64 (*.f64 (-.f64 u u0) cosrot) (*.f64 v sinrot))
(+.f64 (*.f64 v cosrot) (*.f64 (-.f64 u u0) sinrot))
(/.f64 (*.f64 rho0 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) #s(literal 27401669256311/20000000000000 binary64)) (/.f64 (PI.f64) #s(literal 4 binary64)))) n)) (pow.f64 (+.f64 (/.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (sin.f64 (*.f64 s #s(literal 1/2 binary64)))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 s #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 s #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) s))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 s #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 s #s(literal 1/2 binary64))))))) n))
(/.f64 (*.f64 rho0 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) #s(literal 27401669256311/20000000000000 binary64)) (/.f64 (PI.f64) #s(literal 4 binary64)))) n)) (pow.f64 (+.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 s #s(literal 1/2 binary64)))) (-.f64 (*.f64 (cos.f64 (*.f64 s #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 s #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #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) s))) (-.f64 (*.f64 (cos.f64 (*.f64 s #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 s #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) n))
(*.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(literal -1/2 binary64) s)))) (-.f64 (*.f64 (cos.f64 (*.f64 s #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (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 (cos.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 (+.f64 s s) (PI.f64)))) (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 (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) rho0) (pow.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (*.f64 #s(literal 2 binary64) s) (PI.f64))))) n))
(/.f64 rho0 (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) s))) (neg.f64 n)) (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) 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 (sin.f64 phip) cosp0) (*.f64 (*.f64 (cos.f64 lamp) sinp0) (cos.f64 phip))))
(asin.f64 (-.f64 (*.f64 cosp0 (sin.f64 phip)) (*.f64 sinp0 (*.f64 (cos.f64 phip) (cos.f64 lamp)))))
(if.f64 (<=.f64 phi #s(literal -3078081899809927/15015033657609400459942315391018513722623519187099007073355798781525263125238463415894820397160662761697108038369410925238365381332604486523522921813279810320079453845181805154673256699778290824639959535835805252308660678089369234238529227774479195332149248 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (-.f64 (log.f64 (fabs.f64 (tan.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 phi phi) (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 #s(literal -1/4 binary64) (+.f64 (+.f64 phi phi) (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 -8607061334868479/623700096729599941142616472824012051896078518886080481719546013261628716209051270557799364216448656590419514638810154763741386871372998018980991186964009818850001772797214273911730537951363433494579173982669976247915878267225271996527767271390013799220975283398673763013237029759482503102464 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (-.f64 (log.f64 (fabs.f64 (tan.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 phi phi) (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 (+.f64 phi phi) (PI.f64)) #s(literal -1/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 -8607061334868479/623700096729599941142616472824012051896078518886080481719546013261628716209051270557799364216448656590419514638810154763741386871372998018980991186964009818850001772797214273911730537951363433494579173982669976247915878267225271996527767271390013799220975283398673763013237029759482503102464 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (-.f64 (log.f64 (fabs.f64 (tan.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 phi phi) (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 4088933776096177/1298074214633706907132624082305024 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -13/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 #s(literal -1/4 binary64) (+.f64 (+.f64 phi phi) (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 #s(literal -1/4 binary64) (+.f64 (+.f64 phi phi) (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 (*.f64 (exp.f64 K) (pow.f64 (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) (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)))
(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)))))))
(if.f64 (<=.f64 es #s(literal -199999999999999998644189734872325595292341688388812800 binary64)) (asin.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 phi) one_es) ca) (*.f64 sa (*.f64 (cos.f64 phi) (sin.f64 lamt)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (pow.f64 (sin.f64 phi) #s(literal 2 binary64))))))) (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))))))
(if.f64 (<=.f64 es #s(literal -1699999999999999923542812536156659750685920559884330323769749642613254172319777060620010440062752595274774471635144382870431726219135210089096289699779134540629721725145294657382796174971871395638659583574016 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 #s(literal 1 binary64) (*.f64 es (pow.f64 (sin.f64 phi) #s(literal 2 binary64))))))) (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)))) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) es) (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64))) #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 (sin.f64 lamp) (cos.f64 phipp)) cp))
(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)))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (log.f64 (fabs.f64 (*.f64 (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc))) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) ecc))))) (log.f64 (fabs.f64 (+.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) ecc)))))))
(neg.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (pow.f64 (/.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)))))
(neg.f64 (log.f64 (fabs.f64 (/.f64 (-.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 S singam) #s(literal -inf.0 binary64)) (-.f64 (*.f64 (/.f64 S T) singam) (*.f64 (/.f64 cosgam T) (sin.f64 (*.f64 lam B)))) (/.f64 (-.f64 (*.f64 S singam) (*.f64 (sin.f64 (*.f64 (/.f64 #s(literal 2 binary64) (/.f64 #s(literal 2 binary64) lam)) (/.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1/2 binary64) B)))) cosgam)) T))
(if.f64 (<=.f64 (*.f64 S singam) #s(literal -inf.0 binary64)) (-.f64 (*.f64 (/.f64 S T) singam) (*.f64 (/.f64 cosgam T) (sin.f64 (*.f64 lam B)))) (/.f64 (-.f64 (*.f64 S singam) (*.f64 (sin.f64 (/.f64 lam (/.f64 #s(literal 1 binary64) B))) cosgam)) T))
(if.f64 (<=.f64 (-.f64 (*.f64 S singam) (*.f64 (sin.f64 (*.f64 B lam)) cosgam)) #s(literal -inf.0 binary64)) (-.f64 (*.f64 (/.f64 S T) singam) (*.f64 (/.f64 cosgam T) (sin.f64 (*.f64 lam B)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 singam S) (*.f64 cosgam (sin.f64 (*.f64 lam B)))) T))))
(if.f64 (<=.f64 (-.f64 (*.f64 S singam) (*.f64 (sin.f64 (*.f64 B lam)) cosgam)) #s(literal -inf.0 binary64)) (-.f64 (*.f64 S (/.f64 singam T)) (*.f64 (/.f64 cosgam T) (sin.f64 (*.f64 lam B)))) (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 singam S) (*.f64 cosgam (sin.f64 (*.f64 lam B)))) T))))
(*.f64 #s(literal 2 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (*.f64 singam S) (*.f64 cosgam (sin.f64 (*.f64 lam B)))) 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) (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (fabs.f64 (+.f64 (-.f64 (*.f64 (pow.f64 (sinh.f64 Ce) #s(literal 2 binary64)) #s(literal 2 binary64)) #s(literal -1 binary64)) (cos.f64 (+.f64 Cn Cn))))))))
(atan2.f64 (sin.f64 Cn) (/.f64 (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (pow.f64 (sinh.f64 Ce) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal -1 binary64) (cos.f64 (+.f64 Cn Cn)))))) (sqrt.f64 #s(literal 2 binary64))))
(atan2.f64 (sin.f64 Cn) (sqrt.f64 (-.f64 (pow.f64 (sinh.f64 Ce) #s(literal 2 binary64)) (-.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))))))
(atan2.f64 (sinh.f64 Ce) (cos.f64 Cn))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 Cn) #s(literal 2 binary64)) (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (cos.f64 lam)) (cos.f64 lam)))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 Cn) #s(literal 2 binary64)) (*.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 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn))) (*.f64 (-.f64 #s(literal 1 binary64) (-.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 2 binary64) (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 #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)))) (-.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 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 (sin.f64 Cn) (sin.f64 Cn)) (*.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (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 (cos.f64 Cn) (sin.f64 lam)) (sqrt.f64 (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal 1 binary64)) #s(literal -1/2 binary64)) (*.f64 (-.f64 #s(literal -1 binary64) (cos.f64 (+.f64 Cn Cn))) (*.f64 #s(literal 1/4 binary64) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal -1 binary64)))))))
(*.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 (cos.f64 (+.f64 Cn Cn)) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal -1 binary64)))))))))
(atan2.f64 (sin.f64 Cn) (*.f64 (cos.f64 Cn) (cos.f64 lam)))
(if.f64 (<=.f64 hr #s(literal 5678427533559429/354901720847464302026037015570314714039863945648104521621821386318671527399120079749116723981329865996466075003059657194108692201472 binary64)) (-.f64 (*.f64 (*.f64 hr sin_arg_r) cosh_arg_i) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)) (-.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hr) (*.f64 (*.f64 hi sinh_arg_i) cos_arg_r)))
(if.f64 (<=.f64 cosh_arg_i #s(literal 4039784372389151/336648697699095904463423352504328234595221747380683127007889977796398857875013172615274658321765660878526910006795405933633243664011763447240180145321720374397134314952220454284266480504596653905362768111090008064 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)))
(if.f64 (<=.f64 (*.f64 cos_arg_r sinh_arg_i) #s(literal 1000000000000000007630473539575035660514778335511710750780086664439969510636494954611131549135839186513983455555395220895687860544809584999829725260594873271087399626486606146442550988840016917394626449536395208620267012778077787723395914064607119962069483324573977857832138825282954985472 binary64)) (-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)) (-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 hi cos_arg_r) sinh_arg_i)))
(-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi))
(if.f64 (<=.f64 hi #s(literal 22199999999999999654733577525074836535465105250358269114993145545358311424 binary64)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr)) (+.f64 (*.f64 (/.f64 cosh_arg_i (/.f64 #s(literal 1 binary64) sin_arg_r)) hi) (*.f64 (*.f64 hr sinh_arg_i) cos_arg_r)))
(if.f64 (<=.f64 hi #s(literal 22199999999999999654733577525074836535465105250358269114993145545358311424 binary64)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr)) (+.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hi) (*.f64 (*.f64 hr sinh_arg_i) cos_arg_r)))
(if.f64 (<=.f64 (*.f64 cos_arg_r sinh_arg_i) #s(literal 99999999999999996350686867959178558315902274782992576532314485486221746301240205812674342870820492799837784938001204037775189753543960218791943147793788145321066524580618236658968633362758090027700335311493754978334367629875739137498376013657689431411868208826074951744485326848 binary64)) (+.f64 (*.f64 (*.f64 hi cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr)) (+.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hi) (*.f64 (*.f64 hr cos_arg_r) sinh_arg_i)))
(if.f64 (<=.f64 (*.f64 cos_arg_r sinh_arg_i) #s(literal 99999999999999996350686867959178558315902274782992576532314485486221746301240205812674342870820492799837784938001204037775189753543960218791943147793788145321066524580618236658968633362758090027700335311493754978334367629875739137498376013657689431411868208826074951744485326848 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 hr cos_arg_r) sinh_arg_i)))
(if.f64 (<=.f64 cosh_arg_i #s(literal 3706877493907595/726838724295606890549323807888004534353641360687318060281490199180639288113397923326191050713763565560762521606266177933534601628614656 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) (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)