(if.f64 (<=.f64 (cos.f64 (+.f64 phi0 (/.f64 y esp))) #s(literal 3602879701896397/9007199254740992 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (-.f64 (/.f64 y esp) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 phi0)) (*.f64 (sin.f64 (/.f64 y esp)) (sin.f64 phi0)))) #s(literal 0 binary64))) (atan2.f64 g (-.f64 (*.f64 (sin.f64 (-.f64 (/.f64 y esp) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 phi0)) (*.f64 (sin.f64 (/.f64 y esp)) (sin.f64 phi0)))) #s(literal 0 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (+.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi0)) (sin.f64 (/.f64 (neg.f64 y) esp))) (*.f64 (cos.f64 phi0) (sin.f64 (+.f64 (/.f64 (neg.f64 y) esp) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 0 binary64))) (atan2.f64 g (+.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi0)) (sin.f64 (/.f64 (neg.f64 y) esp))) (*.f64 (cos.f64 phi0) (sin.f64 (+.f64 (/.f64 (neg.f64 y) esp) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 0 binary64)))
(if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (-.f64 (/.f64 y esp) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 phi0)) (*.f64 (sin.f64 (/.f64 y esp)) (sin.f64 phi0)))) #s(literal 0 binary64))) (atan2.f64 g (-.f64 (*.f64 (sin.f64 (-.f64 (/.f64 y esp) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (cos.f64 phi0)) (*.f64 (sin.f64 (/.f64 y esp)) (sin.f64 phi0)))) #s(literal 0 binary64))
(if.f64 (<=.f64 (/.f64 y esp) #s(literal -100000000 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 (/.f64 #s(literal -1 binary64) esp) y) (-.f64 phi0 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 0 binary64))) (atan2.f64 g (sin.f64 (-.f64 (*.f64 (/.f64 #s(literal -1 binary64) esp) y) (-.f64 phi0 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 0 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (cos.f64 (+.f64 phi0 (/.f64 #s(literal 1 binary64) (/.f64 esp y))))) #s(literal 0 binary64))) (atan2.f64 g (cos.f64 (+.f64 phi0 (/.f64 #s(literal 1 binary64) (/.f64 esp y))))) #s(literal 0 binary64)))
(if.f64 (<=.f64 (/.f64 y esp) #s(literal -100000000 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (sin.f64 (-.f64 (/.f64 (neg.f64 y) esp) (-.f64 phi0 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 0 binary64))) (atan2.f64 g (sin.f64 (-.f64 (/.f64 (neg.f64 y) esp) (-.f64 phi0 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 0 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (cos.f64 (+.f64 phi0 (/.f64 #s(literal 1 binary64) (/.f64 esp y))))) #s(literal 0 binary64))) (atan2.f64 g (cos.f64 (+.f64 phi0 (/.f64 #s(literal 1 binary64) (/.f64 esp y))))) #s(literal 0 binary64)))
(if.f64 (<=.f64 (/.f64 y esp) #s(literal -100000000 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (sin.f64 (-.f64 (/.f64 (neg.f64 y) esp) (-.f64 phi0 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 0 binary64))) (atan2.f64 g (sin.f64 (-.f64 (/.f64 (neg.f64 y) esp) (-.f64 phi0 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 0 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (cos.f64 (+.f64 phi0 (/.f64 y esp)))) #s(literal 0 binary64))) (atan2.f64 g (cos.f64 (+.f64 phi0 (/.f64 y esp)))) #s(literal 0 binary64)))
(if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (cos.f64 (+.f64 phi0 (/.f64 y esp)))) #s(literal 0 binary64))) (atan2.f64 g (cos.f64 (+.f64 phi0 (/.f64 y esp)))) #s(literal 0 binary64))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (/.f64 y esp) phi0)) (asin.f64 (/.f64 (fabs.f64 (+.f64 (*.f64 (sin.f64 phi0) (cos.f64 (/.f64 y esp))) (*.f64 (cos.f64 phi0) (sin.f64 (/.f64 y esp))))) (cosh.f64 (asinh.f64 g)))))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (/.f64 y esp) phi0)) (asin.f64 (/.f64 (fabs.f64 (sin.f64 (+.f64 (/.f64 y esp) phi0))) (cosh.f64 (asinh.f64 g)))))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (/.f64 y esp) phi0)) (asin.f64 (/.f64 (fabs.f64 (sin.f64 (+.f64 (/.f64 y esp) phi0))) (sqrt.f64 (-.f64 (*.f64 g g) #s(literal -1 binary64))))))
(sinh.f64 (/.f64 x esp))
(/.f64 (*.f64 (cos.f64 phi) (cos.f64 lam)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (*.f64 (neg.f64 (sin.f64 lam)) (cos.f64 phi))) (*.f64 (sqrt.f64 (+.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal -1 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1/2 binary64)))) #s(literal -1/2 binary64)) #s(literal 1 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))))))
(/.f64 (*.f64 (cos.f64 phi) (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))))))))
(*.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 (*.f64 #s(literal 1/2 binary64) (log.f64 (-.f64 (-.f64 (*.f64 b b) (*.f64 #s(literal 2 binary64) (*.f64 b #s(literal -1 binary64)))) #s(literal -1 binary64)))) (log.f64 (fabs.f64 (-.f64 b #s(literal 1 binary64))))))
(*.f64 ml0 (-.f64 (log.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) (*.f64 b b)))) (log.f64 (-.f64 (*.f64 b (-.f64 b #s(literal 2 binary64))) #s(literal -1 binary64)))))
(*.f64 ml0 (neg.f64 (log.f64 (/.f64 (-.f64 (*.f64 b (-.f64 b #s(literal 2 binary64))) #s(literal -1 binary64)) (fabs.f64 (-.f64 #s(literal 1 binary64) (*.f64 b b)))))))
(*.f64 (log.f64 (/.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) (*.f64 b b))) (-.f64 (*.f64 b (-.f64 b #s(literal 2 binary64))) #s(literal -1 binary64)))) ml0)
(*.f64 ml0 (log.f64 (/.f64 (-.f64 (*.f64 b b) #s(literal 1 binary64)) (*.f64 (-.f64 b #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) b)))))
(*.f64 ml0 (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) b) (-.f64 #s(literal 1 binary64) b))))
(*.f64 (cos.f64 phi) (sin.f64 lam))
(pow.f64 one_es #s(literal 3 binary64))
(*.f64 one_es (*.f64 one_es one_es))
(-.f64 (*.f64 (-.f64 (*.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 (-.f64 (*.f64 (*.f64 rone_es ca) (*.f64 ca es)) rone_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 (*.f64 (*.f64 ca es) ca) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 rone_es ca) (*.f64 ca es)) rone_es)) rone_es) #s(literal 1 binary64))
(-.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 ca es) ca) #s(literal 1 binary64)) (-.f64 (*.f64 rone_es (*.f64 (*.f64 ca es) ca)) rone_es)) 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 sa) es))
(*.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 2000000000000000015260947079150071321029556671023421501560173328879939021272989909222263098271678373027966911110790441791375721089619169999659450521189746542174799252973212292885101977680033834789252899072790417240534025556155575446791828129214239924138966649147955715664277650565909970944 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 rone_es es) sa) (*.f64 rone_es (-.f64 #s(literal 2 binary64) es))) sa) (*.f64 (*.f64 (*.f64 rone_es sa) (*.f64 rone_es sa)) (*.f64 (-.f64 #s(literal 2 binary64) es) es)))
(if.f64 (<=.f64 (*.f64 (*.f64 es (*.f64 sa sa)) (*.f64 (-.f64 #s(literal 2 binary64) es) (*.f64 rone_es rone_es))) #s(literal 2000000000000000015260947079150071321029556671023421501560173328879939021272989909222263098271678373027966911110790441791375721089619169999659450521189746542174799252973212292885101977680033834789252899072790417240534025556155575446791828129214239924138966649147955715664277650565909970944 binary64)) (*.f64 (*.f64 (*.f64 sa es) (*.f64 (*.f64 rone_es (-.f64 #s(literal 2 binary64) es)) rone_es)) sa) (*.f64 (*.f64 (*.f64 rone_es sa) (*.f64 rone_es sa)) (*.f64 (-.f64 #s(literal 2 binary64) es) es)))
(if.f64 (<=.f64 (*.f64 (*.f64 es (*.f64 sa sa)) (*.f64 (-.f64 #s(literal 2 binary64) es) (*.f64 rone_es rone_es))) #s(literal +inf.0 binary64)) (*.f64 (*.f64 (*.f64 rone_es sa) (*.f64 sa es)) (*.f64 rone_es (-.f64 #s(literal 2 binary64) es))) (*.f64 (*.f64 (*.f64 rone_es sa) (*.f64 rone_es sa)) (*.f64 (-.f64 #s(literal 2 binary64) es) es)))
(if.f64 (<=.f64 (*.f64 (*.f64 es (*.f64 sa sa)) (*.f64 (-.f64 #s(literal 2 binary64) es) (*.f64 rone_es rone_es))) #s(literal 2000000000000000015260947079150071321029556671023421501560173328879939021272989909222263098271678373027966911110790441791375721089619169999659450521189746542174799252973212292885101977680033834789252899072790417240534025556155575446791828129214239924138966649147955715664277650565909970944 binary64)) (*.f64 sa (*.f64 sa (*.f64 (*.f64 es rone_es) (*.f64 rone_es (-.f64 #s(literal 2 binary64) es))))) (*.f64 (*.f64 (*.f64 rone_es sa) (*.f64 rone_es sa)) (*.f64 (-.f64 #s(literal 2 binary64) es) es)))
(*.f64 sa (*.f64 sa (*.f64 (*.f64 es rone_es) (*.f64 rone_es (-.f64 #s(literal 2 binary64) es)))))
(*.f64 (/.f64 n0 (sin.f64 #s(literal 27401669256311/20000000000000 binary64))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal -27401669256311/20000000000000 binary64))) k0))
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 (tan.f64 (-.f64 (*.f64 #s(literal 4 binary64) (PI.f64)) #s(literal -27401669256311/20000000000000 binary64))) k0)) n0)
(*.f64 (/.f64 k0 (tan.f64 (-.f64 (*.f64 #s(literal 4 binary64) (PI.f64)) #s(literal -27401669256311/20000000000000 binary64)))) n0)
(*.f64 (*.f64 (tan.f64 (-.f64 #s(literal -27401669256311/20000000000000 binary64) (*.f64 #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 k0 n0) (tan.f64 #s(literal 27401669256311/20000000000000 binary64)))
(*.f64 (/.f64 k0 (tan.f64 #s(literal 27401669256311/20000000000000 binary64))) n0)
(/.f64 (pow.f64 (-.f64 #s(literal 1 binary64) es) #s(literal 1/2 binary64)) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))) (*.f64 #s(literal -1/2 binary64) es)) #s(literal -1 binary64)))
(/.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 phi0 #s(literal 2240452849447631/53344115463038834192638814325770062377158066578527265283170062494112297902541056572171457606972434325943439284747465923567110413232954920642906848418646640368761260636112116467704626287294512197831720129087092815853525984299811690329311019008 binary64)) (/.f64 (*.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (*.f64 u0 #s(literal 2 binary64)) (PI.f64))))) g) (pow.f64 (+.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (-.f64 (*.f64 (cos.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (-.f64 (*.f64 (cos.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) alpha)) (if.f64 (<=.f64 phi0 #s(literal 7910139745424151/20282409603651670423947251286016 binary64)) (*.f64 (sin.f64 (*.f64 (-.f64 (*.f64 u0 #s(literal -2 binary64)) (PI.f64)) #s(literal -1/4 binary64))) (*.f64 (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) u0)) (cos.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 u0 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)))))) (*.f64 (pow.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64)))) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64))))) (neg.f64 alpha)) g))) (/.f64 (*.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (*.f64 u0 #s(literal 2 binary64)) (PI.f64))))) g) (pow.f64 (+.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (-.f64 (*.f64 (cos.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (-.f64 (*.f64 (cos.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) 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 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (*.f64 u0 #s(literal 2 binary64)) (PI.f64))))) g) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) alpha)) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) (neg.f64 alpha)) (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g)))
(if.f64 (<=.f64 alpha #s(literal 2750000000000000044886607461128857226808862929033749583193821060563439892322927325051528961366694335384274536166588227608729964543775894430885268604550608698625318170311888577240996350398817006289493262331877340540117143477288960 binary64)) (/.f64 (*.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (*.f64 u0 #s(literal 2 binary64)) (PI.f64))))) g) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) alpha)) (*.f64 (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (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 2750000000000000044886607461128857226808862929033749583193821060563439892322927325051528961366694335384274536166588227608729964543775894430885268604550608698625318170311888577240996350398817006289493262331877340540117143477288960 binary64)) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) (neg.f64 alpha)) (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g)) (*.f64 (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (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 912488123524439/9124881235244390437282343211400582649786457014497119861158385035798550334417354773011825622634742799557284619147188814621377409442750875996505322639444428376503989348720529900165748384493207552 binary64)) (*.f64 (sin.f64 (*.f64 (-.f64 (*.f64 u0 #s(literal -2 binary64)) (PI.f64)) #s(literal -1/4 binary64))) (*.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) u0)))) (*.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) (neg.f64 alpha)) g))) (*.f64 (pow.f64 (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64)))) (neg.f64 alpha)) (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g)))
(if.f64 (<=.f64 (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha)) #s(literal 0 binary64)) (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (tan.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64)))) alpha)) (*.f64 (pow.f64 (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64)))) (neg.f64 alpha)) (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g)))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 8106479329266893/18014398509481984 binary64)) (*.f64 (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) (pow.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) (neg.f64 alpha))) g) (/.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 phi0 #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64)))) alpha)))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 4503599627370271/4503599627370496 binary64)) (*.f64 (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) (pow.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) (neg.f64 alpha))) g) (*.f64 (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (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 (pow.f64 (tan.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (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 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) (pow.f64 (tan.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (neg.f64 alpha))) g)
(*.f64 (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) (neg.f64 alpha))) g)
(sqrt.f64 (/.f64 (-.f64 (-.f64 es #s(literal 1 binary64)) (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es)) (-.f64 es #s(literal 1 binary64))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 es (pow.f64 (cos.f64 phi0) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) es))))
(if.f64 (<=.f64 lam #s(literal 190 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 (*.f64 sa p22) (*.f64 (sqrt.f64 (fabs.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))))) (cos.f64 lam))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))))))))
(if.f64 (<=.f64 t #s(literal 2700000000000000 binary64)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) w) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 (neg.f64 q) (sin.f64 lam)) (sin.f64 lam)) #s(literal 1 binary64)))))))) (*.f64 (*.f64 (*.f64 (cos.f64 lam) sa) p22) (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 t (sin.f64 lam)) (sin.f64 lam)) #s(literal -1 binary64)) (*.f64 (-.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)))))))
(if.f64 (<=.f64 q #s(literal 1188422437713965/19807040628566084398385987584 binary64)) (*.f64 (*.f64 (cos.f64 lam) sa) (*.f64 (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))))) p22)) (*.f64 (*.f64 (cos.f64 lam) sa) (*.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 (neg.f64 q) (sin.f64 lam)) (sin.f64 lam)) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) w) #s(literal 1 binary64))))) p22)))
(if.f64 (<=.f64 (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))))))) #s(literal 2043740476963553/40874809539271061742722513162994453833061401813718170449972167525114099545476384067275939133289179158309733311369062302596555530002300798171938238428873347488153716182038234655079172535180553977500740746128259563383414998120875425564443755897815944345745836172815483732835501982317445323323080704 binary64)) (/.f64 (*.f64 (*.f64 sa p22) (*.f64 (sqrt.f64 (fabs.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))))) (cos.f64 lam))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))))))) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (-.f64 (*.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 (*.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 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))))))))
(if.f64 (<=.f64 q #s(literal 6313687073269501/46768052394588893382517914646921056628989841375232 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 (*.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 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64)))))))) (*.f64 (/.f64 (*.f64 (*.f64 sa p22) (sqrt.f64 (fabs.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64)))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))))))) (cos.f64 lam)))
(/.f64 (*.f64 (*.f64 sa p22) (*.f64 (sqrt.f64 (fabs.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))))) (cos.f64 lam))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)))))))
(*.f64 (/.f64 (*.f64 (*.f64 sa p22) (sqrt.f64 (fabs.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64)))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))))))) (cos.f64 lam))
(*.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 (cos.f64 lam) sa) (*.f64 (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)))) p22))
(*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (/.f64 (-.f64 (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)))))))
(*.f64 (*.f64 p22 (*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (*.f64 (-.f64 (*.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 p22 (*.f64 (cos.f64 lam) sa)) (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) q) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) w) #s(literal 1 binary64))))))
(*.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 p22 (*.f64 (*.f64 sa (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) q) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) w) #s(literal 1 binary64)))))) (cos.f64 lam)))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (*.f64 p22 ca)))
(/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 #s(literal 0 binary64) (+.f64 lam lam)) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 #s(literal 0 binary64) (+.f64 lam lam)) #s(literal 2 binary64)))))) #s(literal 1/2 binary64))))) (*.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 -2 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 #s(literal 0 binary64) (+.f64 lam lam)) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 #s(literal 0 binary64) (+.f64 lam lam)) #s(literal 2 binary64)))))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam))))))))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 q #s(literal 1/2 binary64)) (*.f64 q (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lam lam)))))) (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 q #s(literal 1/2 binary64)) (*.f64 q (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lam lam)))))) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 q #s(literal 1/2 binary64)) (*.f64 q (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lam lam)))))))) (*.f64 p22 ca)))
(*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 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 (sin.f64 lam)) (sin.f64 lam)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam))))))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 p22 ca)))
(*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (-.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 (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 (/.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 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))) (*.f64 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 (neg.f64 (cos.f64 (+.f64 lam lam))) 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 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (+.f64 q (*.f64 (neg.f64 (cos.f64 (+.f64 lam lam))) q)) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))))))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))))))
(*.f64 mult (*.f64 (/.f64 (+.f64 xj h) (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj)))) s))
(*.f64 mult (*.f64 (/.f64 s (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj)))) (+.f64 xj h)))
(*.f64 mult (/.f64 (-.f64 (*.f64 h xj) (*.f64 s s)) (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))
(if.f64 (<=.f64 e #s(literal -2400000000000000090590143795747557289587927630768695446394078114884230447300930505211402734071702971483268666368729496282346375149409396776235707979024034886057984 binary64)) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal 89999999999999998114352265849916975417577148811279145397760407758222311187192099589062656 binary64)) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (*.f64 e #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 (cos.f64 phi) (sin.f64 phi)) (cos.f64 phi)) (*.f64 (cos.f64 phi) (cos.f64 phi))))) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64))))) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e)))))
(if.f64 (<=.f64 e #s(literal -2400000000000000090590143795747557289587927630768695446394078114884230447300930505211402734071702971483268666368729496282346375149409396776235707979024034886057984 binary64)) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal 89999999999999998114352265849916975417577148811279145397760407758222311187192099589062656 binary64)) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (*.f64 e #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (sin.f64 phi) #s(literal -1 binary64)) (cos.f64 phi)))) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64))))) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e)))))
(if.f64 (<=.f64 e #s(literal -2400000000000000090590143795747557289587927630768695446394078114884230447300930505211402734071702971483268666368729496282346375149409396776235707979024034886057984 binary64)) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal 89999999999999998114352265849916975417577148811279145397760407758222311187192099589062656 binary64)) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (*.f64 e #s(literal 1/2 binary64))) (/.f64 (cos.f64 phi) (-.f64 (sin.f64 phi) #s(literal -1 binary64)))) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64))))) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e)))))
(if.f64 (<=.f64 e #s(literal -2400000000000000090590143795747557289587927630768695446394078114884230447300930505211402734071702971483268666368729496282346375149409396776235707979024034886057984 binary64)) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal 89999999999999998114352265849916975417577148811279145397760407758222311187192099589062656 binary64)) (*.f64 (cos.f64 phi) (/.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (*.f64 e #s(literal 1/2 binary64))) (-.f64 (sin.f64 phi) #s(literal -1 binary64)))) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64))))) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e)))))
(if.f64 (<=.f64 phi #s(literal 7994977562992783/156764265941034957982331212844852467344711417043899710759469297619722251722129607859661177881884230709880082871203965476543290384119266386721367084105368877945996036265148061460008137163052639879920877568 binary64)) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) e))) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64))))) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e))))
(*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64))))) (-.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 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 e #s(literal 1/2 binary64))) (tan.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64))))
(*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (*.f64 e #s(literal 1/2 binary64))) (tan.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64))))
(+.f64 #s(literal 9827991/390625000 binary64) (-.f64 (-.f64 (-.f64 (-.f64 (+.f64 (-.f64 (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (-.f64 Xr Yr)) (+.f64 Xr Yr)) (*.f64 #s(literal -4616990181/250000000000000000000 binary64) (*.f64 Xr Yr))) (*.f64 Xr #s(literal -4668270147/10000000000000000 binary64))) (*.f64 #s(literal -149230739/1250000000000000 binary64) Yr)) (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) Xr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr)))) (-.f64 (*.f64 (*.f64 (*.f64 #s(literal -3689471323/250000000000000000000000000000000 binary64) Xr) Yr) (*.f64 (+.f64 Xr Yr) (-.f64 Xr Yr))) (*.f64 (*.f64 #s(literal -4165541759/500000000000000000000000000000000 binary64) (*.f64 Yr Yr)) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr)))))) (-.f64 (*.f64 (*.f64 #s(literal 4165541759/500000000000000000000000000000000 binary64) (*.f64 (*.f64 Xr Xr) Xr)) Xr) (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))))))
(if.f64 (<=.f64 Yr #s(literal 1999999999999999842563759791331565483871006498118367703619996448246128296859795456 binary64)) (+.f64 #s(literal 9827991/390625000 binary64) (-.f64 (+.f64 (-.f64 (*.f64 Xr #s(literal -4668270147/10000000000000000 binary64)) (*.f64 #s(literal -149230739/1250000000000000 binary64) Yr)) (-.f64 (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)) (*.f64 #s(literal -4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)))) (-.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 #s(literal -4165541759/500000000000000000000000000000000 binary64) (*.f64 Yr Yr)) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr)))) (*.f64 (*.f64 #s(literal -3689471323/250000000000000000000000000000000 binary64) Xr) (*.f64 (*.f64 Yr (+.f64 Xr Yr)) (-.f64 Xr Yr)))) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) (*.f64 Xr #s(literal 4165541759/500000000000000000000000000000000 binary64)))) (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr)))))) (+.f64 #s(literal 9827991/390625000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Yr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal 4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 #s(literal 4668270147/10000000000000000 binary64) Xr)) (-.f64 (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) Xr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr))) (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)))) (-.f64 (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 Yr Yr) (+.f64 (*.f64 #s(literal -6 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr)) #s(literal -4165541759/500000000000000000000000000000000 binary64)) (*.f64 (*.f64 #s(literal 3689471323/250000000000000000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 (-.f64 Xr Yr) (+.f64 Xr Yr)))))))))
(if.f64 (<=.f64 Yr #s(literal 1999999999999999842563759791331565483871006498118367703619996448246128296859795456 binary64)) (+.f64 #s(literal 9827991/390625000 binary64) (-.f64 (+.f64 (-.f64 (*.f64 Xr #s(literal -4668270147/10000000000000000 binary64)) (*.f64 #s(literal -149230739/1250000000000000 binary64) Yr)) (-.f64 (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)) (*.f64 #s(literal -4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)))) (-.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 #s(literal -4165541759/500000000000000000000000000000000 binary64) (*.f64 Yr Yr)) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr)))) (*.f64 (*.f64 #s(literal -3689471323/250000000000000000000000000000000 binary64) Xr) (*.f64 (*.f64 Yr (+.f64 Xr Yr)) (-.f64 Xr Yr)))) (*.f64 (*.f64 (*.f64 #s(literal 4165541759/500000000000000000000000000000000 binary64) (*.f64 Xr Xr)) Xr) Xr)) (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr)))))) (+.f64 #s(literal 9827991/390625000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Yr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal 4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 #s(literal 4668270147/10000000000000000 binary64) Xr)) (-.f64 (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) Xr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr))) (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)))) (-.f64 (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 Yr Yr) (+.f64 (*.f64 #s(literal -6 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr)) #s(literal -4165541759/500000000000000000000000000000000 binary64)) (*.f64 (*.f64 #s(literal 3689471323/250000000000000000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 (-.f64 Xr Yr) (+.f64 Xr Yr)))))))))
(-.f64 (-.f64 (+.f64 (-.f64 (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (-.f64 Xr Yr)) (+.f64 Xr Yr)) (*.f64 #s(literal -4616990181/250000000000000000000 binary64) (*.f64 Xr Yr))) (*.f64 Xr #s(literal -4668270147/10000000000000000 binary64))) (*.f64 #s(literal -149230739/1250000000000000 binary64) Yr)) (-.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 Yr Yr) (*.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 (*.f64 #s(literal -3689471323/250000000000000000000000000000000 binary64) Xr) Yr) (*.f64 (+.f64 Xr Yr) (-.f64 Xr Yr)))) (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)))))) #s(literal 9827991/390625000 binary64)))
(+.f64 #s(literal 9827991/390625000 binary64) (-.f64 (+.f64 (-.f64 (*.f64 Xr #s(literal -4668270147/10000000000000000 binary64)) (*.f64 #s(literal -149230739/1250000000000000 binary64) Yr)) (-.f64 (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)) (*.f64 #s(literal -4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)))) (-.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 #s(literal 9827991/390625000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Yr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal 4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 #s(literal 4668270147/10000000000000000 binary64) Xr)) (-.f64 (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) Xr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr))) (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)))) (-.f64 (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)))) (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 Yr Yr) (+.f64 (*.f64 #s(literal -6 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr)) #s(literal -4165541759/500000000000000000000000000000000 binary64)) (*.f64 (*.f64 #s(literal 3689471323/250000000000000000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 (-.f64 Xr Yr) (+.f64 Xr Yr))))))))
(+.f64 #s(literal 2946529277/100000000000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Xr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal -304747143/100000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 Yr #s(literal -4668270147/10000000000000000 binary64))) (-.f64 (*.f64 (*.f64 Xr #s(literal -212097503/125000000000000000000000000 binary64)) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)))) (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Xr Yr)))) (-.f64 (-.f64 (-.f64 (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) Yr)) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) Xr) (*.f64 (*.f64 Yr (+.f64 Yr Xr)) (-.f64 Xr Yr)))) (*.f64 (*.f64 #s(literal -3689471323/1000000000000000000000000000000000 binary64) (*.f64 Yr Yr)) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))))) (*.f64 (*.f64 (pow.f64 Xr #s(literal 3 binary64)) #s(literal -3689471323/1000000000000000000000000000000000 binary64)) Xr)))))
(+.f64 #s(literal 2946529277/100000000000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Xr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal -304747143/100000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 Yr #s(literal -4668270147/10000000000000000 binary64))) (-.f64 (*.f64 (*.f64 Xr #s(literal -212097503/125000000000000000000000000 binary64)) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)))) (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Xr Yr)))) (-.f64 (-.f64 (-.f64 (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) Yr)) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) Xr) (*.f64 (*.f64 Yr (+.f64 Yr Xr)) (-.f64 Xr Yr)))) (*.f64 (*.f64 #s(literal -3689471323/1000000000000000000000000000000000 binary64) (*.f64 Yr Yr)) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))))) (*.f64 (*.f64 (*.f64 (*.f64 Xr Xr) Xr) #s(literal -3689471323/1000000000000000000000000000000000 binary64)) Xr)))))
(+.f64 #s(literal 2946529277/100000000000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Xr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal -304747143/100000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 Yr #s(literal -4668270147/10000000000000000 binary64))) (-.f64 (*.f64 (*.f64 Xr #s(literal -212097503/125000000000000000000000000 binary64)) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)))) (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Xr Yr)))) (-.f64 (-.f64 (-.f64 (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) Yr)) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) Xr) (*.f64 (*.f64 Yr (+.f64 Yr Xr)) (-.f64 Xr Yr)))) (*.f64 (*.f64 #s(literal -3689471323/1000000000000000000000000000000000 binary64) (*.f64 Yr Yr)) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))))) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) (*.f64 #s(literal -3689471323/1000000000000000000000000000000000 binary64) Xr))))))
(+.f64 #s(literal 2946529277/100000000000 binary64) (-.f64 (-.f64 (-.f64 (-.f64 (*.f64 Xr #s(literal 149230739/1250000000000000 binary64)) (-.f64 (*.f64 Yr #s(literal -4668270147/10000000000000000 binary64)) (*.f64 #s(literal -304747143/100000000000000000000 binary64) (*.f64 Yr Xr)))) (-.f64 (*.f64 (*.f64 #s(literal -212097503/125000000000000000000000000 binary64) Xr) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)))) (*.f64 (*.f64 (-.f64 Xr Yr) #s(literal 4616990181/500000000000000000000 binary64)) (+.f64 Yr Xr)))) (-.f64 (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) Yr)) (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))) (*.f64 Yr Yr)) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr)) #s(literal -3689471323/1000000000000000000000000000000000 binary64)))) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Yr Xr) (+.f64 Yr Xr)))))
(+.f64 #s(literal 2946529277/100000000000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Xr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal -304747143/100000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 Yr #s(literal -4668270147/10000000000000000 binary64))) (-.f64 (*.f64 (*.f64 Xr #s(literal -212097503/125000000000000000000000000 binary64)) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)))) (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Xr Yr)))) (-.f64 (*.f64 (*.f64 Yr #s(literal 881662847/200000000000000000000000000 binary64)) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (-.f64 (*.f64 (+.f64 (*.f64 (*.f64 Yr Yr) (+.f64 (*.f64 #s(literal -6 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr)) #s(literal -3689471323/1000000000000000000000000000000000 binary64)) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Yr Xr) (+.f64 Yr Xr))))))))
(+.f64 #s(literal 2946529277/100000000000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Xr) (-.f64 (-.f64 (-.f64 (*.f64 #s(literal -304747143/100000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 Yr #s(literal -4668270147/10000000000000000 binary64))) (-.f64 (*.f64 (*.f64 Xr #s(literal -212097503/125000000000000000000000000 binary64)) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)))) (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Xr Yr)))) (-.f64 (*.f64 (*.f64 Yr #s(literal 881662847/200000000000000000000000000 binary64)) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (-.f64 (*.f64 (+.f64 (*.f64 (*.f64 Yr Yr) (+.f64 (*.f64 #s(literal -6 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (*.f64 (*.f64 Xr Xr) (*.f64 Xr Xr))) #s(literal -3689471323/1000000000000000000000000000000000 binary64)) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Yr Xr) (+.f64 Yr Xr))))))))
(asin.f64 (+.f64 (*.f64 (cos.f64 ad) (sin.f64 u)) (*.f64 (sin.f64 ad) (*.f64 (cos.f64 u) (cos.f64 deltav)))))
(asin.f64 (-.f64 (*.f64 (sin.f64 s) (cos.f64 ad)) (*.f64 (*.f64 (cos.f64 d) (sin.f64 ad)) (cos.f64 s))))
(asin.f64 (-.f64 (*.f64 (sin.f64 s) (cos.f64 ad)) (*.f64 (*.f64 (cos.f64 d) (cos.f64 s)) (sin.f64 ad))))
(+.f64 (*.f64 (atan.f64 (*.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) (pow.f64 (/.f64 rho0 rho) (/.f64 #s(literal 1 binary64) n)))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(*.f64 (sqrt.f64 (fabs.f64 (*.f64 (/.f64 #s(literal -1 binary64) (-.f64 Up #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) Up)))) Esc)
(*.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 #s(literal 1 binary64) Up) (-.f64 Up #s(literal -1 binary64))))) Esc)
(+.f64 (*.f64 (atan.f64 (exp.f64 (/.f64 y kR))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(asin.f64 (+.f64 (*.f64 cosp0 (sin.f64 phipp)) (*.f64 (*.f64 (cos.f64 phipp) sinp0) (cos.f64 lampp))))
(asin.f64 (+.f64 (*.f64 cosp0 (sin.f64 phipp)) (*.f64 sinp0 (*.f64 (cos.f64 phipp) (cos.f64 lampp)))))
(/.f64 #s(literal 8 binary64) (/.f64 #s(literal -16 binary64) (-.f64 (PI.f64) (*.f64 #s(literal 4 binary64) (atan.f64 fac)))))
(+.f64 (*.f64 (atan.f64 fac) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (pow.f64 k (/.f64 #s(literal -1 binary64) alpha))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 u #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) u)))) (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 u u) #s(literal 1/4 binary64))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 (+.f64 u u) #s(literal 1/4 binary64))) (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (/.f64 #s(literal 1 binary64) alpha)))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 1080863910568919/18014398509481984 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 k (/.f64 #s(literal 1 binary64) alpha)))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 u #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) u)))) (cos.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 u u) (PI.f64)))))) (/.f64 #s(literal 1 binary64) alpha)))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (*.f64 (pow.f64 (+.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 u #s(literal 1/2 binary64)))) (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) u))) (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 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)))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 2206763817411543/2251799813685248 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 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)) (*.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)) (*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (pow.f64 k (/.f64 #s(literal -1 binary64) alpha))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (sin.f64 (*.f64 u #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 u (PI.f64)))))) (cos.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64)))) (/.f64 #s(literal 1 binary64) alpha)))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 4638707616191611/9007199254740992 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) u) (*.f64 (PI.f64) #s(literal 3/4 binary64))))) (/.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)) (*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (pow.f64 k (/.f64 #s(literal -1 binary64) alpha))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 u #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) u)))) (cos.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64)))) (/.f64 #s(literal 1 binary64) alpha)))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)))
(if.f64 (<=.f64 k #s(literal 6542294041753883/10384593717069655257060992658440192 binary64)) (*.f64 (-.f64 (*.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (pow.f64 k (/.f64 #s(literal -1 binary64) alpha))) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 u #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) alpha)))) #s(literal 4 binary64)) (PI.f64)) #s(literal 1/2 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) u) (*.f64 (PI.f64) #s(literal 3/4 binary64))))) (/.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 7463926734143815/324518553658426726783156020576256 binary64)) (*.f64 (-.f64 (*.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (pow.f64 k (/.f64 #s(literal -1 binary64) alpha))) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 u #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) alpha)))) #s(literal 4 binary64)) (PI.f64)) #s(literal 1/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))) (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) u) (*.f64 #s(literal 5/4 binary64) (PI.f64))))) (/.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 -7378697629483821/147573952589676412928 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 16 binary64) (*.f64 (-.f64 (*.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (pow.f64 k (/.f64 #s(literal -1 binary64) alpha))) (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) u))) (/.f64 #s(literal 1 binary64) alpha)))) #s(literal 4 binary64)) (PI.f64)) #s(literal 8 binary64)))) (*.f64 (-.f64 (*.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (pow.f64 k (/.f64 #s(literal -1 binary64) alpha))) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 u #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) alpha)))) #s(literal 4 binary64)) (PI.f64)) #s(literal 1/2 binary64)))
(if.f64 (<=.f64 (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (*.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u) (/.f64 (PI.f64) #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) alpha)) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 fi))) (-.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 fi)))) (*.f64 #s(literal 1/2 binary64) evar))))) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -1 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (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))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (/.f64 #s(literal 8 binary64) (/.f64 #s(literal -16 binary64) (-.f64 (PI.f64) (*.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (pow.f64 k (/.f64 #s(literal -1 binary64) alpha))) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 u #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) alpha)))) #s(literal 4 binary64))))))
(if.f64 (<=.f64 (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (*.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u) (/.f64 (PI.f64) #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) alpha)) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 fi))) (-.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 fi)))) (*.f64 #s(literal 1/2 binary64) evar))))) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -1 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (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))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 (-.f64 (*.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (pow.f64 k (/.f64 #s(literal -1 binary64) alpha))) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 u #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) alpha)))) #s(literal 4 binary64)) (PI.f64)) #s(literal 1/2 binary64)))
(*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (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))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))
(asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 (*.f64 es spp) spp)))))
(asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 es (*.f64 spp spp))))))
(atan.f64 (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) one_es) (-.f64 (*.f64 (cos.f64 lamt) (tan.f64 lamdp)) (*.f64 (sin.f64 lamt) ca))) sa))
(atan.f64 (/.f64 (/.f64 (-.f64 (*.f64 (cos.f64 lamt) (tan.f64 lamdp)) (*.f64 (sin.f64 lamt) ca)) one_es) sa))
(atan.f64 (/.f64 (-.f64 (*.f64 (tan.f64 lamdp) (cos.f64 lamt)) (*.f64 ca (sin.f64 lamt))) (*.f64 one_es sa)))
(atan.f64 (/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 rone_es spp) spp)) (*.f64 (tan.f64 lamdp) 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 #s(literal 1 binary64) (*.f64 (*.f64 rone_es spp) spp)) (*.f64 (tan.f64 lamdp) ca)) (*.f64 (*.f64 (sqrt.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 spp spp)) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lamdp lamdp)) #s(literal 1/2 binary64))) q) #s(literal -1 binary64))) (*.f64 u (*.f64 spp spp)))) sa) (/.f64 spp (cos.f64 lamdp)))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 spp spp) (+.f64 #s(literal 1 binary64) u)))))
(atan.f64 (/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 rone_es spp) spp)) (tan.f64 lamdp)) ca) (*.f64 (*.f64 spp (sqrt.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))))) (/.f64 sa (cos.f64 lamdp)))) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal -1 binary64) u) spp) spp) #s(literal -1 binary64))))
(atan.f64 (/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 rone_es (*.f64 spp spp))) ca) (tan.f64 lamdp)) (*.f64 (*.f64 spp (sqrt.f64 (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 (-.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))))) (/.f64 sa (cos.f64 lamdp)))) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal -1 binary64) u) spp) spp) #s(literal -1 binary64))))
(asin.f64 (/.f64 (*.f64 (cos.f64 phipp) (sin.f64 lampp)) (cos.f64 phip)))
(asin.f64 (*.f64 (/.f64 (sin.f64 lampp) (cos.f64 phip)) (cos.f64 phipp)))
(asin.f64 (*.f64 (/.f64 (cos.f64 phipp) (cos.f64 phip)) (sin.f64 lampp)))
(if.f64 (<=.f64 (/.f64 s xj) #s(literal -9999999999999999071569656121801212080692814968920789464627446869617922299624001453201875281811380250249693879805812353226907091680705581859236698853640605134247712274342131878495422251008 binary64)) (-.f64 (/.f64 (*.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) (*.f64 (neg.f64 a4) xj)) (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y)))) (/.f64 #s(literal 1 binary64) b)) xj) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) (/.f64 a2 b))) (if.f64 (<=.f64 (/.f64 s xj) #s(literal 100000000000000005096102956370027281398552527353113666163096016433067742095641633184190908638890670217606581066817562776141799113274522085911825143802419273576310438824281483144380948014657857618043525615061189227441394677596191250608858071040 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)) c3) (*.f64 (*.f64 #s(literal -4 binary64) (pow.f64 (sin.f64 lamdp) #s(literal 3 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 s xj) #s(literal -500000000000000025277713862997516907114118515401501639510240737361116381988542702912116688552531109626208556618350592 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) (*.f64 (neg.f64 a4) xj)) (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y)))) (*.f64 b xj)) (*.f64 a2 (/.f64 (sin.f64 (+.f64 lamdp lamdp)) b))) (if.f64 (<=.f64 (/.f64 s xj) #s(literal 999999999999999983359180223191721714560372275017470536367007614460468417501012554531477876945938741751237388344363105067534507348164573733465510370326085632 binary64)) (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 xy_x (*.f64 xy_y (/.f64 s xj))) (*.f64 (*.f64 (+.f64 a2 a2) (cos.f64 lamdp)) (sin.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 #s(literal -1 binary64) b) (+.f64 (+.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 #s(literal 4 binary64) lamdp)) a4)) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)))))
(if.f64 (<=.f64 (/.f64 s xj) #s(literal -500000000000000025277713862997516907114118515401501639510240737361116381988542702912116688552531109626208556618350592 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) (*.f64 (neg.f64 a4) xj)) (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y)))) (*.f64 b xj)) (*.f64 a2 (/.f64 (sin.f64 (+.f64 lamdp lamdp)) b))) (if.f64 (<=.f64 (/.f64 s xj) #s(literal 500000000000000025277713862997516907114118515401501639510240737361116381988542702912116688552531109626208556618350592 binary64)) (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 xy_x (*.f64 xy_y (/.f64 s xj))) (*.f64 (*.f64 (+.f64 a2 a2) (cos.f64 lamdp)) (sin.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 (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 s xj) #s(literal -199999999999999982405111001914463627825705729939051460364922737117355163153802565541919878198424069508213948681199740222346696327168 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) (*.f64 (neg.f64 a4) xj)) (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y)))) (*.f64 b xj)) (*.f64 a2 (/.f64 (sin.f64 (+.f64 lamdp lamdp)) b))) (if.f64 (<=.f64 (/.f64 s xj) #s(literal 100000000000000005096102956370027281398552527353113666163096016433067742095641633184190908638890670217606581066817562776141799113274522085911825143802419273576310438824281483144380948014657857618043525615061189227441394677596191250608858071040 binary64)) (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 xy_x (*.f64 xy_y (/.f64 s xj))) (*.f64 (*.f64 (+.f64 a2 a2) (cos.f64 lamdp)) (sin.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 (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)))
(if.f64 (<=.f64 (/.f64 s xj) #s(literal -199999999999999982405111001914463627825705729939051460364922737117355163153802565541919878198424069508213948681199740222346696327168 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) (*.f64 (neg.f64 a4) xj)) (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y)))) (*.f64 b xj)) (*.f64 a2 (/.f64 (sin.f64 (+.f64 lamdp lamdp)) b))) (if.f64 (<=.f64 (/.f64 s xj) #s(literal 100000000000000005096102956370027281398552527353113666163096016433067742095641633184190908638890670217606581066817562776141799113274522085911825143802419273576310438824281483144380948014657857618043525615061189227441394677596191250608858071040 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)))
(if.f64 (<=.f64 (/.f64 s xj) #s(literal -9999999999999999071569656121801212080692814968920789464627446869617922299624001453201875281811380250249693879805812353226907091680705581859236698853640605134247712274342131878495422251008 binary64)) (neg.f64 (+.f64 (/.f64 (+.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) b) (/.f64 (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y))) (*.f64 b xj)))) (if.f64 (<=.f64 (/.f64 s xj) #s(literal 100000000000000005096102956370027281398552527353113666163096016433067742095641633184190908638890670217606581066817562776141799113274522085911825143802419273576310438824281483144380948014657857618043525615061189227441394677596191250608858071040 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)))
(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 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))
(if.f64 (<=.f64 (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 xy_x (*.f64 xy_y (/.f64 s xj))) (*.f64 a2 (sin.f64 (*.f64 #s(literal 2 binary64) lamdp)))) (*.f64 a4 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)))) (*.f64 (/.f64 s xj) (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))) b) #s(literal -inf.0 binary64)) (/.f64 (-.f64 (*.f64 (-.f64 (-.f64 (+.f64 (*.f64 (/.f64 s xj) xy_y) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) xj) (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s)) (*.f64 b xj)) (/.f64 (-.f64 (*.f64 (neg.f64 a4) (sin.f64 (*.f64 #s(literal 4 binary64) lamdp))) (+.f64 (/.f64 (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y))) xj) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2))) b))
(/.f64 (-.f64 (*.f64 (neg.f64 a4) (sin.f64 (*.f64 #s(literal 4 binary64) lamdp))) (+.f64 (/.f64 (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y))) xj) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2))) b)
(neg.f64 (*.f64 rB (atan2.f64 (-.f64 (*.f64 Sp cosgam) (*.f64 Vp singam)) (sin.f64 (-.f64 (*.f64 u BrA) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))))
(neg.f64 (*.f64 rB (atan2.f64 (-.f64 (*.f64 Sp cosgam) (*.f64 Vp singam)) (cos.f64 (*.f64 BrA u)))))
(if.f64 (<=.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 s s) (*.f64 xj xj)))) #s(literal +inf.0 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 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64)))))))) (exp.f64 (*.f64 (-.f64 (-.f64 xy_y (*.f64 (sin.f64 lamdp) c1)) (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3)) (sqrt.f64 (-.f64 (*.f64 (/.f64 s (*.f64 xj xj)) s) #s(literal -1 binary64))))))
(exp.f64 (*.f64 (-.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))
(if.f64 (<=.f64 (*.f64 (-.f64 (+.f64 con (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 ecc (sin.f64 phip)) (*.f64 ecc (sin.f64 phip)))) (*.f64 (cos.f64 phip) rone_es))) #s(literal +inf.0 binary64)) (*.f64 (-.f64 (+.f64 con (log.f64 (tan.f64 (+.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 29/4 binary64) (PI.f64)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64))) (*.f64 ecc ecc))) (*.f64 (cos.f64 phip) rone_es))) (*.f64 (-.f64 (+.f64 con (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -13/4 binary64) (PI.f64)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sin.f64 (*.f64 phip #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64))) (*.f64 ecc ecc))) (*.f64 (cos.f64 phip) rone_es))))
(if.f64 (<=.f64 (*.f64 (-.f64 (+.f64 con (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 ecc (sin.f64 phip)) (*.f64 ecc (sin.f64 phip)))) (*.f64 (cos.f64 phip) rone_es))) #s(literal 50000000000000003086391676393357844349718615548150562915502642526940668826983577947126958547223239834715522922574563065517295392716978085869105767683493614277129551054580941093067371516906876813636692980123138622497423128945174015407700562118352100956066287915925652518044475460566300753920 binary64)) (*.f64 (-.f64 (+.f64 con (log.f64 (tan.f64 (+.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 29/4 binary64) (PI.f64)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64))) (*.f64 ecc ecc))) (*.f64 (cos.f64 phip) rone_es))) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e) (+.f64 (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64))))) con)) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64))) (*.f64 ecc ecc)) #s(literal 1 binary64))) rone_es) (cos.f64 phip)))
(*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e) (+.f64 (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64))))) con)) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64))) (*.f64 ecc ecc)) #s(literal 1 binary64))) rone_es) (cos.f64 phip))
(*.f64 (*.f64 (-.f64 (+.f64 (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip (PI.f64)) phip) #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 (cos.f64 phip) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64))) (*.f64 ecc ecc))))) rone_es)
(*.f64 (*.f64 (-.f64 (+.f64 (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))) con) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e)) (*.f64 (cos.f64 phip) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64))) (*.f64 ecc ecc))))) rone_es)
(*.f64 (*.f64 (-.f64 (+.f64 (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))) con) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e)) (cos.f64 phip)) (*.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 (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e) (+.f64 (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip (PI.f64)) phip) #s(literal 1/4 binary64)))) con)) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64))) (*.f64 ecc ecc)) #s(literal 1 binary64))) rone_es) (cos.f64 phip))
(*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e) (+.f64 (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))) con)) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64))) (*.f64 ecc ecc)) #s(literal 1 binary64))) rone_es) (cos.f64 phip))
(/.f64 (-.f64 K (log.f64 (/.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))))) (fabs.f64 (-.f64 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))))))) c)
(/.f64 (-.f64 K (log.f64 (/.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))))) (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))))))) c)
(/.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 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) #s(literal 2 binary64)) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))))))) 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)))) (-.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 #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 4278419646001971/4503599627370496 binary64)) (/.f64 (-.f64 K (*.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))))) (/.f64 c c))) 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))
(/.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 (cos.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 phip #s(literal 1/2 binary64)))))))) c)
(/.f64 (-.f64 K (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) c)
(if.f64 (<=.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) #s(literal 138173915424877/1267650600228229401496703205376 binary64)) (/.f64 (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) c) (if.f64 (<=.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) #s(literal 1166238552209971/10141204801825835211973625643008 binary64)) (/.f64 (/.f64 (-.f64 (*.f64 c K) (log.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))) c))) c) c) (/.f64 (-.f64 K (*.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))))) (/.f64 c c))) 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 -6189700196426901/154742504910672534362390528 binary64)) (/.f64 (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) c) (if.f64 (<=.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) #s(literal 2028240960365167/10141204801825835211973625643008 binary64)) (-.f64 (/.f64 K c) (*.f64 (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip)))) (/.f64 c (*.f64 c c)))) (/.f64 (-.f64 K (*.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))))) (/.f64 c c))) c)))
(/.f64 (-.f64 K (*.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))))) (/.f64 c c))) c)
(if.f64 (<=.f64 (/.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) c) #s(literal 4999999999999999797831017376714894119127812233696870733560457558998243835015834942700401512775872587353423939115559831572611431741498074611166071691150501229607379410134558461510763529142729843207341692956811227775656913210014077504201792814563184923802875085144633272926482892941009176900625498112 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 c (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))))))) (/.f64 (*.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip)))))) c) (*.f64 c c)))
(if.f64 (<=.f64 (/.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) c) #s(literal 9999999999999999392535525055364621860040287220117324953190771571323204563013233902843309257440507748436856118056162172578717193742636030530235798840866882774987301441682011041067710253162440905843719802548551599076639682550821832659549112269607949805346034918662572406407604380845959862074904348138143744 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 c (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))))))) (*.f64 c (/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip)))))) (*.f64 c c))))
(/.f64 #s(literal 1 binary64) (/.f64 c (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip)))))))
(/.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (*.f64 phip #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)) (PI.f64))))) c)
(/.f64 (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) c)
(/.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 13/4 binary64) (PI.f64)))))) c)
(if.f64 (<=.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) #s(literal 4999999999999999906743388603115020788907780359910290665049241860223423941639750419942148863391427290368681348502011290786385146843522467955007764480084024749443603611970102342099448132228169829243943975742290002451379260550207232245491981306595417943121645130212363962285255265070690291922501632 binary64)) (/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp) (+.f64 (*.f64 (/.f64 singam Tp) Sp) (*.f64 (/.f64 Vp Tp) cosgam)))
(if.f64 (<=.f64 Tp #s(literal 4999999999999999836780037503297759611373201803324989956633012309316501610954752 binary64)) (/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp) (+.f64 (*.f64 (/.f64 Sp Tp) singam) (*.f64 (/.f64 Vp Tp) cosgam)))
(/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp)
(*.f64 (pow.f64 (*.f64 (*.f64 (*.f64 (E.f64) (E.f64)) (E.f64)) (*.f64 (*.f64 (E.f64) (E.f64)) (E.f64))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 v BrA)) #s(literal 3 binary64))) (pow.f64 (*.f64 (*.f64 (*.f64 (E.f64) (E.f64)) (E.f64)) (*.f64 (*.f64 (E.f64) (E.f64)) (E.f64))) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 v BrA)) #s(literal 3 binary64))))
(pow.f64 (*.f64 (E.f64) (E.f64)) (*.f64 #s(literal -1/2 binary64) (*.f64 v BrA)))
(exp.f64 (neg.f64 (*.f64 BrA v)))
(*.f64 ArB (-.f64 (log.f64 (fabs.f64 (+.f64 (*.f64 (sin.f64 (*.f64 (*.f64 #s(literal -2 binary64) gamma0) #s(literal -1/4 binary64))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (cos.f64 (*.f64 (*.f64 #s(literal -2 binary64) gamma0) #s(literal -1/4 binary64))) (sin.f64 (*.f64 #s(literal -1/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 (log.f64 (/.f64 #s(literal 1 binary64) (/.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 #s(literal -1/2 binary64) gamma0)))) (+.f64 (*.f64 (sin.f64 (*.f64 gamma0 #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 gamma0 #s(literal 1/2 binary64)))))))))
(if.f64 (<=.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0))) #s(literal -5764607523034235/576460752303423488 binary64)) (*.f64 ArB (-.f64 (log.f64 (fabs.f64 (+.f64 (*.f64 (sin.f64 (*.f64 (*.f64 #s(literal -2 binary64) gamma0) #s(literal -1/4 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (cos.f64 (*.f64 (*.f64 #s(literal -2 binary64) gamma0) #s(literal -1/4 binary64))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (log.f64 (fabs.f64 (cos.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) gamma0))))))) (*.f64 ArB (-.f64 (log.f64 (fabs.f64 (cos.f64 (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (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 #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 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -6338253001141147/2535301200456458802993406410752 binary64)) (*.f64 ArB (-.f64 (log.f64 (fabs.f64 (cos.f64 (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (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 #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 (fabs.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal -1/4 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 gamma0 #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 gamma0 #s(literal 1/2 binary64)))))))) ArB))
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -5404319552844595/9007199254740992 binary64)) (*.f64 (log.f64 (fabs.f64 (/.f64 (+.f64 (*.f64 (sin.f64 (*.f64 gamma0 #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 gamma0 #s(literal 1/2 binary64))))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64))))))) ArB) (*.f64 (log.f64 (fabs.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal -1/4 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 gamma0 #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 gamma0 #s(literal 1/2 binary64)))))))) ArB))
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -5404319552844595/9007199254740992 binary64)) (*.f64 (log.f64 (fabs.f64 (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64)))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64))))))) ArB) (*.f64 (log.f64 (fabs.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal -1/4 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 gamma0 #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 gamma0 #s(literal 1/2 binary64)))))))) ArB))
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -6338253001141147/316912650057057350374175801344 binary64)) (*.f64 ArB (log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (cos.f64 (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (*.f64 ArB (-.f64 (log.f64 (fabs.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))))) (log.f64 (fabs.f64 (cos.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) gamma0))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -6338253001141147/316912650057057350374175801344 binary64)) (*.f64 ArB (log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (cos.f64 (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (*.f64 (log.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal -1/4 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64))))))) ArB))
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -6338253001141147/316912650057057350374175801344 binary64)) (*.f64 ArB (neg.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64))))) (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64))))))))) (*.f64 (log.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal -1/4 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 #s(literal -2 binary64) gamma0) (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 -40480451/202402253307310618352495346718917307049556649764142118356901358027430339567995346891960383701437124495187077864316811911389808737385793476867013399940738509921517424276566361364466907742093216341239767678472745068562007483424692698618103355649159556340810056512358769552333414615230502532186327508646006263307707741093494784 binary64)) (*.f64 (log.f64 (fabs.f64 (/.f64 (cos.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 gamma0 #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64))))))) ArB) (*.f64 (log.f64 (neg.f64 (*.f64 (sin.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 gamma0 #s(literal 1/2 binary64)) (*.f64 (PI.f64) #s(literal 9/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 -40480451/202402253307310618352495346718917307049556649764142118356901358027430339567995346891960383701437124495187077864316811911389808737385793476867013399940738509921517424276566361364466907742093216341239767678472745068562007483424692698618103355649159556340810056512358769552333414615230502532186327508646006263307707741093494784 binary64)) (*.f64 (log.f64 (fabs.f64 (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64)))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64))))))) ArB) (*.f64 (log.f64 (neg.f64 (*.f64 (sin.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 gamma0 #s(literal 1/2 binary64)) (*.f64 (PI.f64) #s(literal 9/4 binary64)))))))) ArB))
(*.f64 (log.f64 (fabs.f64 (/.f64 (/.f64 (+.f64 (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 gamma0 #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (sin.f64 (*.f64 (-.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64))))) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64))))))) ArB)
(if.f64 (<=.f64 gamma0 #s(literal 6314811526636907/1018517988167243043134222844204689080525734196832968125318070224677190649881668353091698688 binary64)) (*.f64 (log.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 9/4 binary64) (PI.f64)) (*.f64 gamma0 #s(literal 1/2 binary64))) (+.f64 (*.f64 #s(literal 4 binary64) (PI.f64)) (PI.f64))))) ArB) (*.f64 ArB (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (*.f64 gamma0 #s(literal -2 binary64)) (PI.f64)) #s(literal -1/4 binary64)))))))
(*.f64 (log.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal -1/4 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64))))))) ArB)
(*.f64 ArB (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (*.f64 gamma0 #s(literal -2 binary64)) (PI.f64)) #s(literal -1/4 binary64))))))
(*.f64 (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) ArB)
(*.f64 (log.f64 (tan.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 5/4 binary64) (PI.f64))))) ArB)
(if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (fabs.f64 (*.f64 ArB (atan.f64 (/.f64 (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64))) (cos.f64 alpha_c)))))) (fabs.f64 (*.f64 ArB (atan.f64 (/.f64 (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64))) (cos.f64 alpha_c))))))
(/.f64 (sin.f64 phi0) c)
(-.f64 (/.f64 L (+.f64 H L)) (/.f64 H (+.f64 H L)))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 H L) (-.f64 L H)))
(/.f64 (-.f64 L H) (+.f64 L H))
(-.f64 (/.f64 (atan.f64 (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 p J) (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)))))) 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 #s(literal 1 binary64) (/.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 #s(literal 1 binary64) (pow.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal 2 binary64))))
(/.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 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi0 phi0)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) (*.f64 rone_es es))))
(asin.f64 (*.f64 D (sin.f64 gamma0)))
(-.f64 (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.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 phip0 #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) phip0)) (sin.f64 (*.f64 phip0 #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) phip0)))))) (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) phip0)) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64)))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0))) #s(literal 8106479329266893/9007199254740992 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (-.f64 (log.f64 (fabs.f64 (-.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))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #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) phip0)))))) (log.f64 (fabs.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 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (*.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))))))))))
(if.f64 (<=.f64 c #s(literal 7932099951695107/36893488147419103232 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (fabs.f64 (tan.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 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 c #s(literal 7932099951695107/36893488147419103232 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 c #s(literal 7932099951695107/36893488147419103232 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 c #s(literal 7932099951695107/36893488147419103232 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/2 binary64) phip0) (PI.f64))) (PI.f64)))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (*.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))))))))))
(if.f64 (<=.f64 c #s(literal 7932099951695107/36893488147419103232 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (-.f64 (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 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (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))))))))))
(if.f64 (<=.f64 c #s(literal 7378697629483821/147573952589676412928 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 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (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 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (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 (-.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 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (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))))))))))
(if.f64 (<=.f64 (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (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 6338253001141147/633825300114114700748351602688 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (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 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (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))))))))))
(if.f64 (<=.f64 (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (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 6338253001141147/633825300114114700748351602688 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (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 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 c #s(literal 7526271582073497/73786976294838206464 binary64)) (-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))))) (*.f64 c (-.f64 (-.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 (fabs.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (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 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (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)))))))))
(if.f64 (<=.f64 c #s(literal 1890791267555229/9223372036854775808 binary64)) (-.f64 (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)))))) (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.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) phi0))) (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (neg.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 c #s(literal 1890791267555229/9223372036854775808 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 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (/.f64 (-.f64 (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (neg.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 c #s(literal 1890791267555229/9223372036854775808 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 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 c #s(literal 1890791267555229/9223372036854775808 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 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (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 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.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 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 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi0) ecc)))) hlf_e)) c))
(-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (*.f64 c (-.f64 (-.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 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64)))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(-.f64 (log.f64 (tan.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(-.f64 (log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))) (*.f64 (-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi0) ecc)))) hlf_e)) c))
(-.f64 (*.f64 (/.f64 E_var (+.f64 (*.f64 H L) (*.f64 E_var 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 (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 #s(literal 1 binary64) D)))))) (*.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 #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 (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 com (*.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))) (sqrt.f64 (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es) one_es) #s(literal -1 binary64))))
(*.f64 (/.f64 com (cos.f64 phi0)) (sqrt.f64 (/.f64 (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es) one_es) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) es) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))))))))
(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 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))) (sin.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) 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 (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))) (sin.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) 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 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (-.f64 (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))) (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 -546812681195753/1093625362391505962186251113558810682676584715446606218212885303204976499599687961611756588511526912 binary64)) (*.f64 kR (neg.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))) (sin.f64 (acos.f64 (sin.f64 (-.f64 (*.f64 #s(literal -3/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64)))))))))) (*.f64 kR (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (PI.f64))))))))
(if.f64 (<=.f64 (*.f64 kR (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))))) #s(literal -546812681195753/1093625362391505962186251113558810682676584715446606218212885303204976499599687961611756588511526912 binary64)) (*.f64 kR (neg.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))) (fabs.f64 (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -3/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (PI.f64)))))))) (*.f64 kR (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (PI.f64))))))))
(if.f64 (<=.f64 (*.f64 kR (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))))) #s(literal -546812681195753/1093625362391505962186251113558810682676584715446606218212885303204976499599687961611756588511526912 binary64)) (*.f64 kR (neg.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))) (fabs.f64 (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -3/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (PI.f64)))))))) (*.f64 kR (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (PI.f64)))) (sin.f64 (*.f64 (-.f64 (*.f64 phipp #s(literal -2 binary64)) (PI.f64)) #s(literal -1/4 binary64)))))))
(*.f64 kR (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (/.f64 (-.f64 (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 (PI.f64) #s(literal -3/4 binary64))))) (-.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) #s(literal 2 binary64))))))
(*.f64 kR (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))) (sin.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) phipp))))))))
(*.f64 kR (neg.f64 (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) phipp))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64)))))) (fabs.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))))
(*.f64 (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64)))))))) kR)
(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 499999999999999978409886320820907879202552238629189140897698107811441303810555744076971465473716161022374445056 binary64)) (*.f64 (neg.f64 kR) (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.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 1000000000000000056799717631659959599209893702659726317411141269166906774962677479877261307539674049653972646503389945789686576510419339128243706118473032320081290665497741564406670023712287789874734736674207136744674199783831719918405933396323484899269935104 binary64)) (*.f64 kR (log.f64 (fabs.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))) (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))))
(if.f64 (<=.f64 phipp #s(literal 2200000000000000 binary64)) (*.f64 (log.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) kR) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))))
(*.f64 kR (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (PI.f64)))) (sin.f64 (*.f64 (-.f64 (*.f64 phipp #s(literal -2 binary64)) (PI.f64)) #s(literal -1/4 binary64))))))
(if.f64 (<=.f64 phipp #s(literal 8924260225606735/10141204801825835211973625643008 binary64)) (log.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))) kR)) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))))
(if.f64 (<=.f64 (*.f64 kR (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))))) #s(literal -7090649168385425/17726622920963562283492833353875882150307419319860869157979152909707315649514250439943889552308992750523075148942386782770807567185698815677056677116184170553481231217950104164393978236130449019315710017470734562946173533283208371259654747728689409291887821024109648618981425152 binary64)) (*.f64 kR (log.f64 (tan.f64 (+.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64))) (PI.f64))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))))
(if.f64 (<=.f64 (*.f64 kR (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))))) #s(literal -7613526571406249/38067632857031246407630399952637454339360261162480498151827759598488080823306351962756308851101602575098847329028940110091637382285949586119445262876221302420044053515454972772932772091758022063878123412028196792475334366896073730256821732872925646925108354699626084168288392929655914496 binary64)) (*.f64 kR (log.f64 (tan.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64)))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))))
(*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))))))
(*.f64 (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))) kR)
(+.f64 (*.f64 c1 (sin.f64 lamdp)) (+.f64 (*.f64 c3 (*.f64 (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 c3 (*.f64 (sin.f64 lamdp) (-.f64 #s(literal 3 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lamdp lamdp)) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) (*.f64 tanph (/.f64 xj (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))))
(+.f64 (*.f64 c1 (sin.f64 lamdp)) (+.f64 (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp))) (*.f64 tanph (/.f64 xj (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))))
(-.f64 (+.f64 (+.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (*.f64 lamdp b)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) (*.f64 (/.f64 s (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj)))) tanph))
(-.f64 (*.f64 (tan.f64 lamt) ca) (*.f64 (*.f64 (neg.f64 one_es) tanphi) (/.f64 sa (cos.f64 lamt))))
(+.f64 (*.f64 (*.f64 (/.f64 tanphi (cos.f64 lamt)) one_es) sa) (*.f64 (tan.f64 lamt) ca))
(if.f64 (<=.f64 one_es #s(literal -50000000000000000000 binary64)) (+.f64 (*.f64 (*.f64 sa tanphi) (/.f64 one_es (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 tanphi (/.f64 (*.f64 sa one_es) (cos.f64 lamt))) (*.f64 (tan.f64 lamt) ca))
(*.f64 #s(literal 1/2 binary64) (*.f64 ArB (log.f64 (/.f64 (-.f64 (*.f64 U U) #s(literal 1 binary64)) (-.f64 #s(literal -1 binary64) (+.f64 (+.f64 (*.f64 U U) U) U))))))
(*.f64 #s(literal 1/2 binary64) (*.f64 ArB (log.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) U) (-.f64 U #s(literal -1 binary64))) (*.f64 (-.f64 U #s(literal -1 binary64)) (-.f64 U #s(literal -1 binary64)))))))
(*.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 lam #s(literal -5412251242923831/44362715105933037753254626946289339254982993206013065202727673289833940924890009968639590497666233249558259375382457149263586525184 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (PI.f64) (*.f64 lam B))) singam) (*.f64 cosgam S)) (sin.f64 (-.f64 (*.f64 lam B) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 lam B)))))))
(if.f64 (<=.f64 lam #s(literal -5412251242923831/44362715105933037753254626946289339254982993206013065202727673289833940924890009968639590497666233249558259375382457149263586525184 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (PI.f64) (*.f64 lam B))) singam) (*.f64 cosgam S)) (sin.f64 (-.f64 (*.f64 lam B) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (cos.f64 (*.f64 B lam)))))
(if.f64 (<=.f64 lam #s(literal -5412251242923831/44362715105933037753254626946289339254982993206013065202727673289833940924890009968639590497666233249558259375382457149263586525184 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (PI.f64) (*.f64 lam B))) singam) (*.f64 cosgam S)) (cos.f64 (*.f64 B lam)))) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (cos.f64 (*.f64 B lam)))))
(*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (cos.f64 (*.f64 B lam))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -5404319552844595/2251799813685248 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 phi #s(literal 1/2 binary64))))) (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) alpha) k) gfi)) (/.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 phi #s(literal 1/2 binary64))))) (cos.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal -1/4 binary64)))) alpha) k) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -2809120267572347/1125899906842624 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 phi phi) (PI.f64)))))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 phi #s(literal 1/2 binary64))))) (cos.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal -1/4 binary64)))) alpha) k) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (sin.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 phi phi) (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 -5764607523034235/72057594037927936 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (/.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))))) alpha)) gfi)) (/.f64 (PI.f64) #s(literal 4 binary64)))) (if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 1 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))) (PI.f64)))) (sin.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)))) 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 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (sin.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)))) alpha)) 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 -5764607523034235/72057594037927936 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (/.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))))) alpha)) gfi)) (/.f64 (PI.f64) #s(literal 4 binary64)))) (if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 1 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))) (PI.f64)))) (sin.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)))) 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 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 1 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))) (PI.f64)))) (sin.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)))) 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 phi #s(literal -2557336412418861/25573364124188608359478044506465618376692515984711443667838213813251045284411519960025547596296126227741302219746563054759509816764729633229129121792 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)))) (if.f64 (<=.f64 phi #s(literal 3701491575958035/740298315191606967520227188330889966610377319868419938630605715764070011466206019559325413145373572325939050053182159998975553533608824916574615132828322000124194610605645134711392062011527273571616649243219599128195212771328 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.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))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64))))))
(if.f64 (<=.f64 phi #s(literal 3701491575958035/740298315191606967520227188330889966610377319868419938630605715764070011466206019559325413145373572325939050053182159998975553533608824916574615132828322000124194610605645134711392062011527273571616649243219599128195212771328 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 (*.f64 phi #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (PI.f64))) (PI.f64))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))))
(if.f64 (<=.f64 gfi #s(literal 4097692012860425/803469022129495137770981046170581301261101496891396417650688 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.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))) 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 (*.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 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 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 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))))))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #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 (cos.f64 (*.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 #s(literal 1 binary64) (sqrt.f64 #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 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))))))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))))))))
(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 (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 phidp #s(literal 1/2 binary64)))))) (+.f64 (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (log.f64 (fabs.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal 10 binary64)) (-.f64 (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 phidp #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal 10 binary64)) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.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 10 binary64)) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 phidp #s(literal 1/2 binary64)))))) (log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal 10 binary64)) (log.f64 (/.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 phidp #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (log.f64 (/.f64 (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 (fabs.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (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))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (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)))))))
(+.f64 (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 #s(literal 1/2 binary64) (log.f64 (fabs.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (*.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
(log.f64 (/.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 phidp #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))
(log.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64))) (+.f64 (PI.f64) (PI.f64))) (PI.f64)) (PI.f64))))
(log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (PI.f64)))))
(log.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 13/4 binary64) (PI.f64))) (PI.f64))))
(log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 #s(literal 2 binary64) #s(literal -1/2 binary64))) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 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 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64))))))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 #s(literal 1 binary64) (sqrt.f64 #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 (cos.f64 (*.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 #s(literal 1 binary64) (sqrt.f64 #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 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64))))))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64))))))))
(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 (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 phi #s(literal 1/2 binary64)))))) (+.f64 (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (log.f64 (fabs.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal 10 binary64)) (-.f64 (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 phi #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal 10 binary64)) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.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 10 binary64)) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 phi #s(literal 1/2 binary64)))))) (log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal 10 binary64)) (log.f64 (/.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 phi #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (log.f64 (/.f64 (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 (fabs.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))))
(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))) (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))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (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)))))))
(+.f64 (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 #s(literal 1/2 binary64) (log.f64 (fabs.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (*.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
(log.f64 (/.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 phi #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))
(log.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))) (+.f64 (PI.f64) (PI.f64))) (PI.f64)) (PI.f64))))
(log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (PI.f64)))))
(log.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 13/4 binary64) (PI.f64))) (PI.f64))))
(log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))
(-.f64 (*.f64 (-.f64 u u0) cosrot) (*.f64 v sinrot))
(+.f64 (*.f64 v cosrot) (*.f64 (-.f64 u u0) sinrot))
(/.f64 (*.f64 rho0 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) #s(literal 27401669256311/20000000000000 binary64)) (/.f64 (PI.f64) #s(literal 4 binary64)))) n)) (pow.f64 (+.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 s #s(literal 1/2 binary64)))) (-.f64 (*.f64 (cos.f64 (*.f64 s #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 s #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) s))) (-.f64 (*.f64 (cos.f64 (*.f64 s #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 s #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) n))
(/.f64 #s(literal 1 binary64) (/.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 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) s)) (sin.f64 (*.f64 s #s(literal 1/2 binary64)))))) n) (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) 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 (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) 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 (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)) (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) rho0))
(/.f64 rho0 (/.f64 (pow.f64 (/.f64 (cos.f64 (-.f64 (*.f64 s #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) s) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) n) (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n)))
(*.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 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64)))) (neg.f64 n)) (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) rho0))
(*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) (*.f64 rho0 (pow.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 s 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) (*.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 -4059104138863495/30750788930784052141961861920805916103932967295178766486232675904563738880488373075752592173385037335955677262580553574888172300969173988400174943873597051535522721474932336956770829721145939608862637129391729156728137068727028191720507858482133392040241659904 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e)) c) K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (if.f64 (<=.f64 phi #s(literal 2996078356528351/1461501637330902918203684832716283019655932542976 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (-.f64 K (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e) (log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.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))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))))) (*.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)))))
(if.f64 (<=.f64 phi #s(literal -4059104138863495/30750788930784052141961861920805916103932967295178766486232675904563738880488373075752592173385037335955677262580553574888172300969173988400174943873597051535522721474932336956770829721145939608862637129391729156728137068727028191720507858482133392040241659904 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e)) c) K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (if.f64 (<=.f64 phi #s(literal 1461501637330903/2923003274661805836407369665432566039311865085952 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (-.f64 K (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e) (log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e)) c) K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(if.f64 (<=.f64 phi #s(literal -7435084542388915/37175422711944576569951562453747514003281505041484861476394296482898516429010109338629207862403908764744968094754824326261364631138622642694770764527559865644574271011186496848567160245857443421755979894558785930151693717671947002203927473508716452075301127636353597820594133720367104 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (-.f64 K (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e) (log.f64 (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi phi) (PI.f64)))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (if.f64 (<=.f64 phi #s(literal 167121556602935/12855504354071922204335696738729300820177623950262342682411008 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (-.f64 K (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e) (log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))) 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 29/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 (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi)))))))) K) #s(literal 500000000000000003815236769787517830257389167755855375390043332219984755318247477305565774567919593256991727777697610447843930272404792499914862630297436635543699813243303073221275494420008458697313224768197604310133506389038893861697957032303559981034741662286988928916069412641477492736 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (-.f64 K (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e) (log.f64 (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi phi) (PI.f64)))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 (atan.f64 (*.f64 (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 29/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 (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi)))))))) K) #s(literal 199999999999999992701373735918357116631804549565985153064628970972443492602480411625348685741640985599675569876002408075550379507087920437583886295587576290642133049161236473317937266725516180055400670622987509956668735259751478274996752027315378862823736417652149903488970653696 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (-.f64 K (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e) (log.f64 (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi phi) (PI.f64)))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 (atan.f64 (*.f64 (exp.f64 K) (pow.f64 (*.f64 (tan.f64 (-.f64 (*.f64 #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 (exp.f64 (-.f64 K (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e) (log.f64 (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi phi) (PI.f64)))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(asin.f64 (/.f64 (-.f64 (*.f64 (*.f64 ca one_es) (sin.f64 phi)) (*.f64 (*.f64 (sin.f64 lamt) sa) (cos.f64 phi))) (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 #s(literal 1 binary64) (*.f64 es (pow.f64 (sin.f64 phi) #s(literal 2 binary64)))))))
(if.f64 (<=.f64 es #s(literal -200000000 binary64)) (asin.f64 (/.f64 (-.f64 (*.f64 one_es (*.f64 ca (sin.f64 phi))) (*.f64 sa (*.f64 (cos.f64 phi) (sin.f64 lamt)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (pow.f64 (sin.f64 phi) #s(literal 2 binary64))))))) (asin.f64 (/.f64 (-.f64 (*.f64 (*.f64 ca one_es) (sin.f64 phi)) (*.f64 (*.f64 (cos.f64 phi) sa) (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 (*.f64 ca one_es) (sin.f64 phi)) (*.f64 sa (*.f64 (cos.f64 phi) (sin.f64 lamt)))) (sqrt.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64)))))
(asin.f64 (/.f64 (-.f64 (*.f64 one_es (*.f64 ca (sin.f64 phi))) (*.f64 sa (*.f64 (cos.f64 phi) (sin.f64 lamt)))) (sqrt.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64)))))
(asin.f64 (*.f64 (/.f64 cp (cos.f64 phipp)) (sin.f64 lamp)))
(*.f64 #s(literal 1/2 binary64) (+.f64 W (/.f64 #s(literal 1 binary64) W)))
(*.f64 #s(literal 1/2 binary64) (-.f64 W (/.f64 #s(literal 1 binary64) W)))
(pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 phi)))) (*.f64 #s(literal 1/2 binary64) (*.f64 alpha evar)))
(-.f64 (log.f64 (fabs.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal -1 binary64))))) (log.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) ecc)) #s(literal 2 binary64))))
(-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) phi)))) (*.f64 ecc ecc)) #s(literal 1 binary64)))) (log.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sin.f64 phi) ecc) (-.f64 #s(literal 2 binary64) (*.f64 (sin.f64 phi) ecc))))))
(*.f64 #s(literal 1/2 binary64) (log.f64 (fabs.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sin.f64 phi) ecc) (-.f64 #s(literal -2 binary64) (*.f64 (sin.f64 phi) ecc)))) (pow.f64 (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)) #s(literal -2 binary64))))))
(-.f64 (log.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)))) (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 (pow.f64 tsfn_phi (neg.f64 B)) E_var)
(if.f64 (<=.f64 T #s(literal 6439266133761187/139984046386112763159840142535527767382602843577165595931249318810236991948760059086304843329475444736 binary64)) (/.f64 (-.f64 (*.f64 S singam) (*.f64 (sin.f64 (*.f64 B lam)) cosgam)) T) (-.f64 (*.f64 (/.f64 S T) singam) (*.f64 (/.f64 cosgam T) (sin.f64 (*.f64 lam B)))))
(if.f64 (<=.f64 T #s(literal 5021681388309345/50216813883093446110686315385661331328818843555712276103168 binary64)) (/.f64 (-.f64 (*.f64 S singam) (*.f64 (sin.f64 (*.f64 B lam)) cosgam)) T) (-.f64 (*.f64 S (/.f64 singam T)) (*.f64 (/.f64 cosgam T) (sin.f64 (*.f64 lam B)))))
(/.f64 (-.f64 (*.f64 S singam) (*.f64 (sin.f64 (*.f64 B lam)) cosgam)) T)
(cosh.f64 (asinh.f64 (sinh.f64 Ce)))
(sqrt.f64 (+.f64 (pow.f64 (sinh.f64 Ce) #s(literal 2 binary64)) #s(literal 1 binary64)))
(*.f64 (exp.f64 (*.f64 #s(literal -2 binary64) Ce)) #s(literal 1/2 binary64))
(exp.f64 (+.f64 Ce Ce))
(cosh.f64 (+.f64 Ce Ce))
(atan2.f64 (sin.f64 Cn) (sqrt.f64 (-.f64 (pow.f64 (sinh.f64 Ce) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal -1 binary64) (cos.f64 (+.f64 Cn Cn))) #s(literal 1/2 binary64)))))
(atan2.f64 (sinh.f64 Ce) (cos.f64 Cn))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (pow.f64 (cos.f64 lam) #s(literal 2 binary64))))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (pow.f64 (*.f64 (cos.f64 lam) (cos.f64 Cn)) #s(literal 2 binary64)))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 Cn Cn))))) (*.f64 (-.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal -1 binary64)) (+.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/4 binary64))))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal -1 binary64)) (+.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/4 binary64))) (-.f64 #s(literal -1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 Cn Cn)))))))
(/.f64 (*.f64 (sin.f64 lam) (cos.f64 Cn)) (sqrt.f64 (+.f64 (*.f64 (sin.f64 Cn) (sin.f64 Cn)) (*.f64 (*.f64 (cos.f64 lam) (cos.f64 Cn)) (*.f64 (cos.f64 lam) (cos.f64 Cn))))))
(/.f64 (*.f64 (sin.f64 lam) (cos.f64 Cn)) (sqrt.f64 (+.f64 (*.f64 (sin.f64 Cn) (sin.f64 Cn)) (*.f64 (cos.f64 Cn) (*.f64 (cos.f64 Cn) (*.f64 (cos.f64 lam) (cos.f64 lam)))))))
(/.f64 (*.f64 (sin.f64 lam) (cos.f64 Cn)) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (*.f64 (cos.f64 Cn) (*.f64 (cos.f64 Cn) (*.f64 (cos.f64 lam) (cos.f64 lam)))))))
(/.f64 (*.f64 (sin.f64 lam) (cos.f64 Cn)) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (pow.f64 (*.f64 (cos.f64 lam) (cos.f64 Cn)) #s(literal 2 binary64)))))
(/.f64 (*.f64 (sin.f64 lam) (cos.f64 Cn)) (sqrt.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) (*.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 Cn Cn))) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lam lam)) #s(literal -1/2 binary64)))))))
(/.f64 (*.f64 (sin.f64 lam) (cos.f64 Cn)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lam lam)))))))))
(*.f64 (/.f64 (sin.f64 lam) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (-.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal -1 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lam lam)) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 Cn Cn))))))) (cos.f64 Cn))
(*.f64 (/.f64 (cos.f64 Cn) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (-.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal -1 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lam lam)) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 Cn Cn))))))) (sin.f64 lam))
(atan2.f64 (sin.f64 Cn) (*.f64 (cos.f64 Cn) (cos.f64 lam)))
(if.f64 (<=.f64 hi #s(literal 7800000000000000179738298922380975974567561396224 binary64)) (-.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hr) (*.f64 (*.f64 hi cos_arg_r) sinh_arg_i)) (-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)))
(if.f64 (<=.f64 sin_arg_r #s(literal -19999999999999998987742705941480377339272900220268201461678080 binary64)) (-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)) (-.f64 (*.f64 (*.f64 hr sin_arg_r) cosh_arg_i) (*.f64 (*.f64 hi sinh_arg_i) cos_arg_r)))
(if.f64 (<=.f64 sin_arg_r #s(literal -500000000000000000 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 cosh_arg_i #s(literal -3311214647077827/2854495385411919762116571938898990272765493248 binary64)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.f64 (*.f64 hr sinh_arg_i) cos_arg_r)) (if.f64 (<=.f64 cosh_arg_i #s(literal 1495020541582441/4671939192445127903888559724237098316690665991422525368913093138328857771221685643782054718788988313373329725003360673086145233634688448510210725191395547328770042546544911308884863172860522266624 binary64)) (+.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hi) (*.f64 (*.f64 hr cos_arg_r) sinh_arg_i)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr))))
(if.f64 (<=.f64 (*.f64 sin_arg_r cosh_arg_i) #s(literal 1999999999999999876516601650563957080654054728944248956588832425077742983649199427273641055007816510603264 binary64)) (+.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hi) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.f64 (*.f64 hr sinh_arg_i) cos_arg_r)))
(if.f64 (<=.f64 sin_arg_r #s(literal -1399999999999999986787170984725389444015446321807544161066967918311768310818328282011731558691051655170477960846114816 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))))