(if.f64 (<=.f64 (cos.f64 (+.f64 phi0 (/.f64 y esp))) #s(literal 3512807709348987/9007199254740992 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 (-.f64 (*.f64 (sin.f64 phi0) (sin.f64 (+.f64 (PI.f64) (/.f64 y esp)))) (*.f64 (cos.f64 phi0) (cos.f64 (+.f64 (PI.f64) (/.f64 y esp)))))) #s(literal 0 binary64))) (atan2.f64 g (-.f64 (*.f64 (sin.f64 phi0) (sin.f64 (+.f64 (PI.f64) (/.f64 y esp)))) (*.f64 (cos.f64 phi0) (cos.f64 (+.f64 (PI.f64) (/.f64 y esp)))))) #s(literal 0 binary64)))
(if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 phi0) (sin.f64 (+.f64 (PI.f64) (/.f64 y esp)))) (*.f64 (cos.f64 phi0) (sin.f64 (-.f64 (/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 esp) y)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 0 binary64))) (atan2.f64 g (-.f64 (*.f64 (sin.f64 phi0) (sin.f64 (+.f64 (PI.f64) (/.f64 y esp)))) (*.f64 (cos.f64 phi0) (sin.f64 (-.f64 (/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 esp) y)) (*.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 (cos.f64 (*.f64 (/.f64 #s(literal 1 binary64) esp) y)) (cos.f64 phi0)) (*.f64 (sin.f64 (*.f64 (/.f64 #s(literal 1 binary64) esp) y)) (sin.f64 phi0)))) #s(literal 0 binary64))) (atan2.f64 g (-.f64 (*.f64 (cos.f64 (*.f64 (/.f64 #s(literal 1 binary64) esp) y)) (cos.f64 phi0)) (*.f64 (sin.f64 (*.f64 (/.f64 #s(literal 1 binary64) esp) y)) (sin.f64 phi0)))) #s(literal 0 binary64))
(if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (cos.f64 (+.f64 phi0 (*.f64 (/.f64 #s(literal 1 binary64) esp) y)))) #s(literal 0 binary64))) (atan2.f64 g (cos.f64 (+.f64 phi0 (*.f64 (/.f64 #s(literal 1 binary64) esp) y)))) #s(literal 0 binary64))
(if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (cos.f64 (+.f64 phi0 (/.f64 y esp)))) #s(literal 0 binary64))) (atan2.f64 g (cos.f64 (+.f64 phi0 (/.f64 y esp)))) #s(literal 0 binary64))
(if.f64 (<=.f64 g #s(literal 13999999999999999624126215218373424466723756628999792018937385960434328649190950682933561119844203475201553338089456373175085254909523321112146188185894912 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))))) (sqrt.f64 (-.f64 (*.f64 g g) #s(literal -1 binary64)))))) (*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (*.f64 (/.f64 #s(literal 1 binary64) esp) y) phi0)) (asin.f64 (/.f64 (fabs.f64 (sin.f64 (+.f64 (*.f64 (/.f64 #s(literal 1 binary64) esp) y) phi0))) (cosh.f64 (asinh.f64 g))))))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (/.f64 y esp) phi0)) (asin.f64 (/.f64 (fabs.f64 (+.f64 (*.f64 (sin.f64 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 phi0 (/.f64 y esp))) (asin.f64 (*.f64 (fabs.f64 (sin.f64 (+.f64 (/.f64 y esp) phi0))) (/.f64 #s(literal 1 binary64) (cosh.f64 (asinh.f64 g))))))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (/.f64 y esp) phi0)) (asin.f64 (/.f64 (fabs.f64 (sin.f64 (+.f64 (/.f64 y esp) phi0))) (cosh.f64 (asinh.f64 g)))))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (/.f64 y esp) phi0)) (asin.f64 (/.f64 (fabs.f64 (sin.f64 (+.f64 (/.f64 y esp) phi0))) (sqrt.f64 (-.f64 (*.f64 g g) #s(literal -1 binary64))))))
(sinh.f64 (/.f64 x esp))
(/.f64 (*.f64 (cos.f64 phi) (cos.f64 lam)) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1/2 binary64))) (*.f64 (+.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) (*.f64 (neg.f64 (*.f64 (sin.f64 lam) (cos.f64 phi))) (*.f64 (sin.f64 lam) (cos.f64 phi))))))))
(/.f64 (*.f64 (cos.f64 phi) (cos.f64 lam)) (sqrt.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (asin.f64 (*.f64 (sin.f64 lam) (cos.f64 phi)))))) (+.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.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/2 binary64)) #s(literal 1/2 binary64)))))
(/.f64 (*.f64 (cos.f64 phi) (cos.f64 lam)) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -2 binary64) (asin.f64 (*.f64 (sin.f64 lam) (cos.f64 phi))))) #s(literal 1/2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1/2 binary64))) (*.f64 (+.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))))))
(*.f64 (/.f64 (cos.f64 lam) (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 2 binary64) (*.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)))))))) (cos.f64 phi))
(*.f64 (cos.f64 lam) (/.f64 (cos.f64 phi) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi phi)))))))))
(*.f64 (*.f64 (cos.f64 lam) (cosh.f64 (atanh.f64 (*.f64 (sin.f64 lam) (cos.f64 phi))))) (cos.f64 phi))
(*.f64 (*.f64 (cos.f64 lam) (cos.f64 phi)) (cosh.f64 (atanh.f64 (*.f64 (sin.f64 lam) (cos.f64 phi)))))
(*.f64 (cos.f64 lam) (*.f64 (cos.f64 phi) (cosh.f64 (atanh.f64 (*.f64 (sin.f64 lam) (cos.f64 phi))))))
(*.f64 (neg.f64 ml0) (log.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) b) (-.f64 #s(literal 1 binary64) b)) (fabs.f64 (-.f64 (*.f64 b b) #s(literal 1 binary64))))))
(*.f64 (neg.f64 ml0) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) (-.f64 #s(literal -1 binary64) b)) (-.f64 #s(literal 1 binary64) b))))
(*.f64 (neg.f64 ml0) (log.f64 (/.f64 (-.f64 #s(literal 1 binary64) b) (-.f64 b #s(literal -1 binary64)))))
(*.f64 ml0 (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) b) (-.f64 #s(literal 1 binary64) b))))
(*.f64 (cos.f64 phi) (sin.f64 lam))
(pow.f64 one_es #s(literal 3 binary64))
(*.f64 one_es (*.f64 one_es one_es))
(-.f64 (*.f64 (-.f64 rone_es (*.f64 (*.f64 rone_es ca) (*.f64 ca es))) (-.f64 rone_es (*.f64 (*.f64 rone_es ca) (*.f64 ca 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))
(if.f64 (<=.f64 es #s(literal -199999999999999988833510494509866762549945740760380013648464071215275971245520622008823899209483462732147236567072636928 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) (*.f64 sa es)) (fabs.f64 rone_es)) (fabs.f64 rone_es)) (*.f64 (*.f64 (-.f64 es #s(literal 2 binary64)) (*.f64 rone_es sa)) (*.f64 (neg.f64 sa) (*.f64 rone_es es))))
(if.f64 (<=.f64 rone_es #s(literal 200000000000000014511834319463755672206068485756227456491366879679442034498413781489041363634864839034812519537373514423226695063272748275429807315600786435844252490365053846416064219908669440 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) (*.f64 (*.f64 (*.f64 rone_es es) sa) rone_es)) (*.f64 (*.f64 (*.f64 rone_es sa) (*.f64 rone_es sa)) (*.f64 (-.f64 #s(literal 2 binary64) es) es)))
(if.f64 (<=.f64 sa #s(literal 578358058743443/1445895146858607358437943727208769466035893202868007692637901788601699241144933631951807447549557758449099707135121406247999127995329736165184795181305316406492567598839150653733187621116264206194563768053163279547256274944 binary64)) (*.f64 sa (*.f64 es (*.f64 (*.f64 sa (*.f64 rone_es (-.f64 #s(literal 2 binary64) es))) rone_es))) (*.f64 (*.f64 (*.f64 (*.f64 rone_es (-.f64 #s(literal 2 binary64) es)) sa) sa) (*.f64 rone_es es)))
(if.f64 (<=.f64 rone_es #s(literal 65000000000000002795757530588568794086071124846145800036705055671099774733070014984765876752113627649645928250696243160203363916247105273856 binary64)) (*.f64 (*.f64 (*.f64 rone_es rone_es) (*.f64 sa es)) (*.f64 (-.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)))
(*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) (*.f64 (*.f64 (*.f64 rone_es sa) es) rone_es))
(if.f64 (<=.f64 (*.f64 sa sa) #s(literal 7914572847139345/15829145694278690179872161345257420162248406342477557754500035589945422406818039498900249667919554879334250971265032917718487362195632077437922953926521162746662833417516744704 binary64)) (*.f64 sa (*.f64 es (*.f64 (*.f64 sa (*.f64 rone_es (-.f64 #s(literal 2 binary64) es))) rone_es))) (*.f64 (*.f64 rone_es (-.f64 #s(literal 2 binary64) es)) (*.f64 rone_es (*.f64 (*.f64 sa sa) es))))
(*.f64 sa (*.f64 es (*.f64 (*.f64 sa (*.f64 rone_es (-.f64 #s(literal 2 binary64) es))) rone_es)))
(*.f64 (/.f64 (*.f64 n0 k0) (sin.f64 #s(literal -27401669256311/20000000000000 binary64))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) #s(literal 27401669256311/20000000000000 binary64))))
(*.f64 (*.f64 k0 (/.f64 n0 (sin.f64 #s(literal -27401669256311/20000000000000 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64)) #s(literal 27401669256311/20000000000000 binary64))))
(/.f64 (*.f64 k0 n0) (tan.f64 (+.f64 (-.f64 (PI.f64) #s(literal -27401669256311/20000000000000 binary64)) (*.f64 #s(literal 3 binary64) (PI.f64)))))
(*.f64 (/.f64 k0 (tan.f64 (+.f64 (-.f64 (PI.f64) #s(literal -27401669256311/20000000000000 binary64)) (*.f64 #s(literal 3 binary64) (PI.f64))))) n0)
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 (tan.f64 #s(literal 27401669256311/20000000000000 binary64)) n0)) k0)
(*.f64 (/.f64 n0 (tan.f64 #s(literal 27401669256311/20000000000000 binary64))) k0)
(*.f64 (/.f64 k0 (tan.f64 #s(literal 27401669256311/20000000000000 binary64))) n0)
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) es)) (+.f64 (+.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi0 phi0)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal 1/2 binary64)) #s(literal 1/2 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 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -1080863910568919/36028797018963968 binary64)) (/.f64 (*.f64 (/.f64 (+.f64 (*.f64 (sin.f64 (*.f64 (+.f64 u0 u0) #s(literal -1/4 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (cos.f64 (*.f64 (+.f64 u0 u0) #s(literal -1/4 binary64))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (sin.f64 (-.f64 (*.f64 u0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) g) (pow.f64 (/.f64 (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) alpha)) (/.f64 (/.f64 (*.f64 (sin.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))) g) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 u0 #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 u0 #s(literal 1/2 binary64)))))) (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 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (/.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 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) alpha)))
(/.f64 (/.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 (+.f64 u0 u0) #s(literal -1/4 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (cos.f64 (*.f64 (+.f64 u0 u0) #s(literal -1/4 binary64))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))) g) (sin.f64 (-.f64 (*.f64 u0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (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 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (/.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 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) alpha))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -1080863910568919/36028797018963968 binary64)) (/.f64 (*.f64 (/.f64 (+.f64 (*.f64 (sin.f64 (*.f64 (+.f64 u0 u0) #s(literal -1/4 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (cos.f64 (*.f64 (+.f64 u0 u0) #s(literal -1/4 binary64))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (sin.f64 (-.f64 (*.f64 u0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) g) (pow.f64 (/.f64 (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) alpha)) (/.f64 (/.f64 (*.f64 (sin.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))) g) (sin.f64 (-.f64 (*.f64 u0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (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 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (/.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 #s(literal -1/2 binary64) phi0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) alpha)))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -1080863910568919/36028797018963968 binary64)) (/.f64 (*.f64 (/.f64 (+.f64 (*.f64 (sin.f64 (*.f64 (+.f64 u0 u0) #s(literal -1/4 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (cos.f64 (*.f64 (+.f64 u0 u0) #s(literal -1/4 binary64))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (sin.f64 (-.f64 (*.f64 u0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) g) (pow.f64 (/.f64 (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) alpha)) (*.f64 (sin.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))) (/.f64 g (*.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)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) alpha) (sin.f64 (-.f64 (*.f64 u0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))))
(*.f64 (sin.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))) (/.f64 g (*.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)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) alpha) (sin.f64 (-.f64 (*.f64 u0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))
(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 9007199254740991/9007199254740992 binary64)) (/.f64 (*.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) u0) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (-.f64 (*.f64 u0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) g) (pow.f64 (/.f64 (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64))) (sin.f64 (neg.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))))) alpha)) (/.f64 (*.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) u0) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 u0 #s(literal 1/2 binary64))) (PI.f64)))) g) (pow.f64 (/.f64 (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) alpha)))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 8106479329266893/9007199254740992 binary64)) (/.f64 (*.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) u0) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 u0 #s(literal 1/2 binary64))) (PI.f64)))) g) (pow.f64 (/.f64 (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) alpha)) (/.f64 (*.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) u0) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (-.f64 (*.f64 u0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) g) (pow.f64 (/.f64 (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64))) (neg.f64 (cos.f64 (+.f64 (*.f64 phi0 #s(literal 1/4 binary64)) (*.f64 (+.f64 phi0 (PI.f64)) #s(literal 1/4 binary64)))))) alpha)))
(/.f64 (*.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) u0) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 u0 #s(literal 1/2 binary64))) (PI.f64)))) g) (pow.f64 (/.f64 (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) alpha))
(/.f64 (*.f64 (/.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (sin.f64 (-.f64 (*.f64 u0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) g) (pow.f64 (/.f64 (+.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64)) (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sqrt.f64 #s(literal 2 binary64))) #s(literal -2 binary64))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) alpha))
(*.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (-.f64 (*.f64 u0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (/.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 (sin.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 u0 #s(literal 1/2 binary64)))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64)))) alpha)))
(/.f64 (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) 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 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) alpha))
(*.f64 g (/.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) 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 9007199254740983/9007199254740992 binary64)) (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) phi0) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) alpha)) (if.f64 (<=.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha) #s(literal 2 binary64)) (*.f64 (/.f64 g (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))) alpha) (cos.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))))) (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64)) (PI.f64)))) (*.f64 (/.f64 g (pow.f64 (/.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) alpha)) (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))))))
(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 9007199254740983/9007199254740992 binary64)) (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) phi0) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) alpha)) (*.f64 (/.f64 g (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))) alpha) (cos.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))))) (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64)) (PI.f64)))))
(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 9007199254740983/9007199254740992 binary64)) (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal 2 binary64) phi0) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) alpha)) (/.f64 (*.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64)) (PI.f64))) g) (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) alpha) (cos.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal -1/4 binary64))))))
(/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (PI.f64))) (PI.f64))) alpha))
(/.f64 (*.f64 g (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) u0)))) (pow.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/2 binary64) phi0) (PI.f64))) (PI.f64))) alpha))
(/.f64 (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g) (pow.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) alpha))
(/.f64 #s(literal 1 binary64) (/.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) alpha) (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g)))
(*.f64 g (*.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))))
(*.f64 (/.f64 g (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) alpha)) (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 es (pow.f64 (cos.f64 phi0) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) es))))
(if.f64 (<=.f64 (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))))) #s(literal 0 binary64)) (*.f64 sa (*.f64 (cos.f64 lam) (*.f64 (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) w) #s(literal 1/2 binary64)) #s(literal -1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))))))) p22))) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 lam))) #s(literal 2 binary64)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 lam))) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (sin.f64 lam))) #s(literal 2 binary64)))))))))))
(if.f64 (<=.f64 (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))))) #s(literal 0 binary64)) (*.f64 sa (*.f64 (cos.f64 lam) (*.f64 (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) w) #s(literal 1/2 binary64)) #s(literal -1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))))))) p22))) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))))))))
(if.f64 (<=.f64 (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))))) #s(literal 0 binary64)) (*.f64 sa (*.f64 (cos.f64 lam) (*.f64 (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) w) #s(literal 1/2 binary64)) #s(literal -1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))))))) p22))) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) w) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))))))))
(if.f64 (<=.f64 lam #s(literal 974877780937237/154742504910672534362390528 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 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) q) #s(literal -1 binary64)))))))) (*.f64 sa (*.f64 (cos.f64 lam) (*.f64 (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) w) #s(literal 1/2 binary64)) #s(literal -1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))))))) p22))))
(if.f64 (<=.f64 lam #s(literal 974877780937237/154742504910672534362390528 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) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) w) #s(literal -1 binary64)) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) q) #s(literal -1 binary64)))))))) (*.f64 sa (*.f64 (cos.f64 lam) (*.f64 (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) w) #s(literal 1/2 binary64)) #s(literal -1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))))))) p22))))
(*.f64 sa (*.f64 (cos.f64 lam) (*.f64 (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) w) #s(literal 1/2 binary64)) #s(literal -1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))))))) p22)))
(*.f64 p22 (*.f64 (*.f64 sa (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))))))) (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 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)))))) (sqrt.f64 (*.f64 (fabs.f64 (+.f64 #s(literal 2 binary64) (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))))) #s(literal 1/2 binary64)))))))
(*.f64 (*.f64 (*.f64 (cos.f64 lam) p22) (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 #s(literal -1 binary64) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) w) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))))))) sa)
(*.f64 sa (*.f64 (cos.f64 lam) (*.f64 (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 #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))))) p22)))
(*.f64 p22 (*.f64 (*.f64 sa (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (*.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))))))) (cos.f64 lam)))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (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 (*.f64 (sin.f64 lam) q) (sin.f64 lam))) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam))))) (*.f64 p22 ca)))
(if.f64 (<=.f64 w #s(literal 5237424972633827/104748499452676539840422070298483172870932545473378073263465323779076281484949585756264642954428933028828373892081922272294952209468332577706512882860032 binary64)) (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam))) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)))))) (*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))) (-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (pow.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) #s(literal 2 binary64))) (*.f64 p22 ca))))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))) (-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))) (*.f64 p22 ca)))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))) (-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (pow.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) #s(literal 2 binary64))) (*.f64 p22 ca)))
(*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) q) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))) (-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (pow.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) #s(literal 2 binary64))) (*.f64 p22 ca)))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))) (-.f64 (*.f64 (pow.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))) #s(literal -2 binary64)) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) w) #s(literal 2 binary64)))) (*.f64 p22 ca)))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) w) #s(literal -1 binary64)))) (-.f64 (/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) w) #s(literal -1 binary64)) (pow.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) #s(literal 2 binary64))) (*.f64 p22 ca)))
(*.f64 (-.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) w) #s(literal 2 binary64))) (pow.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))) #s(literal 2 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))))))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))))))
(*.f64 mult (*.f64 (/.f64 (+.f64 xj h) (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj)))) s))
(*.f64 mult (+.f64 (*.f64 (/.f64 xj (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))) h) (*.f64 (/.f64 s (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))) (neg.f64 s))))
(*.f64 mult (/.f64 (-.f64 (*.f64 h xj) (*.f64 s s)) (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))
(/.f64 (*.f64 (cos.f64 phi) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (*.f64 e #s(literal 1/2 binary64)))) (-.f64 (sin.f64 phi) #s(literal -1 binary64)))
(*.f64 (/.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))) (cos.f64 phi))
(*.f64 (pow.f64 (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)))) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (*.f64 e #s(literal 1/2 binary64))) (tan.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64))))
(*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (*.f64 e #s(literal 1/2 binary64))) (tan.f64 (+.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64)) (*.f64 (PI.f64) #s(literal 7 binary64)))))
(*.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi)))) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 phi)))) (*.f64 #s(literal 1/2 binary64) e)))
(*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (*.f64 e #s(literal 1/2 binary64))) (tan.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64))))
(+.f64 #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 #s(literal -881662847/200000000000000000000000000 binary64) (*.f64 (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr))) Xr)) (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)))) (-.f64 (-.f64 (*.f64 (*.f64 #s(literal 3689471323/250000000000000000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 (-.f64 Xr Yr) (+.f64 Xr Yr))) (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr))) (-.f64 (*.f64 (*.f64 #s(literal 4165541759/500000000000000000000000000000000 binary64) (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))) Yr)) Yr) (*.f64 (*.f64 (*.f64 (*.f64 Xr Xr) Xr) #s(literal -4165541759/500000000000000000000000000000000 binary64)) Xr))))))
(+.f64 #s(literal 9827991/390625000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Yr) (+.f64 (-.f64 (-.f64 (*.f64 #s(literal 4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 #s(literal 4668270147/10000000000000000 binary64) Xr)) (-.f64 (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) (*.f64 (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr))) Xr)) (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)))) (-.f64 (-.f64 (*.f64 (*.f64 #s(literal 3689471323/250000000000000000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 (-.f64 Xr Yr) (+.f64 Xr Yr))) (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr))) (-.f64 (*.f64 (*.f64 #s(literal 4165541759/500000000000000000000000000000000 binary64) (*.f64 Yr Yr)) (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr)))) (*.f64 (*.f64 (*.f64 (*.f64 #s(literal -4165541759/500000000000000000000000000000000 binary64) Xr) Xr) Xr) Xr))))))
(+.f64 (+.f64 (-.f64 #s(literal 9827991/390625000 binary64) (*.f64 #s(literal -149230739/1250000000000000 binary64) Yr)) (-.f64 (-.f64 (*.f64 (*.f64 #s(literal 3689471323/250000000000000000000000000000000 binary64) (*.f64 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))))) (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr) (*.f64 (-.f64 (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr)) (*.f64 Yr Yr))) #s(literal 4165541759/500000000000000000000000000000000 binary64)))) (-.f64 (-.f64 (*.f64 (*.f64 #s(literal 4616990181/250000000000000000000 binary64) Yr) Xr) (*.f64 #s(literal 4668270147/10000000000000000 binary64) Xr)) (-.f64 (*.f64 (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) Xr) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)))) (*.f64 (*.f64 #s(literal -304747143/200000000000000000000 binary64) (-.f64 Yr Xr)) (+.f64 Xr Yr)))))
(+.f64 #s(literal 9827991/390625000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Yr) (+.f64 (-.f64 (-.f64 (*.f64 (*.f64 #s(literal 4616990181/250000000000000000000 binary64) Yr) Xr) (*.f64 #s(literal 4668270147/10000000000000000 binary64) Xr)) (-.f64 (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) (*.f64 (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr))) Xr)) (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)))) (-.f64 (-.f64 (*.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 4165541759/500000000000000000000000000000000 binary64) (+.f64 (*.f64 (*.f64 Yr Yr) (+.f64 (*.f64 #s(literal -6 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr)))))))
(+.f64 #s(literal 9827991/390625000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Yr) (+.f64 (-.f64 (-.f64 (*.f64 #s(literal 4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 #s(literal 4668270147/10000000000000000 binary64) Xr)) (-.f64 (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) (*.f64 (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr))) Xr)) (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)))) (-.f64 (-.f64 (*.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 4165541759/500000000000000000000000000000000 binary64) (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))) Yr) Yr) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr)))))))
(+.f64 #s(literal 9827991/390625000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Yr) (+.f64 (-.f64 (-.f64 (*.f64 #s(literal 4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 #s(literal 4668270147/10000000000000000 binary64) Xr)) (-.f64 (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) (*.f64 (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr))) Xr)) (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)))) (-.f64 (-.f64 (*.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 4165541759/500000000000000000000000000000000 binary64) (+.f64 (*.f64 (*.f64 Yr Yr) (+.f64 (*.f64 #s(literal -6 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr)))))))
(-.f64 (-.f64 (*.f64 Xr #s(literal 149230739/1250000000000000 binary64)) #s(literal -2946529277/100000000000 binary64)) (-.f64 (-.f64 (*.f64 #s(literal 304747143/100000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 Yr #s(literal 4668270147/10000000000000000 binary64))) (-.f64 (-.f64 (-.f64 (-.f64 (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Xr Yr) (+.f64 Yr Xr))) (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) Yr))) (-.f64 (*.f64 (*.f64 #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 (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr)) (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Xr))) (*.f64 (*.f64 (-.f64 Yr Xr) (+.f64 Yr Xr)) #s(literal 4616990181/500000000000000000000 binary64)))))
(-.f64 (-.f64 (*.f64 Xr #s(literal 149230739/1250000000000000 binary64)) #s(literal -2946529277/100000000000 binary64)) (-.f64 (-.f64 (*.f64 #s(literal 304747143/100000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 Yr #s(literal 4668270147/10000000000000000 binary64))) (-.f64 (-.f64 (-.f64 (-.f64 (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Xr Yr) (+.f64 Yr Xr))) (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) Yr))) (*.f64 #s(literal 3689471323/1000000000000000000000000000000000 binary64) (+.f64 (*.f64 (*.f64 Yr Yr) (+.f64 (*.f64 #s(literal -6 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr)))) (*.f64 (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr)) (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Xr))) (*.f64 (*.f64 (-.f64 Yr Xr) (+.f64 Yr Xr)) #s(literal 4616990181/500000000000000000000 binary64)))))
(asin.f64 (+.f64 (*.f64 (cos.f64 ad) (sin.f64 u)) (*.f64 (sin.f64 ad) (*.f64 (cos.f64 u) (cos.f64 deltav)))))
(asin.f64 (-.f64 (*.f64 (sin.f64 s) (cos.f64 ad)) (*.f64 (*.f64 (cos.f64 s) (sin.f64 ad)) (cos.f64 d))))
(asin.f64 (-.f64 (*.f64 (sin.f64 s) (cos.f64 ad)) (*.f64 (*.f64 (cos.f64 d) (cos.f64 s)) (sin.f64 ad))))
(+.f64 (*.f64 (atan.f64 (*.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) (pow.f64 (/.f64 rho0 rho) (-.f64 (/.f64 (-.f64 n #s(literal -1 binary64)) n) #s(literal 1 binary64))))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (atan.f64 (*.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) (pow.f64 (/.f64 rho0 rho) (/.f64 n (*.f64 n n))))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (atan.f64 (*.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) (pow.f64 (/.f64 rho0 rho) (/.f64 #s(literal 4 binary64) (*.f64 n #s(literal 4 binary64)))))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (atan.f64 (*.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) (pow.f64 (/.f64 rho0 rho) (/.f64 #s(literal 1 binary64) n)))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(/.f64 Esc (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) Up) (-.f64 #s(literal 1 binary64) Up))))
(+.f64 (*.f64 (atan.f64 (exp.f64 (/.f64 y kR))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(asin.f64 (+.f64 (*.f64 cosp0 (sin.f64 phipp)) (*.f64 sinp0 (*.f64 (cos.f64 phipp) (cos.f64 lampp)))))
(*.f64 (-.f64 (*.f64 #s(literal 4 binary64) (atan.f64 fac)) (PI.f64)) #s(literal 1/2 binary64))
(*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (*.f64 (pow.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) u)) (sin.f64 (*.f64 u #s(literal 1/2 binary64)))) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.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)) (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 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (sin.f64 (neg.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 u u) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 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 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (-.f64 (*.f64 u #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (/.f64 #s(literal 1 binary64) alpha)) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (pow.f64 k (/.f64 #s(literal -1 binary64) alpha))))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))
(if.f64 (<=.f64 (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (*.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u) (/.f64 (PI.f64) #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) alpha)) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 fi))) (-.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 fi)))) (*.f64 #s(literal 1/2 binary64) evar))))) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 0 binary64)) (*.f64 (-.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 (atan.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 u #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) alpha)) (*.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))))) #s(literal 2 binary64)) (*.f64 (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 (*.f64 (cos.f64 lamt) (tan.f64 lamdp)) (*.f64 (sin.f64 lamt) ca)) one_es) sa))
(atan.f64 (/.f64 (-.f64 (*.f64 (tan.f64 lamdp) (cos.f64 lamt)) (*.f64 ca (sin.f64 lamt))) (*.f64 one_es sa)))
(atan.f64 (/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 spp spp) rone_es)) (*.f64 (tan.f64 lamdp) ca)) (/.f64 (*.f64 spp (*.f64 sa (sqrt.f64 (-.f64 (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lamdp) #s(literal 2 binary64)))) (-.f64 #s(literal 1 binary64) (*.f64 spp spp))) (*.f64 (*.f64 spp spp) u))))) (cos.f64 lamdp))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 spp spp) (+.f64 #s(literal 1 binary64) u)))))
(atan.f64 (/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 spp spp) rone_es)) (*.f64 (tan.f64 lamdp) ca)) (/.f64 (*.f64 spp (*.f64 sa (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lamdp lamdp)))) #s(literal 1/2 binary64))) (-.f64 (*.f64 spp spp) #s(literal 1 binary64))) (*.f64 u (*.f64 spp spp))))))) (cos.f64 lamdp))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 spp spp) (+.f64 #s(literal 1 binary64) u)))))
(atan.f64 (/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 rone_es (*.f64 spp spp))) ca) (tan.f64 lamdp)) (*.f64 (*.f64 sa spp) (/.f64 (sqrt.f64 (-.f64 (*.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lamdp lamdp)))) #s(literal 1/2 binary64))) (-.f64 (*.f64 spp spp) #s(literal 1 binary64))) (*.f64 u (*.f64 spp spp)))) (cos.f64 lamdp)))) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal -1 binary64) u) spp) spp) #s(literal -1 binary64))))
(atan.f64 (/.f64 (/.f64 (-.f64 (*.f64 (*.f64 sa spp) (sqrt.f64 (-.f64 (*.f64 (-.f64 (*.f64 spp spp) #s(literal 1 binary64)) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lamdp lamdp)))))) (*.f64 u (*.f64 spp spp))))) (*.f64 (*.f64 ca (sin.f64 lamdp)) (-.f64 #s(literal 1 binary64) (*.f64 rone_es (*.f64 spp spp))))) (cos.f64 lamdp)) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (-.f64 #s(literal -1 binary64) u) spp) spp))))
(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 (-.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 500000000000000000080882538393228219106334323115829719147747508550558749612869373932630121517106957626889886784090168708013722910283889599821695770803013034305575373061142488088628325022100263638403663533845231056330713750098525613244949130339381695724688044273646160407063978743165327734459561131638784 binary64)) (/.f64 (-.f64 (-.f64 xy_x (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4) (-.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (*.f64 (/.f64 s xj) xy_y)))) (*.f64 (/.f64 s xj) (+.f64 (*.f64 c1 (sin.f64 lamdp)) (+.f64 (*.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) c3) (*.f64 (*.f64 #s(literal -4 binary64) (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64))) c3))))) b) (/.f64 (-.f64 (-.f64 xy_x (-.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (/.f64 #s(literal 1 binary64) (/.f64 xj (*.f64 s (-.f64 xy_y (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)))))))) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) 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 500000000000000000080882538393228219106334323115829719147747508550558749612869373932630121517106957626889886784090168708013722910283889599821695770803013034305575373061142488088628325022100263638403663533845231056330713750098525613244949130339381695724688044273646160407063978743165327734459561131638784 binary64)) (/.f64 (-.f64 xy_x (+.f64 (-.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (*.f64 (/.f64 s xj) xy_y)) (+.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)) (/.f64 s xj)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)))) b) (/.f64 (-.f64 (-.f64 xy_x (-.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (/.f64 #s(literal 1 binary64) (/.f64 xj (*.f64 s (-.f64 xy_y (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)))))))) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) 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 500000000000000000080882538393228219106334323115829719147747508550558749612869373932630121517106957626889886784090168708013722910283889599821695770803013034305575373061142488088628325022100263638403663533845231056330713750098525613244949130339381695724688044273646160407063978743165327734459561131638784 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 b (-.f64 (-.f64 xy_x (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4) (-.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (*.f64 (/.f64 s xj) xy_y)))) (*.f64 (-.f64 (*.f64 (sin.f64 lamdp) (-.f64 c1 (*.f64 #s(literal -3 binary64) c3))) (*.f64 (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64)) c3)) (/.f64 s xj))))) (/.f64 (-.f64 (-.f64 xy_x (-.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (/.f64 #s(literal 1 binary64) (/.f64 xj (*.f64 s (-.f64 xy_y (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)))))))) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) 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 4000000000000000000647060307145825752850674584926637753181980068404469996902954991461040972136855661015119094272721349664109783282271116798573566166424104274444602984489139904709026600176802109107229308270761848450645710000788204905959593042715053565797504354189169283256511829945322621875676489053110272 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) b) (-.f64 (-.f64 xy_x (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4) (-.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (*.f64 (/.f64 s xj) xy_y)))) (*.f64 (-.f64 (*.f64 (sin.f64 lamdp) (-.f64 c1 (*.f64 #s(literal -3 binary64) c3))) (*.f64 (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64)) c3)) (/.f64 s xj)))) (/.f64 (-.f64 (-.f64 xy_x (-.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (/.f64 #s(literal 1 binary64) (/.f64 xj (*.f64 s (-.f64 xy_y (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)))))))) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) b))
(/.f64 (-.f64 (-.f64 xy_x (-.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (*.f64 (/.f64 s xj) (-.f64 xy_y (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)))))) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) 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)))))
(exp.f64 (*.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (/.f64 s xj) s) xj) xj)) (-.f64 xy_y (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))))
(exp.f64 (*.f64 (-.f64 xy_y (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1))) (sqrt.f64 (-.f64 (*.f64 (/.f64 s (*.f64 xj xj)) s) #s(literal -1 binary64)))))
(exp.f64 (*.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 s s) (*.f64 xj xj)))) (-.f64 xy_y (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))))
(*.f64 ecc (sin.f64 phip))
(*.f64 (-.f64 (+.f64 con (-.f64 (log.f64 (fabs.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip)))))) (log.f64 (fabs.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal -1/4 binary64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #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 (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)))) (*.f64 rone_es (+.f64 (log.f64 (fabs.f64 (/.f64 (*.f64 (-.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))))) (-.f64 con (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e)))))
(*.f64 (*.f64 (*.f64 (+.f64 (-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal -1/4 binary64)))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e)) con) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64))) (*.f64 ecc ecc)))) rone_es) (cos.f64 phip))
(*.f64 (*.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) con) (log.f64 (sinh.f64 (atanh.f64 (fabs.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))))))) (-.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 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e) con) (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal -1/4 binary64)))))) (-.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 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e) con) (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64))))) (-.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 (-.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) phip))) (*.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64))))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 (neg.f64 (PI.f64)) #s(literal -1/4 binary64))))))))) c)
(/.f64 (-.f64 K (-.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) phip))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64))))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 #s(literal 2 binary64))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 (neg.f64 (PI.f64)) #s(literal -1/4 binary64))))))))) c)
(/.f64 (-.f64 K (-.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) phip))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64))))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phip #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))))))))) c)
(/.f64 (-.f64 K (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 phip #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))))) c)
(/.f64 (+.f64 (log.f64 (/.f64 (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 phip #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (fabs.f64 (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) K) 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 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 phip #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))))) c)
(/.f64 (-.f64 K (-.f64 (log.f64 (/.f64 (sqrt.f64 (fabs.f64 (-.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))) #s(literal 2 binary64))))))) (sqrt.f64 #s(literal 2 binary64)))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) c)
(/.f64 (-.f64 K (log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))) #s(literal -1 binary64))))) 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 -5237424972633827/104748499452676539840422070298483172870932545473378073263465323779076281484949585756264642954428933028828373892081922272294952209468332577706512882860032 binary64)) (/.f64 (-.f64 K (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64))))) 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 390218568789499/780437137578998057845399307448291576437149535666242787714789239906342934704941405030076525765872992789956732780351655723861993919822071326572544 binary64)) (+.f64 (/.f64 (*.f64 (neg.f64 c) (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))))) (*.f64 c c)) (/.f64 K c)) (/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)) #s(literal -1 binary64))))))) 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 -5237424972633827/104748499452676539840422070298483172870932545473378073263465323779076281484949585756264642954428933028828373892081922272294952209468332577706512882860032 binary64)) (/.f64 (-.f64 K (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64))))) 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 390218568789499/780437137578998057845399307448291576437149535666242787714789239906342934704941405030076525765872992789956732780351655723861993919822071326572544 binary64)) (+.f64 (/.f64 (*.f64 (neg.f64 c) (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))))) (*.f64 c c)) (/.f64 K c)) (/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))))) c)))
(if.f64 (<=.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) #s(literal 4503599627369861/40564819207303340847894502572032 binary64)) (/.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phip #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (PI.f64))) (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 4951760157141521/4951760157141521099596496896 binary64)) (/.f64 (-.f64 (*.f64 c K) (*.f64 c (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))))) (*.f64 c c)) (/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))))) c)))
(if.f64 (<=.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) #s(literal 4503599627369861/40564819207303340847894502572032 binary64)) (/.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phip #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (PI.f64))) (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 4867778304876401/40564819207303340847894502572032 binary64)) (*.f64 c (/.f64 (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))))) (*.f64 c c))) (/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))))) c)))
(/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))))) c)
(/.f64 (-.f64 K (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64))))) c)
(if.f64 (<=.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) #s(literal -100000000000000007525217352494018719361427080482583638519254439706352434301546571002539107639662119923939220917551527141401041968172205589677021287693862203915638886974287199071604654071266769099226071211897966340736882502910990345434353553680702253338428636675464684849307718019341877248 binary64)) (+.f64 (*.f64 (/.f64 singam Tp) Sp) (*.f64 (/.f64 Vp Tp) cosgam)) (if.f64 (<=.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) #s(literal 40000000000000002100190410208176809948178743244326366196634164620472098319556327831454855003217914561748177753315355127077700929414417223025791687391468279313935488037063032149513209351791523602374758129398831997803244761558705635202986109711205699783170351552802273713524626778887855474618376021606400 binary64)) (/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp) (+.f64 (*.f64 (/.f64 Sp Tp) singam) (*.f64 (/.f64 cosgam Tp) Vp))))
(if.f64 (<=.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) #s(literal -100000000000000007525217352494018719361427080482583638519254439706352434301546571002539107639662119923939220917551527141401041968172205589677021287693862203915638886974287199071604654071266769099226071211897966340736882502910990345434353553680702253338428636675464684849307718019341877248 binary64)) (+.f64 (*.f64 (/.f64 Sp Tp) singam) (*.f64 (/.f64 Vp Tp) cosgam)) (if.f64 (<=.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) #s(literal 40000000000000002100190410208176809948178743244326366196634164620472098319556327831454855003217914561748177753315355127077700929414417223025791687391468279313935488037063032149513209351791523602374758129398831997803244761558705635202986109711205699783170351552802273713524626778887855474618376021606400 binary64)) (/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp) (+.f64 (*.f64 (/.f64 Sp Tp) singam) (*.f64 (/.f64 cosgam Tp) Vp))))
(if.f64 (<=.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) #s(literal -100000000000000007525217352494018719361427080482583638519254439706352434301546571002539107639662119923939220917551527141401041968172205589677021287693862203915638886974287199071604654071266769099226071211897966340736882502910990345434353553680702253338428636675464684849307718019341877248 binary64)) (+.f64 (*.f64 (/.f64 Sp Tp) singam) (*.f64 (/.f64 Vp Tp) cosgam)) (if.f64 (<=.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) #s(literal 19999999999999998785071050110729243720080574440234649906381543142646409126026467805686618514881015496873712236112324345157434387485272061060471597681733765549974602883364022082135420506324881811687439605097103198153279365101643665319098224539215899610692069837325144812815208761691919724149808696276287488 binary64)) (/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp) (+.f64 (*.f64 (/.f64 Sp Tp) singam) (*.f64 (/.f64 Vp Tp) cosgam))))
(/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp)
(exp.f64 (neg.f64 (*.f64 BrA v)))
(*.f64 ArB (log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sin.f64 (-.f64 (*.f64 gamma0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0))) (*.f64 (sin.f64 (+.f64 (*.f64 gamma0 #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (/.f64 (+.f64 (sin.f64 (-.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/2 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 (+.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64))))) #s(literal 2 binary64)))))
(*.f64 ArB (log.f64 (/.f64 (*.f64 (*.f64 (-.f64 (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 gamma0 #s(literal 1/2 binary64))))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64)))) (sin.f64 (+.f64 (+.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64))))) #s(literal 2 binary64)))))
(if.f64 (<=.f64 (*.f64 ArB (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0))))) #s(literal -1668739871813211/1042962419883256876169444192465601618458351817556959360325703910069443225478828393565899456512 binary64)) (*.f64 ArB (log.f64 (/.f64 (sin.f64 (*.f64 (-.f64 (PI.f64) (*.f64 gamma0 #s(literal 2 binary64))) #s(literal 1/4 binary64))) (-.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0))) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0))))))) (*.f64 (log.f64 (sinh.f64 (atanh.f64 (fabs.f64 (sin.f64 (*.f64 (-.f64 (+.f64 gamma0 gamma0) (PI.f64)) #s(literal 1/4 binary64))))))) ArB))
(*.f64 ArB (log.f64 (fabs.f64 (/.f64 (sin.f64 (*.f64 (-.f64 (+.f64 gamma0 gamma0) (PI.f64)) #s(literal -1/4 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0))))))))
(if.f64 (<=.f64 gamma0 #s(literal 2676089423823675/356811923176489970264571492362373784095686656 binary64)) (log.f64 (pow.f64 (tan.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64))) ArB)) (*.f64 (log.f64 (fabs.f64 (tan.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/4 binary64))))) ArB))
(*.f64 (log.f64 (sinh.f64 (atanh.f64 (fabs.f64 (sin.f64 (*.f64 (-.f64 (+.f64 gamma0 gamma0) (PI.f64)) #s(literal 1/4 binary64))))))) ArB)
(*.f64 (log.f64 (fabs.f64 (tan.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal -1/4 binary64))))) ArB)
(*.f64 (log.f64 (tan.f64 (*.f64 (-.f64 (PI.f64) (+.f64 gamma0 gamma0)) #s(literal 1/4 binary64)))) ArB)
(if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (fabs.f64 (*.f64 ArB (atan.f64 (/.f64 (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64))) (cos.f64 alpha_c)))))) (fabs.f64 (*.f64 ArB (atan.f64 (/.f64 (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64))) (cos.f64 alpha_c))))))
(/.f64 (sin.f64 phi0) c)
(/.f64 (-.f64 L H) (+.f64 L H))
(-.f64 (/.f64 #s(literal 1 binary64) (/.f64 B (atan.f64 (/.f64 (tan.f64 (*.f64 (*.f64 B #s(literal 1/2 binary64)) (-.f64 (if.f64 (<.f64 (-.f64 lam1 lam2) (neg.f64 (PI.f64))) (+.f64 (+.f64 (PI.f64) (PI.f64)) lam2) (if.f64 (>.f64 (-.f64 lam1 lam2) (PI.f64)) (-.f64 lam2 (+.f64 (PI.f64) (PI.f64))) lam2)) lam1))) (/.f64 p J))))) (*.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 (*.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 (tan.f64 (*.f64 (*.f64 B #s(literal 1/2 binary64)) (-.f64 lam1 (if.f64 (<.f64 (-.f64 lam1 lam2) (neg.f64 (PI.f64))) (+.f64 (+.f64 (PI.f64) (PI.f64)) lam2) (if.f64 (>.f64 (-.f64 lam1 lam2) (PI.f64)) (-.f64 lam2 (+.f64 (PI.f64) (PI.f64))) lam2))))) p) J)) B))
(-.f64 lamc (/.f64 #s(literal 1 binary64) (/.f64 B (asin.f64 (*.f64 (*.f64 (tan.f64 gamma0) #s(literal 1/2 binary64)) (-.f64 F (/.f64 #s(literal 1 binary64) F)))))))
(-.f64 lamc (/.f64 (asin.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 F (/.f64 #s(literal 1 binary64) F))) (tan.f64 gamma0))) B))
(/.f64 (*.f64 k0 (sqrt.f64 one_es)) (+.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 phi0 phi0)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 ecc ecc)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))
(/.f64 (*.f64 (sqrt.f64 one_es) k0) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 phi0 phi0)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 ecc ecc)) #s(literal -1 binary64)))
(asin.f64 (/.f64 (sin.f64 alpha_c) D))
(-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi0 phi0)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) (*.f64 rone_es es))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es) rone_es)))
(asin.f64 (*.f64 D (sin.f64 gamma0)))
(-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))))) (-.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))) (-.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 1733885856537641/2251799813685248 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 1/2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (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 (*.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))) (-.f64 (*.f64 (sin.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 (sin.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 1733885856537641/2251799813685248 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 1/2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (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 (*.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))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (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 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (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 1733885856537641/2251799813685248 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 1/2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (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 (*.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))) (-.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 22000000 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 1/2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (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 (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 (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 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (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 22000000 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 1/2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (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 (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 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0))) #s(literal 1733885856537641/2251799813685248 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 1/2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (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 (*.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)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1/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)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1/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 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(-.f64 (log.f64 (*.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 #s(literal 1 binary64) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(if.f64 (<=.f64 (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))) #s(literal 2 binary64)) (-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))))) (*.f64 (-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi0) ecc)) (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal 1 binary64)))) hlf_e)) c)) (-.f64 (*.f64 #s(literal 1 binary64) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) (cos.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.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 (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi0) ecc)) (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal 1 binary64)))) hlf_e) (*.f64 #s(literal 1 binary64) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -9/4 binary64) (PI.f64)))))))) c) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))))) (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip0))))))
(-.f64 (*.f64 #s(literal 1 binary64) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip0)))))) (*.f64 (-.f64 (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))))) (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi0) (*.f64 #s(literal 5/4 binary64) (PI.f64))))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi0) ecc)) (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal 1 binary64)))) hlf_e)) c))
(-.f64 (*.f64 #s(literal 1 binary64) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) (cos.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.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 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.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 1/4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(-.f64 (/.f64 (neg.f64 E_var) (-.f64 (*.f64 H (/.f64 (neg.f64 L) E_var)) E_var)) (*.f64 L (/.f64 H (+.f64 (*.f64 H L) (*.f64 E_var E_var)))))
(-.f64 (/.f64 E_var (+.f64 (/.f64 (*.f64 H L) E_var) E_var)) (*.f64 L (/.f64 H (+.f64 (*.f64 H L) (*.f64 E_var E_var)))))
(/.f64 (-.f64 (*.f64 E_var E_var) (*.f64 L H)) (+.f64 (*.f64 E_var E_var) (*.f64 L H)))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fabs.f64 (-.f64 D #s(literal 1 binary64))) #s(literal -1/2 binary64))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))) (*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fabs.f64 (-.f64 D #s(literal 1 binary64))) #s(literal -1/2 binary64))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (*.f64 (sqrt.f64 (fabs.f64 (-.f64 D #s(literal 1 binary64)))) (neg.f64 (sqrt.f64 (fabs.f64 (-.f64 D #s(literal -1 binary64)))))) (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (-.f64 #s(literal 1 binary64) D)))) (sqrt.f64 (fabs.f64 (-.f64 D #s(literal -1 binary64))))))))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (*.f64 (sqrt.f64 (/.f64 (*.f64 (E.f64) (fabs.f64 (-.f64 D #s(literal 1 binary64)))) (E.f64))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))) (*.f64 (sqrt.f64 (/.f64 (*.f64 (E.f64) (fabs.f64 (-.f64 D #s(literal 1 binary64)))) (E.f64))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (*.f64 (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) D))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))) (*.f64 (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) D))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (*.f64 #s(literal 1 binary64) (neg.f64 (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64))))) (*.f64 (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) D))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (sqrt.f64 (-.f64 (-.f64 (*.f64 D D) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 (-.f64 (-.f64 (*.f64 D D) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)))))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)))) (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)))))
(/.f64 (*.f64 (pow.f64 (*.f64 (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) es) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))))) (+.f64 (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es) one_es)) one_es) #s(literal -1/2 binary64)) com) (cos.f64 phi0))
(/.f64 (/.f64 com (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) es) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))))))) (/.f64 (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 (sqrt.f64 (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es) one_es) #s(literal -1 binary64)))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))) #s(literal 1/2 binary64)) es))) (cos.f64 phi0)))
(/.f64 (*.f64 (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (/.f64 (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es) one_es)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) es) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0)))) #s(literal 1 binary64)))) com) (cos.f64 phi0))
(/.f64 com (*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) es) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0)))) #s(literal 1 binary64)) (-.f64 #s(literal -1 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) one_es) es)))) (cos.f64 phi0)))
(*.f64 (/.f64 com (cos.f64 phi0)) (sqrt.f64 (/.f64 (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es) one_es) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))) #s(literal 1/2 binary64)) es)))))
(*.f64 (/.f64 com (cos.f64 phi0)) (sqrt.f64 (/.f64 (-.f64 (*.f64 es (/.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) one_es)) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))) #s(literal 1/2 binary64)) es)))))
(/.f64 com (*.f64 (sqrt.f64 (*.f64 (/.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) es) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))))) (+.f64 (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es) one_es)) one_es)) (cos.f64 phi0)))
(sqrt.f64 (/.f64 (+.f64 one_es (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es)) one_es))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) one_es) es)))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (*.f64 kR (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))) (*.f64 kR (log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64)))))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -5764607523034235/576460752303423488 binary64)) (*.f64 kR (log.f64 (/.f64 (fabs.f64 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (*.f64 #s(literal -2 binary64) (-.f64 (+.f64 (PI.f64) (*.f64 #s(literal -1/2 binary64) phipp)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) #s(literal 1/2 binary64)))))) (*.f64 (log.f64 (*.f64 (*.f64 (/.f64 (*.f64 #s(literal -2 binary64) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 #s(literal -1 binary64) (cos.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/2 binary64))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp))))) kR))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (*.f64 kR (log.f64 (-.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (-.f64 (PI.f64) (*.f64 #s(literal -1/2 binary64) phipp)))) (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (PI.f64)))) (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) (*.f64 (log.f64 (*.f64 (*.f64 (/.f64 (*.f64 #s(literal -2 binary64) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 #s(literal -1 binary64) (cos.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/2 binary64))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp))))) 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 -6032057205060441/6032057205060440848842124543157735677050252251748505781796615064961622344493727293370973578138265743708225425014400837164813540499979063179105919597766951022193355091707896034850684039059079180396788349106095584290087446076413771468940477241550670753145517602931224392424029547429993824129889235158145614364972941312 binary64)) (*.f64 kR (log.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (*.f64 (log.f64 (*.f64 (*.f64 (/.f64 (*.f64 #s(literal -2 binary64) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 #s(literal -1 binary64) (cos.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/2 binary64))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp))))) kR))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal 2535301200456459/2535301200456458802993406410752 binary64)) (*.f64 kR (log.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (*.f64 (log.f64 (*.f64 (*.f64 (/.f64 #s(literal -2 binary64) (-.f64 #s(literal -1 binary64) (cos.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/2 binary64))))) (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) kR))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (*.f64 kR (log.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (*.f64 kR (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64)))) (+.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (PI.f64)))) (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (PI.f64)))))))))
(*.f64 kR (log.f64 (/.f64 (-.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phipp)))) #s(literal 2 binary64)) (sin.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (*.f64 (sin.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phipp (PI.f64)))) (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phipp (PI.f64)))) (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))))) #s(literal 2 binary64)))))
(if.f64 (<=.f64 (*.f64 kR (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))))) #s(literal 6325070415853457/12650140831706913647030959169932331690597290610258882397306334876714396222999709180747523981339820280949192366519800744461863046086612092304188337496296156870094839017285397585279181733880826021327485479904546566785125467714043293663631459728072472271300628532022423097020838413451906408261645469290375391456731733818343424 binary64)) (*.f64 kR (log.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (*.f64 (/.f64 kR #s(literal 2 binary64)) (log.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) #s(literal 2 binary64)))))
(*.f64 kR (log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (sin.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (sin.f64 (+.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) #s(literal 2 binary64)))))
(*.f64 kR (log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (*.f64 (sin.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (sin.f64 (+.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) #s(literal 2 binary64)))))
(*.f64 kR (log.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)))) #s(literal -1 binary64))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (sin.f64 (+.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) #s(literal 2 binary64)))))
(*.f64 kR (log.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (sin.f64 (+.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (fabs.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 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)))) (+.f64 (sin.f64 (+.f64 (fabs.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phipp (PI.f64)))))) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phipp (PI.f64)))) (fabs.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))))))))) (log.f64 #s(literal 2 binary64))))
(*.f64 kR (log.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phipp) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)))) (+.f64 (sin.f64 (+.f64 (fabs.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phipp (PI.f64)))))) (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal 1/2 binary64) (-.f64 phipp (PI.f64)))) (fabs.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))))))) #s(literal 2 binary64))))
(*.f64 kR (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))))))))
(if.f64 (<=.f64 (*.f64 kR (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))))) #s(literal 39999999999999998116394341015895004582005369498587980817774798135008889236832540403098949017596279503857976235196107587296037135033765903667627197945557561774765117874632937403616439514082803772592228187176440695417833371491179060224935998728946542317371771765772504793088 binary64)) (*.f64 (log.f64 (fabs.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phipp)))))) kR) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))))))
(if.f64 (<=.f64 phipp #s(literal 750000000000000 binary64)) (*.f64 kR (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))))))
(if.f64 (<=.f64 phipp #s(literal 4958484807013127/4722366482869645213696 binary64)) (*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))) #s(literal -1 binary64))))) (*.f64 (/.f64 kR #s(literal 2 binary64)) (log.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) #s(literal 2 binary64)))))
(if.f64 (<=.f64 phipp #s(literal 2535301200456459/2535301200456458802993406410752 binary64)) (*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))) #s(literal -1 binary64))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))))))
(if.f64 (<=.f64 phipp #s(literal 7788445287802241/324518553658426726783156020576256 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 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))))))
(if.f64 (<=.f64 phipp #s(literal 6490371073168535/162259276829213363391578010288128 binary64)) (*.f64 kR (log.f64 (tan.f64 (neg.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (PI.f64))))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))))))
(*.f64 kR (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64)))))))
(*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))))))
(*.f64 (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp (PI.f64)) phipp) #s(literal 1/4 binary64)))) kR)
(*.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 1 binary64) (pow.f64 (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 4 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lamdp lamdp)) #s(literal 1/2 binary64))))) #s(literal -1 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 (/.f64 xj (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj)))) tanph) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)))
(-.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (-.f64 (/.f64 tanph (/.f64 (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj))) s)) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4) (*.f64 lamdp b))))
(-.f64 (*.f64 (*.f64 (+.f64 a2 a2) (cos.f64 lamdp)) (sin.f64 lamdp)) (-.f64 (*.f64 (/.f64 s (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj)))) tanph) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4) (*.f64 lamdp b))))
(-.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (-.f64 (*.f64 (/.f64 s (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj)))) tanph) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4) (*.f64 lamdp b))))
(if.f64 (<=.f64 one_es #s(literal -215000000000000008059642873509979118312105416332142959890090907426821445589714113765834752 binary64)) (/.f64 (+.f64 (*.f64 one_es (*.f64 tanphi sa)) (*.f64 (sin.f64 lamt) ca)) (cos.f64 lamt)) (+.f64 (*.f64 (*.f64 sa one_es) (/.f64 tanphi (cos.f64 lamt))) (*.f64 (tan.f64 lamt) ca)))
(if.f64 (<=.f64 one_es #s(literal -249999999999999991621028178865975012456296523155031375744918649327294938859344807671627776 binary64)) (/.f64 (+.f64 (*.f64 one_es (*.f64 tanphi sa)) (*.f64 (sin.f64 lamt) ca)) (cos.f64 lamt)) (/.f64 (+.f64 (*.f64 (*.f64 sa one_es) tanphi) (*.f64 (sin.f64 lamt) ca)) (cos.f64 lamt)))
(/.f64 (+.f64 (*.f64 one_es (*.f64 tanphi sa)) (*.f64 (sin.f64 lamt) ca)) (cos.f64 lamt))
(*.f64 #s(literal 1/2 binary64) (*.f64 ArB (-.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (-.f64 (*.f64 U U) (-.f64 (+.f64 U U) #s(literal 1 binary64))))) (log.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) U))))))
(*.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (fabs.f64 (-.f64 U #s(literal 1 binary64))))) (log.f64 (sqrt.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (-.f64 U #s(literal -1 binary64))))))) ArB)
(*.f64 #s(literal 1/2 binary64) (*.f64 ArB (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) (-.f64 U #s(literal -1 binary64))) (-.f64 U #s(literal 1 binary64))))))
(*.f64 (log.f64 (sqrt.f64 (/.f64 (-.f64 U #s(literal 1 binary64)) (-.f64 #s(literal -1 binary64) U)))) ArB)
(if.f64 (<=.f64 S #s(literal -900000000000000013403525240944953826076375071089611321745074722150046737035689984 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (+.f64 (*.f64 (neg.f64 (sin.f64 (PI.f64))) (cos.f64 (*.f64 lam B))) (*.f64 (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))) (sin.f64 (-.f64 (PI.f64) (*.f64 lam B))))) singam)) (sin.f64 (-.f64 (*.f64 lam B) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (cos.f64 (*.f64 B lam)))))
(if.f64 (<=.f64 B #s(literal -4800000000000000208154763188258794464281579120835055930033974018263670602863956040937625420717547450825394846507444018242368556761088 binary64)) (*.f64 (atan2.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (PI.f64) (*.f64 lam B))) singam) (*.f64 cosgam S)) (cos.f64 (*.f64 lam B))) ArB) (*.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 -607985949695017/562949953421312 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 (sin.f64 (*.f64 phi #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 (PI.f64) phi) #s(literal 1/2 binary64))))) (cos.f64 (*.f64 (+.f64 (+.f64 (PI.f64) phi) phi) #s(literal 1/4 binary64)))) alpha) k) 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 -5764607523034235/144115188075855872 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 1/4 binary64)))) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (+.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))) (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 phi #s(literal 1/2 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (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 -5/2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi #s(literal 1/2 binary64))) (sin.f64 (*.f64 (-.f64 (PI.f64) phi) #s(literal 1/2 binary64))))) (cos.f64 (*.f64 (+.f64 (+.f64 (PI.f64) phi) phi) #s(literal 1/4 binary64)))) alpha) k) gfi)) (/.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi #s(literal 1/2 binary64))) (cos.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)))))
(*.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 (sin.f64 (*.f64 phi #s(literal 1/2 binary64))) (cos.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))))
(*.f64 (-.f64 (atan.f64 (*.f64 (/.f64 k gfi) (pow.f64 (*.f64 (/.f64 (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))) (cos.f64 (*.f64 (+.f64 (+.f64 (PI.f64) phi) phi) #s(literal 1/4 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 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) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -5404319552844595/4503599627370496 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -5764607523034235/576460752303423488 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 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 3805541685128069/4503599627370496 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 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.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))))))
(if.f64 (<=.f64 alpha #s(literal 8400000000000000179244610834139185152 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (tan.f64 (+.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 13/4 binary64) (PI.f64)))) alpha)) gfi)) (/.f64 (PI.f64) #s(literal 4 binary64)))) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)))
(if.f64 (<=.f64 gfi #s(literal 8424983333484575/842498333348457493583344221469363458551160763204392890034487820288 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (tan.f64 (+.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 13/4 binary64) (PI.f64)))) alpha)) gfi)) (/.f64 (PI.f64) #s(literal 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 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.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) phidp))) (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp))))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp))))))))
(log.f64 (/.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 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (cos.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (*.f64 (cos.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))
(log.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (cos.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) #s(literal -1 binary64))) (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (cos.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))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64)))) (cos.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))
(log.f64 (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (cos.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))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64)))) (cos.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))
(if.f64 (<=.f64 phidp #s(literal 6189700196426901/618970019642690137449562112 binary64)) (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (+.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (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 (fabs.f64 (/.f64 #s(literal -1 binary64) (+.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (sin.f64 (neg.f64 (*.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 -3602879701896397/72057594037927936 binary64)) (+.f64 (log.f64 (fabs.f64 (cos.f64 (+.f64 (-.f64 (+.f64 (PI.f64) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 phidp #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (+.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (sin.f64 (neg.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))))) (log.f64 (*.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))) #s(literal -1 binary64))) (*.f64 (cos.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))))
(log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (*.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))
(log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)))) (*.f64 (cos.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (*.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))
(log.f64 (/.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 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (*.f64 (*.f64 (cos.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (*.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))
(log.f64 (/.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))) (cos.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (*.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))
(log.f64 (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (*.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal -3602879701896397/72057594037927936 binary64)) (+.f64 (log.f64 (fabs.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) phidp))) (*.f64 (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) (log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal 1/4 binary64)))) #s(literal -1 binary64)))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal -3602879701896397/72057594037927936 binary64)) (+.f64 (log.f64 (fabs.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (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) (pow.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal 1/4 binary64)))) #s(literal -1 binary64)))))
(log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (fabs.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 phidp #s(literal 2000000 binary64)) (log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal 1/4 binary64))) #s(literal -1 binary64)))) (log.f64 (fabs.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal 1/4 binary64)) #s(literal -1 binary64)))))))
(log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal 1/4 binary64)))) #s(literal -1 binary64))))
(if.f64 (<=.f64 phidp #s(literal 6490371073168535/649037107316853453566312041152512 binary64)) (log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal 1/4 binary64))) #s(literal -1 binary64)))) (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal 1/4 binary64))))))
(if.f64 (<=.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)) #s(literal 7074237752033409/9007199254740992 binary64)) (log.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (*.f64 phidp #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)) (PI.f64)))) (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal 1/4 binary64))))))
(if.f64 (<=.f64 phidp #s(literal 2636713248474717/20282409603651670423947251286016 binary64)) (log.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phidp #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)))) (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal 1/4 binary64))))))
(log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal 1/4 binary64)))))
(log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal 1/4 binary64))))
(log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi))))) (*.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi))))))))
(log.f64 (/.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 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (*.f64 (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))
(log.f64 (/.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) #s(literal -1 binary64))) (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (cos.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))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))) (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))
(log.f64 (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (cos.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))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))) (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))
(if.f64 (<=.f64 phi #s(literal 6189700196426901/618970019642690137449562112 binary64)) (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (+.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (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 (fabs.f64 (/.f64 #s(literal -1 binary64) (+.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (neg.f64 (*.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 -3602879701896397/72057594037927936 binary64)) (+.f64 (log.f64 (fabs.f64 (cos.f64 (+.f64 (-.f64 (+.f64 (PI.f64) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 phi #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (+.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (neg.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))))) (log.f64 (*.f64 (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (*.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))) #s(literal -1 binary64))) (*.f64 (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))))
(log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (/.f64 #s(literal 1 binary64) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (*.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))
(log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)))) (*.f64 (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (*.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))
(log.f64 (/.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 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (*.f64 (*.f64 (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (*.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))
(log.f64 (/.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))) (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (*.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))
(log.f64 (/.f64 (*.f64 (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (-.f64 (*.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal -3602879701896397/72057594037927936 binary64)) (+.f64 (log.f64 (fabs.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) phi))) (*.f64 (sin.f64 (*.f64 phi #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) (log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)))) #s(literal -1 binary64)))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal -3602879701896397/72057594037927936 binary64)) (+.f64 (log.f64 (fabs.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (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) (pow.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)))) #s(literal -1 binary64)))))
(log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (fabs.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 phi #s(literal 2000000 binary64)) (log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) #s(literal -1 binary64)))) (log.f64 (fabs.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)) #s(literal -1 binary64)))))))
(log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)))) #s(literal -1 binary64))))
(if.f64 (<=.f64 phi #s(literal 6490371073168535/649037107316853453566312041152512 binary64)) (log.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) #s(literal -1 binary64)))) (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))))))
(if.f64 (<=.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)) #s(literal 7074237752033409/9007199254740992 binary64)) (log.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (*.f64 phi #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)) (PI.f64)))) (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))))))
(if.f64 (<=.f64 phi #s(literal 2636713248474717/20282409603651670423947251286016 binary64)) (log.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phi #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)))) (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))))))
(log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)))))
(log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))))
(-.f64 (*.f64 (-.f64 u u0) cosrot) (*.f64 v sinrot))
(+.f64 (*.f64 v cosrot) (*.f64 (-.f64 u u0) sinrot))
(*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) (/.f64 rho0 (pow.f64 (/.f64 (-.f64 (-.f64 (cos.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal -1/4 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) s)) (sqrt.f64 #s(literal 2 binary64)))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 s #s(literal 1/2 binary64))))) (*.f64 #s(literal -2 binary64) (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) (pow.f64 (*.f64 (+.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)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) s)) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal -1/4 binary64))))) n)) rho0)
(/.f64 (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) rho0) (pow.f64 (/.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (sin.f64 (-.f64 (*.f64 s #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) 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 (tan.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64))) n))
(*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) (/.f64 rho0 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64))) n)))
(asin.f64 (-.f64 (*.f64 (sin.f64 phip) cosp0) (*.f64 (*.f64 (cos.f64 lamp) sinp0) (cos.f64 phip))))
(asin.f64 (-.f64 (*.f64 cosp0 (sin.f64 phip)) (*.f64 sinp0 (*.f64 (cos.f64 phip) (cos.f64 lamp)))))
(if.f64 (<=.f64 phi #s(literal -5907687316222771/319334449525555169865019634085894170570792201669673206640407558789953902699034250525593274478821712174294791495070799239035590078142974985718267487725573027251200907672173708242806035431098077949224537079127027838932929672819339262222216842951687065201139345100120966662777359236855041588461568 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 (fabs.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 4253529586511731/1329227995784915872903807060280344576 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 13/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))) (-.f64 (*.f64 (atan.f64 (exp.f64 (-.f64 K (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e) (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(if.f64 (<=.f64 phi #s(literal -5907687316222771/319334449525555169865019634085894170570792201669673206640407558789953902699034250525593274478821712174294791495070799239035590078142974985718267487725573027251200907672173708242806035431098077949224537079127027838932929672819339262222216842951687065201139345100120966662777359236855041588461568 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 (fabs.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 4253529586511731/1329227995784915872903807060280344576 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 13/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))) (-.f64 (*.f64 (atan.f64 (exp.f64 (-.f64 K (*.f64 (-.f64 (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e) (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/4 binary64) (+.f64 (+.f64 phi phi) (PI.f64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(if.f64 (<=.f64 phi #s(literal -5907687316222771/319334449525555169865019634085894170570792201669673206640407558789953902699034250525593274478821712174294791495070799239035590078142974985718267487725573027251200907672173708242806035431098077949224537079127027838932929672819339262222216842951687065201139345100120966662777359236855041588461568 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 (fabs.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 5316911983139663/5316911983139663491615228241121378304 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 13/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))) (-.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 (fabs.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 -5907687316222771/319334449525555169865019634085894170570792201669673206640407558789953902699034250525593274478821712174294791495070799239035590078142974985718267487725573027251200907672173708242806035431098077949224537079127027838932929672819339262222216842951687065201139345100120966662777359236855041588461568 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 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 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 (tan.f64 (-.f64 (*.f64 #s(literal 13/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))))
(-.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 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(asin.f64 (/.f64 (-.f64 (*.f64 (*.f64 ca one_es) (sin.f64 phi)) (*.f64 sa (*.f64 (cos.f64 phi) (sin.f64 lamt)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (pow.f64 (sin.f64 phi) #s(literal 2 binary64)))))))
(asin.f64 (/.f64 (-.f64 (*.f64 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 sa (*.f64 (cos.f64 phi) (sin.f64 lamt)))) (sqrt.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64)))))
(asin.f64 (/.f64 (-.f64 (*.f64 one_es (*.f64 ca (sin.f64 phi))) (*.f64 sa (*.f64 (cos.f64 phi) (sin.f64 lamt)))) (sqrt.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64)))))
(asin.f64 (*.f64 (/.f64 (sin.f64 lamp) (cos.f64 phipp)) cp))
(asin.f64 (*.f64 (/.f64 cp (cos.f64 phipp)) (sin.f64 lamp)))
(*.f64 #s(literal 1/2 binary64) (+.f64 W (/.f64 #s(literal 1 binary64) W)))
(*.f64 #s(literal 1/2 binary64) (-.f64 W (/.f64 #s(literal 1 binary64) W)))
(pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 phi)))) (*.f64 #s(literal 1/2 binary64) (*.f64 alpha evar)))
(-.f64 (log.f64 (fabs.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) ecc)) (*.f64 (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)) (*.f64 (sin.f64 phi) ecc))))) (*.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) #s(literal 2 binary64)))
(*.f64 #s(literal 1/2 binary64) (log.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) ecc))) #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)
(/.f64 E_var (pow.f64 tsfn_phi B))
(if.f64 (<=.f64 S #s(literal 199999999999999998644189734872325595292341688388812800 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)
(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 (*.f64 (sinh.f64 Ce) (sinh.f64 Ce)) (pow.f64 (cos.f64 Cn) #s(literal 2 binary64)))))
(atan2.f64 (sin.f64 Cn) (sqrt.f64 (-.f64 (pow.f64 (sinh.f64 Ce) #s(literal 2 binary64)) (-.f64 #s(literal -1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))))))
(atan2.f64 (sinh.f64 Ce) (cos.f64 Cn))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (+.f64 (-.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 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn))) (/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (/.f64 #s(literal 2 binary64) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal -1 binary64))))))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn))) (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal -1 binary64)) (*.f64 (-.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal -1 binary64)) #s(literal 1/4 binary64)))))))
(*.f64 (cos.f64 Cn) (/.f64 (sin.f64 lam) (sqrt.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (pow.f64 (cos.f64 lam) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn))))))))
(*.f64 (cos.f64 Cn) (/.f64 (sin.f64 lam) (sqrt.f64 (+.f64 (pow.f64 (*.f64 (cos.f64 lam) (cos.f64 Cn)) #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn))))))))
(*.f64 (cos.f64 Cn) (/.f64 (sin.f64 lam) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal 1/2 binary64)) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal -1 binary64)) #s(literal 1/2 binary64))))))))
(*.f64 (cos.f64 Cn) (/.f64 (sin.f64 lam) (sqrt.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal -1 binary64))) (-.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal -1 binary64))) (-.f64 (*.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))))))
(atan2.f64 (sin.f64 Cn) (*.f64 (cos.f64 Cn) (cos.f64 lam)))
(if.f64 (<=.f64 (-.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hr) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)) #s(literal -3618502788666131/1809251394333065553493296640760748560207343510400633813116524750123642650624 binary64)) (-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)) (-.f64 (*.f64 (*.f64 hr sin_arg_r) cosh_arg_i) (*.f64 (*.f64 hi cos_arg_r) sinh_arg_i)))
(if.f64 (<=.f64 (-.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hr) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)) #s(literal -6455624695217271/161390617380431786853494948250188242145606612051826469551916209783790476376052574664352834580008614464743948248296718336 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 sinh_arg_i #s(literal 2438866054934369/24388660549343689307668728357759111763660922989570087116087163747073216709529418907189891430183531024686147899385989241370687309994439728955392 binary64)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.f64 (*.f64 hr sinh_arg_i) cos_arg_r)) (+.f64 (*.f64 (*.f64 hi cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr)))
(if.f64 (<=.f64 sin_arg_r #s(literal -19999999999999998911504619740856320 binary64)) (+.f64 (*.f64 (*.f64 hi cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr)))
(+.f64 (*.f64 (*.f64 hi cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr))
(if.f64 (>.f64 (fabs.f64 (cos.f64 phi)) #s(literal 1/10000000000 binary64)) (tan.f64 phi) #s(literal 0 binary64))
(*.f64 (/.f64 (cos.f64 phi) (sqrt.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64)))) lam)
(/.f64 (*.f64 (sqrt.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64))) x) k0)