(if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (-.f64 (*.f64 (+.f64 (cos.f64 (-.f64 (/.f64 y esp) phi0)) (cos.f64 (+.f64 (/.f64 y esp) phi0))) #s(literal 1/2 binary64)) (*.f64 (sin.f64 (/.f64 y esp)) (sin.f64 phi0)))) #s(literal 0 binary64))) (atan2.f64 g (-.f64 (*.f64 (+.f64 (cos.f64 (-.f64 (/.f64 y esp) phi0)) (cos.f64 (+.f64 (/.f64 y esp) phi0))) #s(literal 1/2 binary64)) (*.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 (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))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (*.f64 (/.f64 #s(literal 1 binary64) esp) y) phi0)) (asin.f64 (/.f64 (fabs.f64 (+.f64 (*.f64 (sin.f64 (*.f64 (/.f64 #s(literal 1 binary64) esp) y)) (cos.f64 phi0)) (*.f64 (sin.f64 phi0) (cos.f64 (*.f64 (/.f64 #s(literal 1 binary64) esp) y))))) (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 phi0 (/.f64 y esp))) (asin.f64 (*.f64 (fabs.f64 (sin.f64 (+.f64 (/.f64 y esp) phi0))) (/.f64 #s(literal 1 binary64) (cosh.f64 (asinh.f64 g))))))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (/.f64 y esp) phi0)) (asin.f64 (/.f64 (fabs.f64 (sin.f64 (+.f64 (/.f64 y esp) phi0))) (cosh.f64 (asinh.f64 g)))))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (*.f64 (/.f64 #s(literal 1 binary64) esp) y) phi0)) (asin.f64 (/.f64 (fabs.f64 (sin.f64 (+.f64 (*.f64 (/.f64 #s(literal 1 binary64) esp) y) phi0))) (sqrt.f64 (-.f64 (*.f64 g g) #s(literal -1 binary64))))))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (/.f64 y esp) phi0)) (asin.f64 (/.f64 (fabs.f64 (sin.f64 (+.f64 (/.f64 y esp) phi0))) (sqrt.f64 (-.f64 (*.f64 g g) #s(literal -1 binary64))))))
(sinh.f64 (/.f64 x esp))
(*.f64 (/.f64 (cos.f64 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 ml0 (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 b b) #s(literal 1 binary64)))) (log.f64 (+.f64 (+.f64 (*.f64 b b) (*.f64 #s(literal -2 binary64) b)) #s(literal 1 binary64)))))
(-.f64 (*.f64 (log.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) b))) ml0) (*.f64 (log.f64 (fabs.f64 (-.f64 b #s(literal 1 binary64)))) ml0))
(*.f64 ml0 (-.f64 (log.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) b))) (log.f64 (fabs.f64 (-.f64 b #s(literal 1 binary64))))))
(*.f64 (log.f64 (/.f64 (sqrt.f64 (+.f64 (*.f64 b b) (+.f64 (+.f64 b b) #s(literal 1 binary64)))) (fabs.f64 (-.f64 b #s(literal 1 binary64))))) ml0)
(*.f64 ml0 (log.f64 (/.f64 (*.f64 (-.f64 b #s(literal 1 binary64)) (-.f64 b #s(literal -1 binary64))) (*.f64 (-.f64 b #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) b)))))
(*.f64 (neg.f64 ml0) (log.f64 (fabs.f64 (/.f64 (-.f64 b #s(literal 1 binary64)) (-.f64 b #s(literal -1 binary64))))))
(*.f64 ml0 (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) b) (-.f64 #s(literal 1 binary64) b))))
(*.f64 (cos.f64 phi) (sin.f64 lam))
(pow.f64 one_es #s(literal 3 binary64))
(*.f64 one_es (*.f64 one_es one_es))
(-.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 ca es) rone_es) ca) rone_es) (-.f64 (*.f64 (*.f64 (*.f64 ca es) rone_es) ca) rone_es)) #s(literal 1 binary64))
(-.f64 (*.f64 (-.f64 (*.f64 (*.f64 rone_es ca) (*.f64 ca es)) rone_es) (-.f64 (*.f64 (*.f64 rone_es ca) (*.f64 ca es)) rone_es)) #s(literal 1 binary64))
(-.f64 (*.f64 (-.f64 (*.f64 (*.f64 ca es) ca) #s(literal 1 binary64)) (*.f64 rone_es (-.f64 (*.f64 rone_es (*.f64 (*.f64 ca es) ca)) rone_es))) #s(literal 1 binary64))
(-.f64 (*.f64 (-.f64 (*.f64 rone_es (*.f64 (*.f64 ca es) ca)) rone_es) (-.f64 (*.f64 rone_es (*.f64 (*.f64 ca es) ca)) 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 (*.f64 rone_es es) sa))
(if.f64 (<=.f64 (*.f64 (*.f64 es (*.f64 sa sa)) (*.f64 (-.f64 #s(literal 2 binary64) es) (*.f64 rone_es rone_es))) #s(literal -4417117661945961/441711766194596082395824375185729628956870974218904739530401550323154944 binary64)) (*.f64 (*.f64 (*.f64 rone_es (*.f64 (*.f64 sa sa) es)) (-.f64 #s(literal 2 binary64) es)) rone_es) (*.f64 (*.f64 (*.f64 es (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) rone_es)) rone_es) sa))
(*.f64 (*.f64 (*.f64 es (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) rone_es)) rone_es) sa)
(*.f64 sa (*.f64 sa (*.f64 (*.f64 es rone_es) (*.f64 rone_es (-.f64 #s(literal 2 binary64) es)))))
(*.f64 (/.f64 k0 (sin.f64 #s(literal 27401669256311/20000000000000 binary64))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal -27401669256311/20000000000000 binary64))) n0))
(*.f64 (/.f64 k0 (tan.f64 (-.f64 (*.f64 #s(literal 3 binary64) (PI.f64)) (-.f64 #s(literal -27401669256311/20000000000000 binary64) (PI.f64))))) n0)
(*.f64 (*.f64 (tan.f64 (-.f64 #s(literal -27401669256311/20000000000000 binary64) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) k0) n0)
(*.f64 (*.f64 n0 k0) (tan.f64 (-.f64 #s(literal -27401669256311/20000000000000 binary64) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(*.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 alpha #s(literal 240000000 binary64)) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))) g) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 u0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 u0 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi0 #s(literal 1/2 binary64))))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) alpha))) (if.f64 (<=.f64 alpha #s(literal 61999999999999997647241912408978808213250747283278738279051026228064087797000854602211451270500756235209072501356205646919308534845812966647765870377017204054285781043905784196477788597402853659921951820051469741829932966219176065062743334077537696601722954618708514443050737945542656 binary64)) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))) 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 phi0 #s(literal 1/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)))))) alpha))) (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (+.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64))))) (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64)))))) alpha))))
(if.f64 (<=.f64 alpha #s(literal 61999999999999997647241912408978808213250747283278738279051026228064087797000854602211451270500756235209072501356205646919308534845812966647765870377017204054285781043905784196477788597402853659921951820051469741829932966219176065062743334077537696601722954618708514443050737945542656 binary64)) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))) g) (*.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.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 phi0 #s(literal 1/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)))))) alpha))) (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (+.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64))))) (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64)))))) alpha)))
(if.f64 (<=.f64 alpha #s(literal 61999999999999997647241912408978808213250747283278738279051026228064087797000854602211451270500756235209072501356205646919308534845812966647765870377017204054285781043905784196477788597402853659921951820051469741829932966219176065062743334077537696601722954618708514443050737945542656 binary64)) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))) 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 phi0 #s(literal 1/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)))))) alpha))) (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (+.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64))))) (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64)))))) alpha)))
(if.f64 (<=.f64 (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 (sin.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))) 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 phi0 #s(literal 1/2 binary64))))) (sin.f64 (-.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64))))) alpha))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))) g) (*.f64 (sin.f64 (-.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi0 #s(literal 1/2 binary64))))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) 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 281474976699397/281474976710656 binary64)) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))) 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 phi0 #s(literal 1/2 binary64))))) (sin.f64 (-.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64))))) alpha))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))) g) (*.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.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 phi0 #s(literal 1/2 binary64))))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) 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 0 binary64)) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))) 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 phi0 #s(literal 1/2 binary64))))) (sin.f64 (-.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64))))) alpha))) (/.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 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) alpha)))
(if.f64 (<=.f64 alpha #s(literal 1099999999999999958704472189410663705161035130851730544518500885225145603540534837854412598544359353865369949835878976422755824621518913452903222575749876765178421691501969537000759108568726848484896736123739848872199669839074164736 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 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) alpha)) (*.f64 (*.f64 (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)) (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) u0)))) g))
(if.f64 (<=.f64 alpha #s(literal 4200000000000000092064891064224431120222658131331432608584004618564285444854282571873184067895279294112823656267602836695547078591783763359957760151802076772188419502370314937434374357042409896166624854016 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 phi0 #s(literal 1/2 binary64))))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) (neg.f64 alpha)) (*.f64 g (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))))) (*.f64 (*.f64 (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)) (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) u0)))) 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 +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 (tan.f64 (+.f64 (+.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (PI.f64))) (PI.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 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) phi0) (PI.f64)) #s(literal -1/4 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0)))) alpha)))
(if.f64 (<=.f64 (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha)) #s(literal +inf.0 binary64)) (/.f64 (*.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 (*.f64 phi0 #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (PI.f64))) (PI.f64))) alpha)) (*.f64 (*.f64 g (pow.f64 (/.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64))))) (neg.f64 alpha))) (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 u0 #s(literal 1/2 binary64))))))
(/.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 (*.f64 phi0 #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (PI.f64))) (PI.f64))) alpha))
(*.f64 (*.f64 (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)) (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) u0)))) g)
(/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (*.f64 (PI.f64) #s(literal 1/4 binary64)))) g) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (*.f64 (PI.f64) #s(literal 1/4 binary64)))) alpha))
(/.f64 (*.f64 g (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64))))) (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))) alpha))
(*.f64 (*.f64 (tan.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) u0) (PI.f64)) #s(literal -1/4 binary64))) g) (neg.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))) (neg.f64 alpha))))
(*.f64 (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))) (neg.f64 alpha)) (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) u0)))) g)
(*.f64 (*.f64 g (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) (neg.f64 alpha))) (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 u0 #s(literal 1/2 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 lam #s(literal 3659834024223975/1180591620717411303424 binary64)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 q (sin.f64 lam)) (sin.f64 lam))))))))) (*.f64 (*.f64 p22 (*.f64 (cos.f64 lam) sa)) (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)))))))
(if.f64 (<=.f64 lam #s(literal 3659834024223975/1180591620717411303424 binary64)) (*.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)))))))))) (*.f64 (*.f64 p22 (*.f64 (cos.f64 lam) sa)) (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #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 9007199254740953/9007199254740992 binary64)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (*.f64 (sqrt.f64 (fabs.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 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))))))) (sqrt.f64 (fabs.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 q (sin.f64 lam)) (sin.f64 lam)) #s(literal -1 binary64))))))))) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)))))))))
(if.f64 (<=.f64 (*.f64 (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 9007199254740953/9007199254740992 binary64)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (*.f64 (sqrt.f64 (fabs.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 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))))))) (sqrt.f64 (fabs.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 q (sin.f64 lam)) (sin.f64 lam)) #s(literal -1 binary64))))))))) (*.f64 (*.f64 (*.f64 sa p22) (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 lam) t) (sin.f64 lam)) #s(literal -1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) q) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) w) #s(literal 1 binary64)))))) (cos.f64 lam)))
(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 9007199254740953/9007199254740992 binary64)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (*.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) w) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (*.f64 q (sin.f64 lam)) (sin.f64 lam)) #s(literal -1 binary64))))))))) (*.f64 (*.f64 (*.f64 sa p22) (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 lam) t) (sin.f64 lam)) #s(literal -1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) q) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) w) #s(literal 1 binary64)))))) (cos.f64 lam)))
(if.f64 (<=.f64 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam))))))))) #s(literal -3794275180128377/3794275180128377091639574036764685364535950857523710002444946112771297432041422848 binary64)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) w) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) q) #s(literal 1 binary64)))))))) (*.f64 (*.f64 p22 (*.f64 (cos.f64 lam) sa)) (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)))))))
(*.f64 (*.f64 p22 (*.f64 (cos.f64 lam) sa)) (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))))))
(*.f64 p22 (*.f64 (*.f64 (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))))) (cos.f64 lam)) sa))
(*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) w) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) q) #s(literal 1 binary64))))))))
(*.f64 (*.f64 (*.f64 sa p22) (sqrt.f64 (/.f64 (/.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) t) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))))))) (cos.f64 lam))
(*.f64 (*.f64 p22 (*.f64 (cos.f64 lam) sa)) (sqrt.f64 (/.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64)))))
(*.f64 (*.f64 (*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) t) #s(literal 1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) p22) sa) (cos.f64 lam))
(*.f64 sa (*.f64 (*.f64 (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) t)) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) p22) (cos.f64 lam)))
(*.f64 p22 (*.f64 (*.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 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) q) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) w) #s(literal 1 binary64))))) (cos.f64 lam)) sa))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) q) (sin.f64 (*.f64 #s(literal -1 binary64) lam))) (sin.f64 (*.f64 lam #s(literal 1 binary64)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) q) (sin.f64 (*.f64 #s(literal -1 binary64) lam))) (sin.f64 (*.f64 lam #s(literal 1 binary64)))) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam))))))
(if.f64 (<=.f64 q #s(literal 1000000000000000042420637374017961984 binary64)) (/.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) w) (sin.f64 (*.f64 lam #s(literal 1 binary64)))) (sin.f64 (*.f64 #s(literal -1 binary64) 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 (*.f64 (*.f64 #s(literal -2 binary64) w) (sin.f64 (*.f64 lam #s(literal 1 binary64)))) (sin.f64 (*.f64 #s(literal -1 binary64) lam))) #s(literal 1/2 binary64)))))) (*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #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 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (*.f64 (+.f64 #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 q #s(literal 500000000000000021210318687008980992 binary64)) (/.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) w) (sin.f64 (*.f64 lam #s(literal 1 binary64)))) (sin.f64 (*.f64 #s(literal -1 binary64) 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 (*.f64 (*.f64 #s(literal -2 binary64) w) (sin.f64 (*.f64 lam #s(literal 1 binary64)))) (sin.f64 (*.f64 #s(literal -1 binary64) lam))) #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1 binary64) lam)) (sin.f64 (*.f64 lam #s(literal 1 binary64)))) (*.f64 #s(literal -2 binary64) q)) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1 binary64) lam)) (sin.f64 (*.f64 lam #s(literal 1 binary64)))) (*.f64 #s(literal -2 binary64) q)) #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)))))))
(if.f64 (<=.f64 q #s(literal 1000000000000000042420637374017961984 binary64)) (/.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) w) (sin.f64 (*.f64 lam #s(literal 1 binary64)))) (sin.f64 (*.f64 #s(literal -1 binary64) 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 (*.f64 (*.f64 #s(literal -2 binary64) w) (sin.f64 (*.f64 lam #s(literal 1 binary64)))) (sin.f64 (*.f64 #s(literal -1 binary64) lam))) #s(literal 1/2 binary64)))))) (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.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)))))))
(if.f64 (<=.f64 q #s(literal 500000000000000021210318687008980992 binary64)) (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (pow.f64 (sin.f64 lam) #s(literal 2 binary64)) w) #s(literal -1 binary64))))) (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 (*.f64 p22 ca) #s(literal 5339967589802275/266998379490113760299377713271194014325338065294581596243380200977777465722580068752870260867072 binary64)) (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (pow.f64 (sin.f64 lam) #s(literal 2 binary64)) w) #s(literal -1 binary64))))) (*.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 (pow.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))) (*.f64 p22 ca))))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (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 (pow.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))) (*.f64 p22 ca)))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)))) (-.f64 (/.f64 (/.f64 (-.f64 (*.f64 (*.f64 w (-.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 #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 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (*.f64 (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (*.f64 (*.f64 #s(literal -2 binary64) q) (sin.f64 (*.f64 (+.f64 lam lam) #s(literal -1/2 binary64)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lam lam))))) #s(literal 1 binary64)))))
(*.f64 (-.f64 (/.f64 (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) w)) #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 #s(literal -1/2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) q)) #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 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (+.f64 (*.f64 w #s(literal 1 binary64)) (*.f64 w (neg.f64 (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 #s(literal -1/2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) q)) #s(literal 1 binary64)))))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (*.f64 (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))) (-.f64 (*.f64 #s(literal -1/2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) q)) #s(literal 1 binary64)))))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))))))
(*.f64 mult (*.f64 (/.f64 (+.f64 xj h) (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj)))) s))
(*.f64 mult (/.f64 (-.f64 (*.f64 h xj) (*.f64 s s)) (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))
(if.f64 (<=.f64 e #s(literal -59999999999999994750351335397161031026540056525198869514124416444638292634238976 binary64)) (*.f64 (tan.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64))) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 (-.f64 (PI.f64) phi)) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal 11600000000000001193821333566695754712700870207714054247599239808783781397527289318089690628073483626816333171181627712165248374074898001556530730324275492684689610985566702158076393987354577276131309434105208242176 binary64)) (/.f64 (*.f64 (cos.f64 phi) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (*.f64 e #s(literal 1/2 binary64)))) (-.f64 (sin.f64 phi) #s(literal -1 binary64))) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (+.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (-.f64 (PI.f64) phi)) e))) (*.f64 e #s(literal 1/2 binary64))) (tan.f64 (+.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64)) (PI.f64))))))
(if.f64 (<=.f64 e #s(literal -59999999999999994750351335397161031026540056525198869514124416444638292634238976 binary64)) (*.f64 (tan.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64))) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 (-.f64 (PI.f64) phi)) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal 11600000000000001193821333566695754712700870207714054247599239808783781397527289318089690628073483626816333171181627712165248374074898001556530730324275492684689610985566702158076393987354577276131309434105208242176 binary64)) (*.f64 (cos.f64 phi) (/.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (*.f64 e #s(literal 1/2 binary64))) (-.f64 (sin.f64 phi) #s(literal -1 binary64)))) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (+.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (-.f64 (PI.f64) phi)) e))) (*.f64 e #s(literal 1/2 binary64))) (tan.f64 (+.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64)) (PI.f64))))))
(if.f64 (<=.f64 e #s(literal -999999999999999967336168804116691273849533185806555472917961779471295845921727862608739868455469056 binary64)) (*.f64 (tan.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64))) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 (-.f64 (PI.f64) phi)) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal 1349999999999999967449142027138837390155548764799200823170064382950514478398046208 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 (+.f64 (+.f64 (+.f64 (+.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64)) (PI.f64)) (PI.f64)) (PI.f64)) (PI.f64)) (PI.f64)) (PI.f64)) (PI.f64)))) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (+.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (-.f64 (PI.f64) phi)) e))) (*.f64 e #s(literal 1/2 binary64))) (tan.f64 (+.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64)) (PI.f64))))))
(if.f64 (<=.f64 e #s(literal -5999999999999999639585589271836707318150923908254937449686028207821815598284800 binary64)) (*.f64 (tan.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64))) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 (-.f64 (PI.f64) phi)) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal 1349999999999999967449142027138837390155548764799200823170064382950514478398046208 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 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (+.f64 #s(literal -1 binary64) (*.f64 (sin.f64 (-.f64 (PI.f64) phi)) e))) (*.f64 e #s(literal 1/2 binary64))) (tan.f64 (+.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64)) (PI.f64))))))
(if.f64 (<=.f64 e #s(literal -5999999999999999639585589271836707318150923908254937449686028207821815598284800 binary64)) (*.f64 (tan.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64))) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 (-.f64 (PI.f64) phi)) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal 4200000000000000194943886188774707107236903446074252723313999880167044157522639003301676062740500151164469248 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 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64))) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 (-.f64 (PI.f64) phi)) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e)))))
(*.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 (-.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 Xr #s(literal -4668270147/10000000000000000 binary64)))) (-.f64 (-.f64 (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 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 -4165541759/500000000000000000000000000000000 binary64)) (*.f64 (-.f64 Xr Yr) (*.f64 (+.f64 Xr Yr) (*.f64 #s(literal 3689471323/250000000000000000000000000000000 binary64) (*.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 #s(literal 304747143/200000000000000000000 binary64) (+.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 Xr #s(literal -4668270147/10000000000000000 binary64)))) (-.f64 (-.f64 (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 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 -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 #s(literal 304747143/200000000000000000000 binary64) (+.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 Xr #s(literal -4668270147/10000000000000000 binary64)))) (-.f64 (-.f64 (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 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 -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 #s(literal 304747143/200000000000000000000 binary64) (+.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 Xr #s(literal -4668270147/10000000000000000 binary64)))) (-.f64 (-.f64 (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 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 -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 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr))))
(-.f64 (-.f64 (-.f64 (-.f64 (-.f64 (-.f64 (+.f64 (*.f64 (*.f64 #s(literal -3689471323/1000000000000000000000000000000000 binary64) (*.f64 (*.f64 Xr Xr) Xr)) Xr) (*.f64 Yr (*.f64 (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 (*.f64 #s(literal 6 binary64) Xr) Xr)) Yr) #s(literal -3689471323/1000000000000000000000000000000000 binary64)))) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Yr Xr) (+.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 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr)) (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Xr))) (-.f64 (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Yr Xr)) (*.f64 #s(literal -304747143/100000000000000000000 binary64) (*.f64 Yr Xr)))) (-.f64 (*.f64 Yr #s(literal -4668270147/10000000000000000 binary64)) (*.f64 Xr #s(literal 149230739/1250000000000000 binary64)))) #s(literal -2946529277/100000000000 binary64))
(-.f64 (-.f64 (-.f64 (-.f64 (-.f64 (-.f64 (*.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 (*.f64 #s(literal 6 binary64) Xr) Xr)) Yr) Yr) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr)) #s(literal -3689471323/1000000000000000000000000000000000 binary64)) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Yr Xr) (+.f64 Yr Xr)))) (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) Yr))) (*.f64 (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr)) (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Xr))) (-.f64 (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Yr Xr)) (*.f64 #s(literal -304747143/100000000000000000000 binary64) (*.f64 Yr Xr)))) (-.f64 (*.f64 Yr #s(literal -4668270147/10000000000000000 binary64)) (*.f64 Xr #s(literal 149230739/1250000000000000 binary64)))) #s(literal -2946529277/100000000000 binary64))
(-.f64 (-.f64 (-.f64 (-.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 -3689471323/1000000000000000000000000000000000 binary64)) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Yr Xr) (+.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 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr)) (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Xr))) (-.f64 (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Yr Xr)) (*.f64 #s(literal -304747143/100000000000000000000 binary64) (*.f64 Yr Xr)))) (-.f64 (*.f64 Yr #s(literal -4668270147/10000000000000000 binary64)) (*.f64 Xr #s(literal 149230739/1250000000000000 binary64)))) #s(literal -2946529277/100000000000 binary64))
(-.f64 (-.f64 (-.f64 (*.f64 Xr #s(literal 149230739/1250000000000000 binary64)) #s(literal -2946529277/100000000000 binary64)) (-.f64 (-.f64 (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Yr Xr)) (*.f64 #s(literal -304747143/100000000000000000000 binary64) (*.f64 Yr 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 -3689471323/1000000000000000000000000000000000 binary64)) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Yr Xr) (+.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 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr)) (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Xr))))) (*.f64 Yr #s(literal -4668270147/10000000000000000 binary64)))
(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 s) (sin.f64 ad)) (cos.f64 d))))
(asin.f64 (-.f64 (*.f64 (sin.f64 s) (cos.f64 ad)) (*.f64 (*.f64 (cos.f64 d) (sin.f64 ad)) (cos.f64 s))))
(asin.f64 (-.f64 (*.f64 (sin.f64 s) (cos.f64 ad)) (*.f64 (*.f64 (cos.f64 d) (cos.f64 s)) (sin.f64 ad))))
(+.f64 (*.f64 (atan.f64 (*.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) (pow.f64 (/.f64 rho0 rho) (/.f64 #s(literal 1 binary64) n)))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(*.f64 (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 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)))
(*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 u #s(literal 1/2 binary64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) u)))) (/.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 3264099712959499/2417851639229258349412352 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 fi) evar))) (*.f64 evar #s(literal 1/2 binary64)))) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 u #s(literal 1/2 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 (sin.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) u) (*.f64 (PI.f64) #s(literal 3/4 binary64))))) (/.f64 #s(literal 1 binary64) alpha)) (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 (*.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 4722366482869645/4722366482869645213696 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 fi) evar))) (*.f64 evar #s(literal 1/2 binary64))) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) alpha))) (pow.f64 k (/.f64 #s(literal 1 binary64) alpha)))) (*.f64 (PI.f64) #s(literal 1/4 binary64)))) (*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 fi) evar))) (*.f64 evar #s(literal 1/2 binary64)))) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 u #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) alpha)))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)))
(if.f64 (<=.f64 (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (*.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u) (/.f64 (PI.f64) #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) alpha)) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 fi))) (-.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 fi)))) (*.f64 #s(literal 1/2 binary64) evar))))) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -6980579422424269/4503599627370496 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 fi) evar))) (*.f64 evar #s(literal 1/2 binary64)))) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) alpha)))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 fi) evar))) (*.f64 evar #s(literal 1/2 binary64)))) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 u #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) alpha)))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)))
(*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 fi) evar))) (*.f64 evar #s(literal 1/2 binary64)))) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) alpha)))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))
(if.f64 (<=.f64 spp #s(literal 1000000 binary64)) (asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (/.f64 (*.f64 es spp) (/.f64 #s(literal 1 binary64) spp)))))) (asin.f64 (*.f64 (/.f64 spp (sqrt.f64 (fabs.f64 (+.f64 (/.f64 (*.f64 one_es one_es) spp) (*.f64 es spp))))) (sqrt.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 spp))))))
(if.f64 (<=.f64 spp #s(literal 500000000000 binary64)) (asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (/.f64 (*.f64 es spp) (/.f64 #s(literal 1 binary64) spp)))))) (asin.f64 (/.f64 spp (*.f64 (sqrt.f64 (fabs.f64 (+.f64 (/.f64 (*.f64 one_es one_es) spp) (*.f64 es spp)))) (sqrt.f64 (fabs.f64 spp))))))
(asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (/.f64 (*.f64 es spp) (/.f64 #s(literal 1 binary64) spp))))))
(asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 (*.f64 es spp) spp)))))
(asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 es (*.f64 spp spp))))))
(atan.f64 (/.f64 (/.f64 (-.f64 (*.f64 (cos.f64 lamt) (tan.f64 lamdp)) (*.f64 (sin.f64 lamt) ca)) one_es) 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 (tan.f64 lamdp) (-.f64 #s(literal 1 binary64) (*.f64 rone_es (*.f64 spp spp)))) ca) (/.f64 (*.f64 spp (*.f64 sa (sqrt.f64 (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lamdp) (sin.f64 lamdp)))) (-.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 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lamdp lamdp)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) q) #s(literal 1 binary64)) (-.f64 (*.f64 spp spp) #s(literal 1 binary64))) (*.f64 u (*.f64 spp spp))))))) (cos.f64 lamdp))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 spp spp) (+.f64 #s(literal 1 binary64) u)))))
(atan.f64 (/.f64 (-.f64 (*.f64 (*.f64 (tan.f64 lamdp) (-.f64 #s(literal 1 binary64) (*.f64 rone_es (*.f64 spp spp)))) ca) (/.f64 (*.f64 (*.f64 sa spp) (sqrt.f64 (-.f64 (*.f64 (-.f64 (*.f64 spp spp) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lamdp lamdp)) #s(literal 1 binary64))) #s(literal 1 binary64))) (*.f64 u (*.f64 spp spp))))) (cos.f64 lamdp))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 spp spp) (+.f64 #s(literal 1 binary64) u)))))
(atan.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 lamdp) ca) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 rone_es spp) spp))) (*.f64 (sqrt.f64 (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lamdp lamdp)) #s(literal 1 binary64))) #s(literal 1 binary64)) (-.f64 (*.f64 spp spp) #s(literal 1 binary64))) (*.f64 u (*.f64 spp spp)))) (*.f64 sa spp))) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal -1 binary64) u) spp) spp) #s(literal -1 binary64)) (cos.f64 lamdp))))
(asin.f64 (/.f64 (*.f64 (cos.f64 phipp) (sin.f64 lampp)) (cos.f64 phip)))
(asin.f64 (*.f64 (/.f64 (cos.f64 phipp) (cos.f64 phip)) (sin.f64 lampp)))
(if.f64 (<=.f64 b #s(literal 7167183174968973/573374653997517877902705223825521735199141247292070280934397209846730719022121202017504638277531421638656 binary64)) (/.f64 (/.f64 (-.f64 (*.f64 (-.f64 (-.f64 (+.f64 (*.f64 (/.f64 s xj) xy_y) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) xj) (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s)) xj) b) (-.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)) b) (*.f64 (/.f64 (+.f64 (*.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) (*.f64 (sin.f64 lamdp) c1)) b) (/.f64 s xj))))
(if.f64 (<=.f64 b #s(literal 4600000000000000000000 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 (*.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) c3) (*.f64 (*.f64 #s(literal -4 binary64) (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64))) c3))))) b) (-.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)) b) (*.f64 (/.f64 s (*.f64 b xj)) (+.f64 (*.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) (*.f64 (sin.f64 lamdp) c1)))))
(if.f64 (<=.f64 b #s(literal 2677692063612937/14474011154664524427946373126085988481658748083205070504932198000989141204992 binary64)) (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 xy_x (*.f64 xy_y (/.f64 s xj))) (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) a2) (sin.f64 lamdp)) (cos.f64 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 xj) xy_y) 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 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64))) c3) (*.f64 (sin.f64 lamdp) c1)))))
(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 50000000000000003086391676393357844349718615548150562915502642526940668826983577947126958547223239834715522922574563065517295392716978085869105767683493614277129551054580941093067371516906876813636692980123138622497423128945174015407700562118352100956066287915925652518044475460566300753920 binary64)) (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 xy_x (*.f64 xy_y (/.f64 s xj))) (*.f64 a2 (sin.f64 (*.f64 #s(literal 2 binary64) lamdp)))) (*.f64 a4 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)))) (*.f64 (/.f64 s xj) (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64))))))) b) (/.f64 (-.f64 (*.f64 (neg.f64 a4) (sin.f64 (*.f64 #s(literal 4 binary64) lamdp))) (+.f64 (/.f64 (-.f64 (*.f64 (+.f64 (*.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) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y))) xj) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) 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 -inf.0 binary64)) (/.f64 (-.f64 (*.f64 (-.f64 (-.f64 (+.f64 (*.f64 (/.f64 s xj) xy_y) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) xj) (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64))) 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 50000000000000003086391676393357844349718615548150562915502642526940668826983577947126958547223239834715522922574563065517295392716978085869105767683493614277129551054580941093067371516906876813636692980123138622497423128945174015407700562118352100956066287915925652518044475460566300753920 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 (neg.f64 a4) (sin.f64 (*.f64 #s(literal 4 binary64) lamdp))) (+.f64 (/.f64 (-.f64 (*.f64 (+.f64 (*.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) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y))) xj) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) 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 50000000000000003086391676393357844349718615548150562915502642526940668826983577947126958547223239834715522922574563065517295392716978085869105767683493614277129551054580941093067371516906876813636692980123138622497423128945174015407700562118352100956066287915925652518044475460566300753920 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 (neg.f64 a4) (sin.f64 (*.f64 #s(literal 4 binary64) lamdp))) (+.f64 (/.f64 (-.f64 (*.f64 (+.f64 (*.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) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y))) xj) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) 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 50000000000000002625238012760221012435223429055407957745792705775590122899445409789318568754022393202185222191644193908847126161768021528782239609239335349142419360046328790186891511689739404502968447661748539997254055951948382044003732637139007124728962939441002842141905783473609819343272970027008 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 xj xy_x) (*.f64 s xy_y)) (*.f64 b xj)) (+.f64 (/.f64 (+.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) b) (*.f64 (/.f64 s (*.f64 b xj)) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1))))))
(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 50000000000000003086391676393357844349718615548150562915502642526940668826983577947126958547223239834715522922574563065517295392716978085869105767683493614277129551054580941093067371516906876813636692980123138622497423128945174015407700562118352100956066287915925652518044475460566300753920 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 (neg.f64 a4) (sin.f64 (*.f64 #s(literal 4 binary64) lamdp))) (+.f64 (/.f64 (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y))) xj) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2))) b))
(/.f64 (-.f64 (*.f64 (neg.f64 a4) (sin.f64 (*.f64 #s(literal 4 binary64) lamdp))) (+.f64 (/.f64 (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y))) xj) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2))) b)
(neg.f64 (*.f64 rB (atan2.f64 (-.f64 (*.f64 Sp cosgam) (*.f64 Vp singam)) (/.f64 (+.f64 (/.f64 (-.f64 (cos.f64 (*.f64 u BrA)) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal -1/2 binary64)) (*.f64 u BrA)))) #s(literal 2 binary64)) (cos.f64 (*.f64 u BrA))) #s(literal 2 binary64)))))
(neg.f64 (*.f64 rB (atan2.f64 (-.f64 (*.f64 Sp cosgam) (*.f64 Vp singam)) (sin.f64 (-.f64 (*.f64 #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 (sqrt.f64 (/.f64 (+.f64 (*.f64 (/.f64 s xj) s) xj) xj)) (-.f64 xy_y (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))))
(exp.f64 (*.f64 (-.f64 (-.f64 xy_y (*.f64 (sin.f64 lamdp) c1)) (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3)) (sqrt.f64 (-.f64 (*.f64 (/.f64 s (*.f64 xj xj)) s) #s(literal -1 binary64)))))
(exp.f64 (*.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 s s) (*.f64 xj xj)))) (-.f64 xy_y (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))))
(*.f64 ecc (sin.f64 phip))
(*.f64 (-.f64 (-.f64 (+.f64 con (log.f64 (fabs.f64 (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 phip phip) (PI.f64)))))))) (log.f64 (fabs.f64 (sin.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 phip phip) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 (*.f64 (*.f64 ecc ecc) (-.f64 (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phip) rone_es)))
(*.f64 (-.f64 (-.f64 (+.f64 con (log.f64 (fabs.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))))) (log.f64 (fabs.f64 (sin.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 phip phip) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 (*.f64 (*.f64 ecc ecc) (-.f64 (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phip) rone_es)))
(*.f64 (cos.f64 phip) (*.f64 (*.f64 rone_es (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 ecc ecc)) #s(literal -1 binary64))) (-.f64 (+.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 phip phip) (PI.f64))))) (fabs.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 phip phip) (PI.f64))))))) con) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e))))
(*.f64 (+.f64 (log.f64 (*.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))) (fabs.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e))))) con) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 ecc (sin.f64 phip)) (*.f64 ecc (sin.f64 phip)))) (*.f64 (cos.f64 phip) rone_es)))
(*.f64 (cos.f64 phip) (*.f64 (*.f64 rone_es (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 ecc ecc)) #s(literal -1 binary64))) (-.f64 (+.f64 (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))) con) (*.f64 (-.f64 (log.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)))) (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64))))) hlf_e))))
(*.f64 (cos.f64 phip) (*.f64 (*.f64 rone_es (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 ecc ecc)) #s(literal -1 binary64))) (-.f64 (+.f64 (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))) con) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e))))
(/.f64 (-.f64 K (log.f64 (/.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))))) (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phip #s(literal 1/2 binary64))) (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) (PI.f64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))))))) c)
(/.f64 (-.f64 K (log.f64 (/.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))))) (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phip #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))))))) c)
(if.f64 (<=.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) #s(literal 3 binary64)) (/.f64 (-.f64 K (log.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.f64))) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (PI.f64))) (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) c) (/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (+.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 phip (PI.f64)) (PI.f64)))) (PI.f64)) (PI.f64)))))) c))
(/.f64 (-.f64 K (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))))) (fabs.f64 (-.f64 (*.f64 (-.f64 (sin.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 phip #s(literal 1/2 binary64))))) #s(literal 1/2 binary64)) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))))))) c)
(/.f64 (-.f64 K (log.f64 (/.f64 (fabs.f64 (cos.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1/2 binary64) phip)))) (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phip #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))))))) c)
(/.f64 (-.f64 K (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))))) (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phip #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))))))) c)
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))) #s(literal 2251349453722511/2251799813685248 binary64)) (/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (+.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 phip (PI.f64)) (PI.f64)))) (PI.f64)) (PI.f64)))))) 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 9007181240342483/9007199254740992 binary64)) (/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (+.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 phip (PI.f64)) (PI.f64)))) (PI.f64)) (PI.f64)))))) c) (/.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))) (+.f64 (PI.f64) (PI.f64))) (PI.f64)) (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 9007181240342483/9007199254740992 binary64)) (/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 phip (PI.f64)) (PI.f64)))) (PI.f64)))))) c) (/.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))) (+.f64 (PI.f64) (PI.f64))) (PI.f64)) (PI.f64))))) c))
(-.f64 (/.f64 K c) (/.f64 (log.f64 (*.f64 (sqrt.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 (-.f64 (-.f64 phip (PI.f64)) (PI.f64)) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (sqrt.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 (-.f64 (-.f64 phip (PI.f64)) (PI.f64)) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))) c))
(/.f64 (-.f64 K (log.f64 (*.f64 (sqrt.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 phip (PI.f64)) (PI.f64))))))) (sqrt.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 phip (PI.f64)) (PI.f64)))))))))) c)
(/.f64 (-.f64 K (log.f64 (/.f64 (sin.f64 (+.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (PI.f64))) (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) c)
(/.f64 (-.f64 K (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) c)
(/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 (-.f64 phip (PI.f64)) (PI.f64)))))))) c)
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip)))) #s(literal -4722366482869645/2361183241434822606848 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) (/.f64 (+.f64 (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phip (PI.f64)))))) K) c))
(/.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (*.f64 #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 -50000000000000001639112299143104912428535264151074678213166678872047130159868716796396718933620589652690874879091207540935081733845534784799699555064652126056238940212281003290763663617757479824516427445625515031454630069622241782606547428241300231103939283840542755285063235010560 binary64)) (+.f64 (*.f64 Sp (/.f64 singam Tp)) (*.f64 Vp (/.f64 cosgam Tp))) (if.f64 (<=.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) #s(literal 200000000000000009059656093454283493894480369275085331567506627801514030557619328472424725816137264176261822880706493688011786868387997604430905860892176095581446469000357584466762025826605872027055636809415309817703628810557419457353500712587231232 binary64)) (/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp) (+.f64 (*.f64 Sp (/.f64 singam Tp)) (*.f64 Vp (/.f64 cosgam Tp)))))
(/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp)
(exp.f64 (neg.f64 (*.f64 BrA v)))
(*.f64 ArB (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (cos.f64 (*.f64 #s(literal -5/4 binary64) (PI.f64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (sin.f64 (*.f64 #s(literal -5/4 binary64) (PI.f64))))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 gamma0 #s(literal 1/2 binary64)))))))))
(*.f64 ArB (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (cos.f64 (*.f64 #s(literal -5/4 binary64) (PI.f64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (sin.f64 (*.f64 #s(literal -5/4 binary64) (PI.f64))))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 gamma0 #s(literal 1/2 binary64)))))))))
(if.f64 (<=.f64 (*.f64 ArB (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0))))) #s(literal 200000000000000009529458688 binary64)) (*.f64 ArB (-.f64 (log.f64 (sin.f64 (acos.f64 (sin.f64 (fabs.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64)))))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0)))))))) (*.f64 (log.f64 (/.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 (*.f64 #s(literal -2 binary64) gamma0) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 (*.f64 #s(literal -2 binary64) gamma0) #s(literal 1/4 binary64))))) (cos.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64))))) ArB))
(if.f64 (<=.f64 (*.f64 ArB (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0))))) #s(literal 200000000000000009529458688 binary64)) (*.f64 ArB (-.f64 (log.f64 (fabs.f64 (cos.f64 (+.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 gamma0 #s(literal 1/2 binary64))))))))) (*.f64 (log.f64 (/.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 (*.f64 #s(literal -2 binary64) gamma0) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 (*.f64 #s(literal -2 binary64) gamma0) #s(literal 1/4 binary64))))) (cos.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64))))) ArB))
(if.f64 (<=.f64 (*.f64 ArB (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0))))) #s(literal 200000000000000009529458688 binary64)) (*.f64 ArB (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (cos.f64 (*.f64 #s(literal -5/4 binary64) (PI.f64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (sin.f64 (*.f64 #s(literal -5/4 binary64) (PI.f64))))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) (*.f64 (log.f64 (/.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 (*.f64 #s(literal -2 binary64) gamma0) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 (*.f64 #s(literal -2 binary64) gamma0) #s(literal 1/4 binary64))))) (cos.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64))))) ArB))
(if.f64 (<=.f64 (*.f64 ArB (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0))))) #s(literal 200000000000000009529458688 binary64)) (*.f64 (log.f64 (/.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 (-.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))) (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) gamma0)))))) ArB) (*.f64 (log.f64 (/.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 (*.f64 #s(literal -2 binary64) gamma0) #s(literal 1/4 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 (*.f64 #s(literal -2 binary64) gamma0) #s(literal 1/4 binary64))))) (cos.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64))))) ArB))
(if.f64 (<=.f64 (*.f64 ArB (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0))))) #s(literal -1/202402253307310618352495346718917307049556649764142118356901358027430339567995346891960383701437124495187077864316811911389808737385793476867013399940738509921517424276566361364466907742093216341239767678472745068562007483424692698618103355649159556340810056512358769552333414615230502532186327508646006263307707741093494784 binary64)) (*.f64 (log.f64 (/.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 (-.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))) (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) gamma0)))))) ArB) (-.f64 (*.f64 (log.f64 (fabs.f64 (sin.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64))))) ArB) (*.f64 (log.f64 (fabs.f64 (cos.f64 (+.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) gamma0)) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (PI.f64))))) ArB)))
(if.f64 (<=.f64 (*.f64 ArB (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0))))) #s(literal 200000000000000009529458688 binary64)) (*.f64 (log.f64 (/.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (fabs.f64 (-.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))) (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) gamma0)))))) ArB) (*.f64 (log.f64 (/.f64 (sin.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/4 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 gamma0 #s(literal 1/2 binary64)))))) ArB))
(if.f64 (<=.f64 (*.f64 ArB (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0))))) #s(literal 200000000000000009529458688 binary64)) (*.f64 (log.f64 (fabs.f64 (/.f64 (sin.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64))) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) gamma0)))))) ArB) (*.f64 (log.f64 (/.f64 (sin.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/4 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 gamma0 #s(literal 1/2 binary64)))))) ArB))
(if.f64 (<=.f64 gamma0 #s(literal 4353782555323089/926336713898529563388567880069503262826159877325124512315660672063305037119488 binary64)) (*.f64 ArB (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (+.f64 (*.f64 gamma0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (*.f64 (log.f64 (fabs.f64 (tan.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/4 binary64))))) ArB))
(if.f64 (<=.f64 gamma0 #s(literal 4353782555323089/926336713898529563388567880069503262826159877325124512315660672063305037119488 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 (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 #s(literal 1 binary64) (/.f64 (+.f64 H L) (-.f64 L H)))
(/.f64 (-.f64 L H) (+.f64 L H))
(-.f64 (/.f64 (atan.f64 (/.f64 (tan.f64 (*.f64 (*.f64 B #s(literal 1/2 binary64)) (-.f64 (if.f64 (<.f64 (-.f64 lam1 lam2) (neg.f64 (PI.f64))) (+.f64 (+.f64 (PI.f64) (PI.f64)) lam2) (if.f64 (>.f64 (-.f64 lam1 lam2) (PI.f64)) (-.f64 lam2 (+.f64 (PI.f64) (PI.f64))) lam2)) lam1))) (/.f64 p J))) B) (*.f64 #s(literal -1/2 binary64) (+.f64 (if.f64 (<.f64 (-.f64 lam1 lam2) (neg.f64 (PI.f64))) (+.f64 (+.f64 (PI.f64) (PI.f64)) lam2) (if.f64 (>.f64 (-.f64 lam1 lam2) (PI.f64)) (-.f64 lam2 (+.f64 (PI.f64) (PI.f64))) lam2)) lam1)))
(-.f64 (/.f64 (atan.f64 (*.f64 (tan.f64 (*.f64 (*.f64 B #s(literal 1/2 binary64)) (-.f64 (if.f64 (<.f64 (-.f64 lam1 lam2) (neg.f64 (PI.f64))) (+.f64 (+.f64 (PI.f64) (PI.f64)) lam2) (if.f64 (>.f64 (-.f64 lam1 lam2) (PI.f64)) (-.f64 lam2 (+.f64 (PI.f64) (PI.f64))) lam2)) lam1))) (/.f64 J p))) B) (*.f64 #s(literal -1/2 binary64) (+.f64 (if.f64 (<.f64 (-.f64 lam1 lam2) (neg.f64 (PI.f64))) (+.f64 (+.f64 (PI.f64) (PI.f64)) lam2) (if.f64 (>.f64 (-.f64 lam1 lam2) (PI.f64)) (-.f64 lam2 (+.f64 (PI.f64) (PI.f64))) lam2)) lam1)))
(-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 lam1 (if.f64 (<.f64 (-.f64 lam1 lam2) (neg.f64 (PI.f64))) (+.f64 (+.f64 (PI.f64) (PI.f64)) lam2) (if.f64 (>.f64 (-.f64 lam1 lam2) (PI.f64)) (-.f64 lam2 (+.f64 (PI.f64) (PI.f64))) lam2)))) (/.f64 (atan.f64 (/.f64 (*.f64 J (tan.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 B (-.f64 lam1 (if.f64 (<.f64 (-.f64 lam1 lam2) (neg.f64 (PI.f64))) (+.f64 (+.f64 (PI.f64) (PI.f64)) lam2) (if.f64 (>.f64 (-.f64 lam1 lam2) (PI.f64)) (-.f64 lam2 (+.f64 (PI.f64) (PI.f64))) lam2))))))) p)) B))
(-.f64 lamc (/.f64 (asin.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 F (/.f64 #s(literal 1 binary64) F))) (tan.f64 gamma0))) B))
(/.f64 (*.f64 k0 (sqrt.f64 one_es)) (*.f64 (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi0) ecc))))
(/.f64 (*.f64 (sqrt.f64 one_es) k0) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))) #s(literal -1/2 binary64)) (*.f64 ecc ecc)) #s(literal -1 binary64)))
(asin.f64 (/.f64 (sin.f64 alpha_c) D))
(-.f64 #s(literal 1 binary64) (*.f64 es (pow.f64 (sin.f64 phi0) #s(literal 2 binary64))))
(-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 phi0 phi0)) es) es)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 es (*.f64 (pow.f64 (*.f64 (-.f64 #s(literal -1 binary64) (cos.f64 (+.f64 phi0 phi0))) #s(literal 1/2 binary64)) #s(literal 2 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 rone_es (pow.f64 (cos.f64 phi0) #s(literal 4 binary64))) es)))
(asin.f64 (*.f64 D (sin.f64 gamma0)))
(-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64)))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) (/.f64 (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (/.f64 (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (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 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64)))))))) (*.f64 c (-.f64 (log.f64 (fabs.f64 (tan.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)))))))))
(if.f64 (<=.f64 (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))) #s(literal 8572068857490139/85720688574901385675874003924800144844912384936442688595500031069628084089994889799455870305255668650207573833404251746014971622855385123487876620597588598431476542198593847883368596840498969135023633457224371799868655530139190140473324351568616503316569571821492337341283438653220995094697645344555008 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 phip0 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 phip0 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64)))))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)))) (neg.f64 (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (/.f64 (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (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 (log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)))) (neg.f64 (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (/.f64 (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (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 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (/.f64 (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (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 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (cos.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 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))))) (*.f64 c (-.f64 (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (cos.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)))))))))
(if.f64 (<=.f64 (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))) #s(literal 5000000000000000066282994891787081340343280544793230017816015738971246363452126607307989709019681249863687319282946045494061487325003512892275869151373365842953697657627637323430529093779107308789748100916331176292769417786818298761053780855470759280014374688417047589275644482057527862755328 binary64)) (-.f64 (log.f64 (/.f64 (-.f64 (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)))) (neg.f64 (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))))) (log.f64 (fabs.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi0) ecc)) (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal 1 binary64))) hlf_e)))))))
(if.f64 (<=.f64 (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))) #s(literal 99999999999999998045549773481514159457876389246726271914145983150114005386328272459269439234497983649422148597943950338419997003168440244384097290815044070304544781216945608327168 binary64)) (-.f64 (log.f64 (/.f64 (-.f64 (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)))) (neg.f64 (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (-.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi0) ecc)) (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal 1 binary64)))) hlf_e)) c)))
(if.f64 (<=.f64 (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))) #s(literal 5/2 binary64)) (-.f64 (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (-.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi0) ecc)) (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal 1 binary64)))) hlf_e)) c)))
(-.f64 (log.f64 (/.f64 (-.f64 (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 phip0 #s(literal 1/2 binary64)))) (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)))) (neg.f64 (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))))) (log.f64 (fabs.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi0) ecc)) (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal 1 binary64))) hlf_e))))))
(-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))))) (*.f64 c (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))))) (log.f64 (fabs.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi0) ecc)) (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal 1 binary64))) hlf_e))))))
(if.f64 (<=.f64 (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))) #s(literal 5000000000000000066282994891787081340343280544793230017816015738971246363452126607307989709019681249863687319282946045494061487325003512892275869151373365842953697657627637323430529093779107308789748100916331176292769417786818298761053780855470759280014374688417047589275644482057527862755328 binary64)) (-.f64 (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip0) (PI.f64)) (PI.f64)) (PI.f64))))) (*.f64 c (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))))) (log.f64 (fabs.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi0) ecc)) (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal 1 binary64))) hlf_e)))))))
(if.f64 (<=.f64 (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))) #s(literal 5000000000000000066282994891787081340343280544793230017816015738971246363452126607307989709019681249863687319282946045494061487325003512892275869151373365842953697657627637323430529093779107308789748100916331176292769417786818298761053780855470759280014374688417047589275644482057527862755328 binary64)) (-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))))) (*.f64 (-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (log.f64 (/.f64 (-.f64 #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 #s(literal 1/4 binary64) (PI.f64)) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip0) (PI.f64)) (PI.f64)) (PI.f64))))) (*.f64 c (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))))) (log.f64 (fabs.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi0) ecc)) (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal 1 binary64))) hlf_e)))))))
(if.f64 (<=.f64 (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))) #s(literal 50000000000000002413955760224438931247922123211171578196537714593581382308753827768607072911926497131829782967726685305249768864021582428900198149458066205474013195654042785480318184154653058939589376622987278157651155125236135864424088476113149362176 binary64)) (-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))))) (*.f64 (-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 9/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 #s(literal 1/4 binary64) (PI.f64)) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip0) (PI.f64)) (PI.f64)) (PI.f64))))) (*.f64 c (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))))) (log.f64 (fabs.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi0) ecc)) (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal 1 binary64))) hlf_e)))))))
(-.f64 (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/2 binary64) phip0) (PI.f64)))) (neg.f64 (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))))) (log.f64 (fabs.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi0) ecc)) (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal 1 binary64))) hlf_e))))))
(-.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 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (cos.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 (PI.f64) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (fabs.f64 (tan.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 (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 (neg.f64 L) (+.f64 (*.f64 H L) (*.f64 E_var E_var))) H) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal -1 binary64) (*.f64 H (/.f64 L (*.f64 E_var E_var))))))
(-.f64 (*.f64 (/.f64 (neg.f64 L) (+.f64 (*.f64 H L) (*.f64 E_var E_var))) H) (/.f64 E_var (neg.f64 (+.f64 E_var (/.f64 (*.f64 H L) E_var)))))
(+.f64 (*.f64 (/.f64 E_var (+.f64 (*.f64 H L) (*.f64 E_var E_var))) E_var) (*.f64 (neg.f64 (/.f64 H (+.f64 (*.f64 H L) (*.f64 E_var E_var)))) L))
(-.f64 (/.f64 (*.f64 E_var E_var) (+.f64 (*.f64 H L) (*.f64 E_var E_var))) (*.f64 (/.f64 L (+.f64 (*.f64 H L) (*.f64 E_var E_var))) H))
(/.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 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fabs.f64 (/.f64 #s(literal 1 binary64) (-.f64 D #s(literal 1 binary64)))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fabs.f64 (/.f64 #s(literal 1 binary64) (-.f64 D #s(literal 1 binary64)))))) (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 (*.f64 (sqrt.f64 (*.f64 (fabs.f64 (-.f64 D #s(literal -1 binary64))) #s(literal 1/2 binary64))) (sqrt.f64 (fabs.f64 (*.f64 #s(literal 2 binary64) (-.f64 D #s(literal 1 binary64))))))) (*.f64 (sqrt.f64 (*.f64 (fabs.f64 (-.f64 D #s(literal -1 binary64))) #s(literal 1/2 binary64))) (sqrt.f64 (fabs.f64 (*.f64 #s(literal 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)) (neg.f64 (sqrt.f64 (fabs.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64))))) (*.f64 (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) D))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)))) (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)))))
(/.f64 (*.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 es (*.f64 (*.f64 (cos.f64 phi0) (cos.f64 phi0)) (*.f64 (cos.f64 phi0) (cos.f64 phi0)))) one_es))) com) (*.f64 (cos.f64 phi0) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (*.f64 (sin.f64 phi0) (sin.f64 phi0)))))))
(/.f64 (*.f64 (sqrt.f64 (/.f64 (+.f64 one_es (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es)) one_es)) com) (*.f64 (cos.f64 phi0) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (pow.f64 (sin.f64 phi0) #s(literal 2 binary64)))))))
(/.f64 (*.f64 com (sqrt.f64 (-.f64 (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) (/.f64 es one_es)) #s(literal -1 binary64)))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))) #s(literal 1/2 binary64)) es))) (cos.f64 phi0)))
(/.f64 (*.f64 (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))) com) (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))))
(*.f64 com (/.f64 (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))) (cos.f64 phi0)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi0 phi0)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) es) (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi0 phi0)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) one_es)))))
(sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal -1 binary64) one_es) (*.f64 (pow.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi0 phi0)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) es))))
(sqrt.f64 (-.f64 (*.f64 (pow.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi0 phi0)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) (/.f64 es one_es)) #s(literal -1 binary64)))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (/.f64 (pow.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi0 phi0)) #s(literal -1 binary64)) #s(literal 1/2 binary64)) #s(literal 2 binary64)) one_es) es)))
(sqrt.f64 (/.f64 (+.f64 one_es (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es)) one_es))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) one_es) es)))
(*.f64 kR (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64))))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 3/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))))))))
(*.f64 kR (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))))))))
(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 4999999999999999719059744987206815407898577214256598482944 binary64)) (*.f64 kR (-.f64 (log.f64 (fabs.f64 (cos.f64 (+.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)))))))) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 phipp phipp) (PI.f64)))))) kR))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -5764607523034235/576460752303423488 binary64)) (*.f64 (log.f64 (fabs.f64 (/.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (cos.f64 (-.f64 (PI.f64) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))))) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))))) kR) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 phipp phipp) (PI.f64)))))) kR))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -5764607523034235/576460752303423488 binary64)) (*.f64 kR (-.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (*.f64 #s(literal -2 binary64) (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 phipp phipp) (PI.f64)))))) kR))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal 7737125245533627/77371252455336267181195264 binary64)) (*.f64 kR (-.f64 (log.f64 (fabs.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)))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 phipp phipp) (PI.f64)))))) kR))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -5764607523034235/576460752303423488 binary64)) (*.f64 kR (-.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (*.f64 #s(literal -2 binary64) (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) (*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))) #s(literal -1 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 7580654747562055/379032737378102767370356320425415662904513187772631008578870126471203845870697482014374611530431269030880793627229265919475483409207718357286202948008100864063587640630090308972232735749901964068667724412528434753635948938919936 binary64)) (*.f64 kR (-.f64 (log.f64 (fabs.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)))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -5764607523034235/576460752303423488 binary64)) (*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (tan.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 kR (log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))) #s(literal -1 binary64))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -5764607523034235/576460752303423488 binary64)) (*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (tan.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 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (log.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))) kR)) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))))))))
(*.f64 kR (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))))
(*.f64 kR (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (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 -5060056332682765/50600563326827654588123836679729326762389162441035529589225339506857584891998836722990095925359281123796769466079202977847452184346448369216753349985184627480379356069141590341116726935523304085309941919618186267140501870856173174654525838912289889085202514128089692388083353653807625633046581877161501565826926935273373696 binary64)) (*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (tan.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 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 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 -1930258305619341/48256457640483526790736996345261885416402018013988046254372920519692978755949818346967788625106125949665803400115206697318508323999832505432847356782135608177546840733663168278805472312472633443174306792848764674320699568611310171751523817932405366025164140823449795139392236379439950593039113881265164914919783530496 binary64)) (*.f64 kR (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phipp))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))))
(*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))))))
(*.f64 (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))) kR)
(+.f64 (*.f64 c1 (sin.f64 lamdp)) (+.f64 (*.f64 c3 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64)))) (*.f64 tanph (/.f64 xj (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))))
(+.f64 (*.f64 c1 (sin.f64 lamdp)) (+.f64 (*.f64 c3 (*.f64 (sin.f64 lamdp) (-.f64 #s(literal 3 binary64) (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 2 binary64)) #s(literal 4 binary64))))) (*.f64 tanph (/.f64 xj (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))))
(+.f64 (*.f64 c1 (sin.f64 lamdp)) (+.f64 (*.f64 (*.f64 c3 (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 4 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lamdp lamdp)) #s(literal 1/2 binary64)))))) (sin.f64 lamdp)) (*.f64 tanph (/.f64 xj (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))))
(+.f64 (*.f64 c1 (sin.f64 lamdp)) (+.f64 (*.f64 c3 (*.f64 (sin.f64 lamdp) (-.f64 #s(literal 3 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lamdp lamdp)) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) (*.f64 tanph (/.f64 xj (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))))
(-.f64 (/.f64 (*.f64 xj tanph) (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj)))) (*.f64 (sin.f64 lamdp) (-.f64 (*.f64 (-.f64 (*.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lamdp lamdp))) #s(literal -1/2 binary64)) #s(literal 4 binary64)) #s(literal 3 binary64)) c3) c1)))
(+.f64 (*.f64 c1 (sin.f64 lamdp)) (+.f64 (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp))) (*.f64 tanph (/.f64 xj (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))))
(-.f64 (+.f64 (+.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (*.f64 lamdp b)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) (*.f64 (/.f64 s (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj)))) tanph))
(if.f64 (<=.f64 one_es #s(literal -95000000000000001277168279329427153625664470551555610758880136213989083579060694290632981457842958652682953867347036936823735157371248727806642625154383872 binary64)) (/.f64 (+.f64 (*.f64 one_es (*.f64 tanphi sa)) (*.f64 (sin.f64 lamt) ca)) (cos.f64 lamt)) (+.f64 (*.f64 (*.f64 sa one_es) (/.f64 tanphi (cos.f64 lamt))) (*.f64 (tan.f64 lamt) ca)))
(if.f64 (<=.f64 one_es #s(literal -4500000000000000306189132087857893147845555827564738720853455977104719067616490043410661532653894762722621844167306233524966210972822478217584015329588150272 binary64)) (+.f64 (*.f64 one_es (*.f64 tanphi (/.f64 sa (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 -4500000000000000306189132087857893147845555827564738720853455977104719067616490043410661532653894762722621844167306233524966210972822478217584015329588150272 binary64)) (+.f64 (*.f64 one_es (*.f64 tanphi (/.f64 sa (cos.f64 lamt)))) (*.f64 (tan.f64 lamt) ca)) (+.f64 (*.f64 tanphi (/.f64 (*.f64 sa one_es) (cos.f64 lamt))) (*.f64 (tan.f64 lamt) ca)))
(+.f64 (*.f64 one_es (*.f64 tanphi (/.f64 sa (cos.f64 lamt)))) (*.f64 (tan.f64 lamt) ca))
(*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (log.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) U))) ArB) (*.f64 (log.f64 (fabs.f64 (-.f64 U #s(literal -1 binary64)))) ArB)))
(*.f64 #s(literal 1/2 binary64) (*.f64 ArB (-.f64 (log.f64 (fabs.f64 (-.f64 U #s(literal 1 binary64)))) (log.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) U))))))
(*.f64 #s(literal 1/2 binary64) (*.f64 ArB (log.f64 (/.f64 (-.f64 (-.f64 U #s(literal -1 binary64)) (*.f64 (-.f64 U #s(literal -1 binary64)) U)) (+.f64 (+.f64 (+.f64 U U) #s(literal 1 binary64)) (*.f64 U 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 (*.f64 B lam) #s(literal 4253529586511731/85070591730234615865843651857942052864 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 lam B))))) (if.f64 (<=.f64 (*.f64 B lam) #s(literal 400000000000000015443597714967805761117608205965401755817695318274309564065970970680789567018172681374223003611452620121565309158146834035292667189494522529602907144192 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (PI.f64) (*.f64 lam B))) singam) (*.f64 cosgam S)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 lam B))))) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (cos.f64 (-.f64 (*.f64 lam B) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) singam)) (sin.f64 (-.f64 (*.f64 lam B) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (*.f64 B lam) #s(literal 4253529586511731/85070591730234615865843651857942052864 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 lam B))))) (if.f64 (<=.f64 (*.f64 B lam) #s(literal 400000000000000015443597714967805761117608205965401755817695318274309564065970970680789567018172681374223003611452620121565309158146834035292667189494522529602907144192 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (PI.f64) (*.f64 lam B))) singam) (*.f64 cosgam S)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 lam B))))) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (sin.f64 (-.f64 (*.f64 lam B) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (*.f64 B lam) #s(literal 4253529586511731/85070591730234615865843651857942052864 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 lam B))))) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (cos.f64 (-.f64 (*.f64 lam B) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) singam)) (cos.f64 (*.f64 B lam)))))
(*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (cos.f64 (*.f64 B lam))))
(if.f64 (<=.f64 alpha #s(literal 104999999999999991859024427433716204089310641896510627012935746456477900481725751966335291985138208306694466870470131238489347801599386921472916962072705426722020089025137264338581509285561246665165242368 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (/.f64 (+.f64 (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))) (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))))) alpha)) gfi)) (/.f64 (PI.f64) #s(literal 4 binary64)))) (*.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 #s(literal -1/2 binary64) phi)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 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 -5494391545392005/4503599627370496 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (*.f64 (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (PI.f64))))) 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 -7378697629483821/36893488147419103232 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) 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 (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (PI.f64))))) 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)))))
(if.f64 (<=.f64 alpha #s(literal 12000000000000000906790928163766169985436109965807572616546274326109830844323564399038911263402313312066589457235767721984 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) 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 (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 #s(literal -1/2 binary64) phi)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) alpha)) gfi)) (/.f64 (PI.f64) #s(literal 4 binary64)))))
(if.f64 (<=.f64 phi #s(literal -7762590461503545/194064761537588616893622436057812819407110752139587076392381504753256369085797110791359801103580809743810966337141384150771447505514351798930535909380147642400556872002606238193783160703949805603157874899214558593861605856727007232 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (*.f64 (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (PI.f64))))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)))
(if.f64 (<=.f64 phi #s(literal -31500000000000000 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (if.f64 (<=.f64 phi #s(literal -7762590461503545/194064761537588616893622436057812819407110752139587076392381504753256369085797110791359801103580809743810966337141384150771447505514351798930535909380147642400556872002606238193783160703949805603157874899214558593861605856727007232 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 (/.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))))
(if.f64 (<=.f64 phi #s(literal 1542972394348225/171441377149802771351748007849600289689824769872885377191000062139256168179989779598911740610511337300415147666808503492029943245710770246975753241195177196862953084397187695766737193680997938270047266914448743599737311060278380280946648703137233006633139143642984674682566877306441990189395290689110016 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 (PI.f64) phi) phi)))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (tan.f64 (+.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 13/4 binary64) (PI.f64)))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))))
(if.f64 (<=.f64 phi #s(literal 1542972394348225/171441377149802771351748007849600289689824769872885377191000062139256168179989779598911740610511337300415147666808503492029943245710770246975753241195177196862953084397187695766737193680997938270047266914448743599737311060278380280946648703137233006633139143642984674682566877306441990189395290689110016 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 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 13/4 binary64) (PI.f64)))) 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 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))))))))
(log.f64 (/.f64 (*.f64 (*.f64 (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)))) (-.f64 (*.f64 (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64)))))))
(log.f64 (/.f64 (*.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)))) (-.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 944473296573929/9444732965739290427392 binary64)) (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) phidp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)))) (sin.f64 (-.f64 (+.f64 (PI.f64) (*.f64 phidp #s(literal 1/2 binary64))) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (+.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 13/4 binary64) (PI.f64)))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal 944473296573929/4722366482869645213696 binary64)) (log.f64 (/.f64 (cos.f64 (+.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (PI.f64))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (+.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 13/4 binary64) (PI.f64)))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal 3602879701896397/72057594037927936 binary64)) (log.f64 (/.f64 (cos.f64 (+.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (PI.f64))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal 3602879701896397/72057594037927936 binary64)) (log.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))))))
(+.f64 (log.f64 (fabs.f64 (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))))
(-.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) phidp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.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) phidp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)))) (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 3602879701896397/72057594037927936 binary64)) (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal 3602879701896397/72057594037927936 binary64)) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phidp))) (cos.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal 2535301200456459/2535301200456458802993406410752 binary64)) (log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))))))
(log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64))))))))
(log.f64 (/.f64 (*.f64 (*.f64 (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)))) (-.f64 (*.f64 (sin.f64 (*.f64 phi #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64)))))))
(log.f64 (/.f64 (*.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)))) (-.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 944473296573929/9444732965739290427392 binary64)) (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) phi)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)))) (sin.f64 (-.f64 (+.f64 (PI.f64) (*.f64 phi #s(literal 1/2 binary64))) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (+.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 13/4 binary64) (PI.f64)))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal 944473296573929/4722366482869645213696 binary64)) (log.f64 (/.f64 (cos.f64 (+.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (PI.f64))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (+.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 13/4 binary64) (PI.f64)))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal 3602879701896397/72057594037927936 binary64)) (log.f64 (/.f64 (cos.f64 (+.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (PI.f64))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal 3602879701896397/72057594037927936 binary64)) (log.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))))
(+.f64 (log.f64 (fabs.f64 (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))))
(-.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) phi)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.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) phi)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)))) (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 3602879701896397/72057594037927936 binary64)) (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal 3602879701896397/72057594037927936 binary64)) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi))) (cos.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal 2535301200456459/2535301200456458802993406410752 binary64)) (log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))))
(log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))
(-.f64 (*.f64 (-.f64 u u0) cosrot) (*.f64 v sinrot))
(+.f64 (*.f64 v cosrot) (*.f64 (-.f64 u u0) sinrot))
(*.f64 (*.f64 (neg.f64 rho0) (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n)) (/.f64 #s(literal 1 binary64) (neg.f64 (pow.f64 (/.f64 (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) s)) (sin.f64 (*.f64 #s(literal -1/2 binary64) s))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) s)) (sin.f64 (*.f64 s #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) n))))
(*.f64 (pow.f64 (/.f64 (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) s)) (sin.f64 (*.f64 #s(literal -1/2 binary64) s))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) s)) (sin.f64 (*.f64 s #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (neg.f64 n)) (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) rho0))
(*.f64 (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) (pow.f64 (/.f64 (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) s)) (sin.f64 (*.f64 #s(literal -1/2 binary64) s))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) s)) (sin.f64 (*.f64 s #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (neg.f64 n))) rho0)
(*.f64 (*.f64 (neg.f64 rho0) (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n)) (/.f64 #s(literal 1 binary64) (neg.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)))) (cos.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 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 (/.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)))) (cos.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64)))) n)))
(*.f64 rho0 (/.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) (pow.f64 (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) s)) (sin.f64 (*.f64 #s(literal -1/2 binary64) s))) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 s s) (PI.f64)))))) n)))
(*.f64 (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) (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)))) (cos.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64)))) (neg.f64 n))) rho0)
(*.f64 (pow.f64 (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 s #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 s s) (PI.f64))))) (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 rho0 (pow.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64)) (PI.f64))) n)) (pow.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 s s) (PI.f64))))) n))
(*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) (*.f64 rho0 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64))) (neg.f64 n))))
(asin.f64 (-.f64 (*.f64 cosp0 (sin.f64 phip)) (*.f64 (*.f64 (cos.f64 phip) sinp0) (cos.f64 lamp))))
(asin.f64 (-.f64 (*.f64 cosp0 (sin.f64 phip)) (*.f64 sinp0 (*.f64 (cos.f64 phip) (cos.f64 lamp)))))
(if.f64 (<=.f64 phi #s(literal 4943656120871369/44942328371557897693232629769725618340449424473557664318357520289433168951375240783177119330601884005280028469967848339414697442203604155623211857659868531094441973356216371319075554900311523529863270738021251442209537670585615720368478277635206809290837627671146574559986811484619929076208839082406056034304 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (-.f64 K (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e) (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (if.f64 (<=.f64 phi #s(literal 7378697629483821/73786976294838206464 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (atan.f64 (exp.f64 (+.f64 (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) (PI.f64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi)))))))) K)))) (/.f64 (PI.f64) #s(literal 2 binary64))) (-.f64 (*.f64 (atan.f64 (exp.f64 (-.f64 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)) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))))) (-.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 7924417967034979/16509204097989538948510618278641143953713978938628797566498772157083559454897651858575539246489287121708574843539285271215073361234458923039079343076966861778387083874968908880272859927388326282907007278381599637629625884148486304338699903086469889890298080653054312448 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (-.f64 K (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e) (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (if.f64 (<=.f64 phi #s(literal 8991660464047547/2854495385411919762116571938898990272765493248 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (atan.f64 (exp.f64 (+.f64 (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phi #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi)))))))) K)))) (/.f64 (PI.f64) #s(literal 2 binary64))) (-.f64 (*.f64 (atan.f64 (exp.f64 (-.f64 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)) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))))) (-.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 4943656120871369/44942328371557897693232629769725618340449424473557664318357520289433168951375240783177119330601884005280028469967848339414697442203604155623211857659868531094441973356216371319075554900311523529863270738021251442209537670585615720368478277635206809290837627671146574559986811484619929076208839082406056034304 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (-.f64 K (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e) (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (log.f64 (fabs.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))))) c) K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(if.f64 (<=.f64 phi #s(literal -50000000000000002382364672 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (log.f64 (fabs.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))))) c) K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (if.f64 (<=.f64 phi #s(literal 4037787314632155/351111940402796075728379920075981393284761128699669252487168127261196632432619068618571244770327218791250222421623815151677323767215657465806342637967722899175327916845440400930277772658683777577056802640791026892262013051450122815378736544025053197584668966180832613749896964723593195907881555331297312768 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 K (*.f64 (-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.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)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (log.f64 (fabs.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))))) c) K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(if.f64 (<=.f64 phi #s(literal 4037787314632155/351111940402796075728379920075981393284761128699669252487168127261196632432619068618571244770327218791250222421623815151677323767215657465806342637967722899175327916845440400930277772658683777577056802640791026892262013051450122815378736544025053197584668966180832613749896964723593195907881555331297312768 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (atan.f64 (exp.f64 (+.f64 (*.f64 c (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi))))) (log.f64 (fabs.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) hlf_e))))) K)))) (/.f64 (PI.f64) #s(literal 2 binary64))) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (log.f64 (fabs.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))))) c) K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(if.f64 (<=.f64 (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi)))))))) #s(literal 200000000000000013066955221149234614006420798956587259551286384346253844053977495787045794389248620240281172723795887588127372414002777379796274447149163924589277282496240804681694345098045284941494988528265817679549884087553314090994018176858671070391939629056 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 K (*.f64 (-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.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)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 (atan.f64 (*.f64 (pow.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))) c) (exp.f64 K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(if.f64 (<=.f64 (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi)))))))) #s(literal 200000000000000013066955221149234614006420798956587259551286384346253844053977495787045794389248620240281172723795887588127372414002777379796274447149163924589277282496240804681694345098045284941494988528265817679549884087553314090994018176858671070391939629056 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 K (*.f64 (-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.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)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 (atan.f64 (*.f64 (pow.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (+.f64 (*.f64 phi #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 21/4 binary64) (PI.f64)) (PI.f64))))) c) (exp.f64 K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(if.f64 (<=.f64 phi #s(literal 7540071506325551/377003575316277553052632783947358479815640765734281611362288441560101396530857955835685848633641608981764089063400052322800846281248691448694119974860434438887084693231743502178167752441192448774799271819130974018130465379775860716808779827596916922071594850183201524526501846714374614008118077197384100897810808832 binary64)) (-.f64 (*.f64 (atan.f64 (*.f64 (exp.f64 K) (pow.f64 (*.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e))) c))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 (atan.f64 (*.f64 (pow.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (+.f64 (*.f64 #s(literal 21/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))) c) (exp.f64 K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(if.f64 (<=.f64 phi #s(literal 161993723768713/736335108039604595805923406147184530889923370574768772191969612422073040099331944991573923112581267542507986451953227192970402893063850485730703075899286013451337291468249027691733891486704001513279827771740183629161065194874727962517148100775228363421083691764065477590823919364012917984605619526140822066036736 binary64)) (-.f64 (*.f64 (atan.f64 (*.f64 (exp.f64 K) (pow.f64 (*.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e))) c))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 (atan.f64 (*.f64 (pow.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))) c) (exp.f64 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 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi))) (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 (pow.f64 (sin.f64 phi) #s(literal 2 binary64)))))))
(asin.f64 (/.f64 (-.f64 (*.f64 (*.f64 ca one_es) (sin.f64 phi)) (*.f64 sa (*.f64 (cos.f64 phi) (sin.f64 lamt)))) (sqrt.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64)))))
(asin.f64 (/.f64 (-.f64 (*.f64 one_es (*.f64 ca (sin.f64 phi))) (*.f64 sa (*.f64 (cos.f64 phi) (sin.f64 lamt)))) (sqrt.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64)))))
(asin.f64 (*.f64 (/.f64 cp (cos.f64 phipp)) (sin.f64 lamp)))
(*.f64 #s(literal 1/2 binary64) (+.f64 W (/.f64 #s(literal 1 binary64) W)))
(*.f64 #s(literal 1/2 binary64) (-.f64 W (/.f64 #s(literal 1 binary64) W)))
(pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 phi)))) (*.f64 #s(literal 1/2 binary64) (*.f64 alpha evar)))
(-.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) #s(literal -2 binary64))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))))
(-.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (pow.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) #s(literal 2 binary64)))) (log.f64 (fabs.f64 (-.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 singam #s(literal 129999999999999994362944884089470452379712473223704824616088782746186345281217901965577782144903387180291246880434359047566208731720376695723572186663966814056089994042462522892323874518081753328382524784640 binary64)) (/.f64 (-.f64 (*.f64 S singam) (*.f64 (sin.f64 (*.f64 B lam)) cosgam)) T) (-.f64 (*.f64 (/.f64 S T) singam) (*.f64 cosgam (/.f64 (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 (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (sinh.f64 Ce) #s(literal -2 binary64))) #s(literal -1/2 binary64)) #s(literal -1/2 binary64)))
(sqrt.f64 (-.f64 (-.f64 (pow.f64 (sinh.f64 Ce) #s(literal 2 binary64)) #s(literal -1/2 binary64)) #s(literal -1/2 binary64)))
(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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sinh.f64 Ce) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal -1 binary64) (cos.f64 (+.f64 Cn Cn))) #s(literal 1/2 binary64)))))))
(atan2.f64 (sin.f64 Cn) (sqrt.f64 (-.f64 (pow.f64 (sinh.f64 Ce) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal -1 binary64) (cos.f64 (+.f64 Cn Cn))) #s(literal 1/2 binary64)))))
(atan2.f64 (sinh.f64 Ce) (cos.f64 Cn))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 Cn) #s(literal 2 binary64)) (*.f64 (cos.f64 Cn) (*.f64 (cos.f64 Cn) (pow.f64 (cos.f64 lam) #s(literal 2 binary64)))))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 Cn) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 Cn) (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)))) (*.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 Cn) (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)))) (*.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 (pow.f64 (sin.f64 Cn) #s(literal 2 binary64)) (*.f64 (cos.f64 Cn) (*.f64 (cos.f64 Cn) (pow.f64 (cos.f64 lam) #s(literal 2 binary64)))))))
(/.f64 (*.f64 (sin.f64 lam) (cos.f64 Cn)) (sqrt.f64 (+.f64 (pow.f64 (sin.f64 Cn) #s(literal 2 binary64)) (pow.f64 (*.f64 (cos.f64 Cn) (cos.f64 lam)) #s(literal 2 binary64)))))
(*.f64 (cos.f64 Cn) (/.f64 (sin.f64 lam) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 Cn) (cos.f64 lam)) #s(literal 2 binary64)) (pow.f64 (sin.f64 Cn) #s(literal 2 binary64))))))
(*.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 (cos.f64 Cn) (/.f64 (sin.f64 lam) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 Cn) (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 (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 cosh_arg_i #s(literal -8965727053400039/30916300184138066757562815127455898754391418637651479989257882011612153138316483396289550132655380623699708928252017417418920629288343901245943269387736645989575846518587392 binary64)) (-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)) (if.f64 (<=.f64 cosh_arg_i #s(literal 6727386920068443/3957286423569672544968040336314355040562101585619389438625008897486355601704509874725062416979888719833562742816258229429621840548908019359480738481630290686665708354379186176 binary64)) (-.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hr) (*.f64 (*.f64 hi cos_arg_r) sinh_arg_i)) (-.f64 (*.f64 (*.f64 hr sin_arg_r) cosh_arg_i) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi))))
(if.f64 (<=.f64 hr #s(literal 4542742026847543/22713710134237715329666368996500141698551292521478689383796568724394977753543685103943470334805111423773828800195818060422956300894208 binary64)) (-.f64 (*.f64 (*.f64 hi cos_arg_r) (neg.f64 sinh_arg_i)) (*.f64 (*.f64 (neg.f64 hr) sin_arg_r) cosh_arg_i)) (-.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hr) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)))
(if.f64 (<=.f64 cosh_arg_i #s(literal -255000000000000000 binary64)) (-.f64 (*.f64 (*.f64 hr sin_arg_r) cosh_arg_i) (*.f64 (*.f64 hi sinh_arg_i) cos_arg_r)) (-.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hr) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)))
(if.f64 (<=.f64 sinh_arg_i #s(literal -1624611148898915/1353842624082429130653522550851115089568572790710847937094960732721983060451965636249987502980536903367866802227247837807116288 binary64)) (-.f64 (*.f64 (*.f64 hr sin_arg_r) cosh_arg_i) (*.f64 (*.f64 hi sinh_arg_i) cos_arg_r)) (-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)))
(if.f64 (<=.f64 cosh_arg_i #s(literal 2826955303645415/28269553036454149273332760011886696253239742350009903329945699220681916416 binary64)) (-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)) (-.f64 (*.f64 (*.f64 hr sin_arg_r) cosh_arg_i) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)))
(-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi))
(if.f64 (<=.f64 cos_arg_r #s(literal -12000000000000000440704249066086580235837476420749623341370671813864557354056393997605841195064246274603858573647411086675847122951317309249858382282957890495950584977157604262240213130627895506911592784427576689893433434148175872 binary64)) (+.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hi) (*.f64 (*.f64 hr sinh_arg_i) cos_arg_r)) (if.f64 (<=.f64 cos_arg_r #s(literal -2395587863123407/43556142965880123323311949751266331066368 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 cos_arg_r) sinh_arg_i))))
(if.f64 (<=.f64 hi #s(literal 3498129412289897/744282853678701455922507579277316643178128753343813693728245963960974631028119473486019635930893891134220822124816566203939432067701407744 binary64)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.f64 (*.f64 hr cos_arg_r) sinh_arg_i)) (+.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hi) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr)))
(if.f64 (<=.f64 (*.f64 cos_arg_r sinh_arg_i) #s(literal -686479766013061/3432398830065304857490950399540696608634717650071652704697231729592771591698828026061279820330727277488648155695740429018560993999858321906287014145557528576 binary64)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.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 999999999999999945322333868247445125709646570021247924665841614848 binary64)) (+.f64 (*.f64 (*.f64 hi cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr)))
(+.f64 (*.f64 (*.f64 hi cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr))
(if.f64 (>.f64 (fabs.f64 (cos.f64 phi)) #s(literal 1/10000000000 binary64)) (tan.f64 phi) #s(literal 0 binary64))
(/.f64 (*.f64 (cos.f64 phi) lam) (sqrt.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64))))
(*.f64 (/.f64 x k0) (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))))