(if.f64 (<=.f64 (cos.f64 (+.f64 phi0 (/.f64 y esp))) #s(literal 1261007895663739/9007199254740992 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (cos.f64 (+.f64 (+.f64 (+.f64 (/.f64 y esp) phi0) (PI.f64)) (PI.f64)))) #s(literal 0 binary64))) (atan2.f64 g (cos.f64 (+.f64 (+.f64 (+.f64 (/.f64 y esp) phi0) (PI.f64)) (PI.f64)))) #s(literal 0 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (/.f64 y esp))) (cos.f64 phi0)) (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (/.f64 y esp))) (sin.f64 phi0)))) #s(literal 0 binary64))) (atan2.f64 g (-.f64 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (/.f64 y esp))) (cos.f64 phi0)) (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (/.f64 y esp))) (sin.f64 phi0)))) #s(literal 0 binary64)))
(if.f64 (<=.f64 (cos.f64 (+.f64 phi0 (/.f64 y esp))) #s(literal 6034823500676465/9007199254740992 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (/.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 phi0 (/.f64 y esp)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (/.f64 y esp) phi0))) (sin.f64 (+.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 (/.f64 y esp) phi0)) (/.f64 y esp)) phi0))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 (/.f64 y esp) phi0))))) #s(literal 0 binary64))) (atan2.f64 g (/.f64 (/.f64 (+.f64 (sin.f64 (-.f64 (+.f64 (-.f64 phi0 (/.f64 y esp)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 (/.f64 y esp) phi0))) (sin.f64 (+.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 (/.f64 y esp) phi0)) (/.f64 y esp)) phi0))) #s(literal 2 binary64)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (-.f64 (/.f64 y esp) phi0))))) #s(literal 0 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (+.f64 (*.f64 #s(literal -1 binary64) (cos.f64 (+.f64 (+.f64 (/.f64 y esp) phi0) (PI.f64)))) (*.f64 (sin.f64 (-.f64 (/.f64 (neg.f64 y) esp) phi0)) (sin.f64 (neg.f64 (PI.f64)))))) #s(literal 0 binary64))) (atan2.f64 g (+.f64 (*.f64 #s(literal -1 binary64) (cos.f64 (+.f64 (+.f64 (/.f64 y esp) phi0) (PI.f64)))) (*.f64 (sin.f64 (-.f64 (/.f64 (neg.f64 y) esp) phi0)) (sin.f64 (neg.f64 (PI.f64)))))) #s(literal 0 binary64)))
(if.f64 (<=.f64 (cos.f64 (+.f64 phi0 (/.f64 y esp))) #s(literal -3602879701896397/36028797018963968 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 #s(literal -1 binary64) (cos.f64 (+.f64 (+.f64 (/.f64 y esp) phi0) (PI.f64)))) (*.f64 (sin.f64 (-.f64 (/.f64 (neg.f64 y) esp) phi0)) (sin.f64 (neg.f64 (PI.f64)))))) #s(literal 0 binary64))) (atan2.f64 g (+.f64 (*.f64 #s(literal -1 binary64) (cos.f64 (+.f64 (+.f64 (/.f64 y esp) phi0) (PI.f64)))) (*.f64 (sin.f64 (-.f64 (/.f64 (neg.f64 y) esp) phi0)) (sin.f64 (neg.f64 (PI.f64)))))) #s(literal 0 binary64)))
(if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (cos.f64 (+.f64 (+.f64 (+.f64 (/.f64 y esp) phi0) (PI.f64)) (PI.f64)))) #s(literal 0 binary64))) (atan2.f64 g (cos.f64 (+.f64 (+.f64 (+.f64 (/.f64 y esp) phi0) (PI.f64)) (PI.f64)))) #s(literal 0 binary64))
(if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (cos.f64 (+.f64 phi0 (/.f64 y esp)))) #s(literal 0 binary64))) (atan2.f64 g (cos.f64 (+.f64 phi0 (/.f64 y esp)))) #s(literal 0 binary64))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (/.f64 y esp) phi0)) (asin.f64 (/.f64 (fabs.f64 (+.f64 (*.f64 (sin.f64 (/.f64 y esp)) (cos.f64 phi0)) (*.f64 (cos.f64 (/.f64 y esp)) (sin.f64 phi0)))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 g g)))))))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 esp y)) phi0)) (asin.f64 (/.f64 (fabs.f64 (sin.f64 (+.f64 (/.f64 #s(literal 1 binary64) (/.f64 esp y)) phi0))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 g 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 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 g g)))))))
(sinh.f64 (/.f64 x esp))
(/.f64 (*.f64 (cos.f64 phi) (cos.f64 lam)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi phi))))))))
(*.f64 (/.f64 (cos.f64 lam) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi phi)))))))) (cos.f64 phi))
(*.f64 (cos.f64 lam) (/.f64 (cos.f64 phi) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi phi)))))))))
(*.f64 (*.f64 (cos.f64 lam) (cos.f64 phi)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 lam lam))))) #s(literal 1/4 binary64)))))))
(*.f64 (cos.f64 lam) (*.f64 (cos.f64 phi) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 lam lam))))) #s(literal 1/4 binary64))))))))
(*.f64 (cos.f64 lam) (/.f64 (cos.f64 phi) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 lam lam))))) #s(literal 1/4 binary64)))))))
(*.f64 (cos.f64 phi) (/.f64 (cos.f64 lam) (sqrt.f64 (-.f64 #s(literal 3/4 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal -2 binary64) (+.f64 lam phi))) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))))
(*.f64 (cos.f64 lam) (/.f64 (cos.f64 phi) (sqrt.f64 (-.f64 #s(literal 3/4 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal -2 binary64) (+.f64 lam phi))) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))))
(/.f64 (pow.f64 (cos.f64 phi) #s(literal 2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 lam phi))))) #s(literal 1/4 binary64))))))
(/.f64 (*.f64 (+.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 1/4 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 lam phi))))) #s(literal 1/4 binary64))))))
(*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal -1 binary64)) (/.f64 #s(literal 1/2 binary64) (sqrt.f64 (-.f64 #s(literal 3/4 binary64) (*.f64 #s(literal -1/4 binary64) (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal -2 binary64) (+.f64 lam phi))) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))))
(+.f64 (*.f64 (log.f64 (fabs.f64 (-.f64 b (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) b) b) #s(literal -1 binary64))))) ml0) (*.f64 (*.f64 #s(literal -2 binary64) (log.f64 (fabs.f64 (-.f64 b #s(literal 1 binary64))))) ml0))
(*.f64 ml0 (-.f64 (log.f64 (fabs.f64 (-.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) b) b) #s(literal -1 binary64)) b))) (*.f64 #s(literal 2 binary64) (log.f64 (fabs.f64 (-.f64 b #s(literal 1 binary64)))))))
(*.f64 ml0 (neg.f64 (log.f64 (/.f64 (-.f64 b #s(literal 1 binary64)) (-.f64 #s(literal -1 binary64) b)))))
(*.f64 ml0 (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) b) (-.f64 #s(literal 1 binary64) b))))
(*.f64 (cos.f64 phi) (sin.f64 lam))
(pow.f64 one_es #s(literal 3 binary64))
(*.f64 one_es (*.f64 one_es one_es))
(-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 ca es) ca)) rone_es) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 ca es) ca)) rone_es)) #s(literal 1 binary64))
(-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (*.f64 ca ca))) rone_es) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (*.f64 ca ca))) rone_es)) #s(literal 1 binary64))
(-.f64 (*.f64 (*.f64 (*.f64 rone_es (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 ca ca) es))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 ca ca) es))) rone_es) #s(literal 1 binary64))
(*.f64 (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) rone_es) (*.f64 (*.f64 rone_es sa) es))
(if.f64 (<=.f64 es #s(literal -20 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) rone_es) sa) es) rone_es) (if.f64 (<=.f64 es #s(literal 6640827866535439/73786976294838206464 binary64)) (*.f64 sa (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) rone_es) (*.f64 rone_es es))) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) rone_es) sa) es) rone_es)))
(*.f64 (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) rone_es) (*.f64 (*.f64 rone_es es) sa))
(if.f64 (<=.f64 rone_es #s(literal 5999999999999999565511246423817943898315849897584188751130734742173316640592582618169164693504 binary64)) (*.f64 (*.f64 (*.f64 sa (*.f64 rone_es (-.f64 #s(literal 2 binary64) es))) rone_es) (*.f64 sa es)) (*.f64 sa (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) rone_es) (*.f64 rone_es es))))
(if.f64 (<=.f64 es #s(literal 79999999999999999451185522875761703581273554944 binary64)) (*.f64 sa (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) rone_es) (*.f64 rone_es es))) (*.f64 (*.f64 (*.f64 sa es) (*.f64 (*.f64 rone_es sa) rone_es)) (-.f64 #s(literal 2 binary64) es)))
(if.f64 (<=.f64 (*.f64 (*.f64 es (*.f64 sa sa)) (*.f64 (-.f64 #s(literal 2 binary64) es) (*.f64 rone_es rone_es))) #s(literal -4606887725612233/921377545122446619199598286374089084696513969828232526459034741270904336521520715841339532514076847544303802497745079321233052888165232576308943909041185557531590656 binary64)) (*.f64 (*.f64 (*.f64 rone_es (*.f64 (*.f64 sa sa) es)) (-.f64 #s(literal 2 binary64) es)) rone_es) (*.f64 sa (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) rone_es) (*.f64 rone_es es))))
(*.f64 sa (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) rone_es) (*.f64 rone_es es)))
(if.f64 (<=.f64 (*.f64 sa sa) #s(literal 152270531428125/304541062856249971261043199621099634714882089299843985214622076787904646586450815702050470808812820600790778632231520880733099058287596688955562103009770419360352428123639782183462176734064176511024987296225574339802674935168589842054573862983405175400866837597008673346307143437247315968 binary64)) (*.f64 sa (*.f64 es (*.f64 (*.f64 sa (*.f64 rone_es (-.f64 #s(literal 2 binary64) es))) rone_es))) (*.f64 sa (*.f64 sa (*.f64 (*.f64 es rone_es) (*.f64 rone_es (-.f64 #s(literal 2 binary64) es))))))
(*.f64 sa (*.f64 es (*.f64 (*.f64 sa (*.f64 rone_es (-.f64 #s(literal 2 binary64) es))) rone_es)))
(*.f64 (*.f64 n0 (/.f64 k0 (sin.f64 #s(literal 27401669256311/20000000000000 binary64)))) (sin.f64 (+.f64 #s(literal 27401669256311/20000000000000 binary64) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(*.f64 (/.f64 k0 (tan.f64 (+.f64 (+.f64 (-.f64 (PI.f64) (-.f64 #s(literal -27401669256311/20000000000000 binary64) (PI.f64))) (PI.f64)) (PI.f64)))) n0)
(*.f64 (*.f64 (neg.f64 n0) (tan.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal -27401669256311/20000000000000 binary64)))) k0)
(*.f64 (*.f64 k0 (tan.f64 (-.f64 #s(literal -27401669256311/20000000000000 binary64) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) n0)
(/.f64 (*.f64 k0 n0) (tan.f64 #s(literal 27401669256311/20000000000000 binary64)))
(*.f64 (/.f64 n0 (tan.f64 #s(literal 27401669256311/20000000000000 binary64))) k0)
(*.f64 (/.f64 k0 (tan.f64 #s(literal 27401669256311/20000000000000 binary64))) n0)
(*.f64 (/.f64 #s(literal -1 binary64) (-.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi0 phi0))) #s(literal 1/2 binary64)) es))) (sqrt.f64 (-.f64 #s(literal 1 binary64) es)))
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) es)) (-.f64 (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi0 phi0))) #s(literal 1/2 binary64)) es) #s(literal -1 binary64)))
(if.f64 (<=.f64 phi0 #s(literal 8158279569665543/33992831540273094316133645219357992149093959534530043084764424844825827831094543535306400144974674282808917087119776064982181077609773263322209278641061590524405201333465166018030600192 binary64)) (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (/.f64 (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) alpha)) (if.f64 (<=.f64 phi0 #s(literal 237684487542793/79228162514264337593543950336 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (tan.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) alpha) g) (tan.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 (/.f64 (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) alpha))))
(if.f64 (<=.f64 alpha #s(literal 4986819005910345/75557863725914323419136 binary64)) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) (neg.f64 alpha)) (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g)) (if.f64 (<=.f64 alpha #s(literal 1800000000000000131601387929858734628009087164267569126076027723994002360028027133375654138258943342801699238399455736256028250248894374804069844348551253902790750368976996525204124308401383858066601927273086976 binary64)) (*.f64 (pow.f64 (/.f64 (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))) (neg.f64 alpha)) (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) g)) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))))) (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (neg.f64 alpha)) (*.f64 (/.f64 #s(literal 1 binary64) (tan.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) g))))
(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 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (+.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) alpha)) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) (neg.f64 alpha)) (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 (PI.f64) u0) u0) #s(literal 1/4 binary64))) g)))
(if.f64 (<=.f64 alpha #s(literal 1699999999999999947428557401050562764789319575978010260468525717849236002592159234256066743064260202215969047615812901902745600 binary64)) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) (neg.f64 alpha)) (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g)) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))))) (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (neg.f64 alpha)) (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g)))
(if.f64 (<=.f64 alpha #s(literal 1699999999999999947428557401050562764789319575978010260468525717849236002592159234256066743064260202215969047615812901902745600 binary64)) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) (neg.f64 alpha)) (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g)) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))))) (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (neg.f64 alpha)) (*.f64 (/.f64 #s(literal 1 binary64) (tan.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) g)))
(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 3602879701896397/4503599627370496 binary64)) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))))) (cos.f64 (*.f64 (+.f64 (+.f64 (PI.f64) u0) u0) #s(literal 1/4 binary64)))) (neg.f64 alpha)) (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g)) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) (neg.f64 alpha)) (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g)))
(if.f64 (<=.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha) #s(literal 0 binary64)) (*.f64 (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (tan.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) (neg.f64 alpha)) (tan.f64 (*.f64 (+.f64 (+.f64 phi0 (PI.f64)) phi0) #s(literal 1/4 binary64)))) g) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))))) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)))) (neg.f64 alpha)) (*.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g)))
(if.f64 (<=.f64 (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha)) #s(literal -499999999999999990079578960260221425096554759926423605900012855280825179991269042612044308093073246922143074698610725186309660447719446848973826083227612667029686373206874073603221710445876270310293765181110136931503450775547995353849221420762954771236422294344040540188066309300289536 binary64)) (*.f64 g (*.f64 (/.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))))) (pow.f64 (/.f64 #s(literal 1 binary64) (tan.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) (neg.f64 alpha)))) (if.f64 (<=.f64 (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha)) #s(literal 9999999999999999213782878444176341486712719163258207029349796604673073768736360688744211624391338142173265718425108901184740478000812045911233791501695173449709921389782217629235579129702792695009666351450002856415308090320884466574359759805482716570229159677380024223137792 binary64)) (/.f64 (*.f64 (sin.f64 (*.f64 (+.f64 (*.f64 u0 #s(literal 2 binary64)) (PI.f64)) #s(literal 1/4 binary64))) (*.f64 g (pow.f64 (tan.f64 (*.f64 (+.f64 (*.f64 phi0 #s(literal 2 binary64)) (PI.f64)) #s(literal 1/4 binary64))) (neg.f64 alpha)))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 u0 #s(literal 1/2 binary64)))))) (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (tan.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) alpha) g) (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)))))))
(if.f64 (<=.f64 (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha)) #s(literal -499999999999999990079578960260221425096554759926423605900012855280825179991269042612044308093073246922143074698610725186309660447719446848973826083227612667029686373206874073603221710445876270310293765181110136931503450775547995353849221420762954771236422294344040540188066309300289536 binary64)) (*.f64 (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (tan.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) (neg.f64 alpha)) (tan.f64 (*.f64 (+.f64 (+.f64 phi0 (PI.f64)) phi0) #s(literal 1/4 binary64)))) g) (if.f64 (<=.f64 (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha)) #s(literal 9999999999999999213782878444176341486712719163258207029349796604673073768736360688744211624391338142173265718425108901184740478000812045911233791501695173449709921389782217629235579129702792695009666351450002856415308090320884466574359759805482716570229159677380024223137792 binary64)) (/.f64 (*.f64 (sin.f64 (*.f64 (+.f64 (*.f64 u0 #s(literal 2 binary64)) (PI.f64)) #s(literal 1/4 binary64))) (*.f64 g (pow.f64 (tan.f64 (*.f64 (+.f64 (*.f64 phi0 #s(literal 2 binary64)) (PI.f64)) #s(literal 1/4 binary64))) (neg.f64 alpha)))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 u0 #s(literal 1/2 binary64)))))) (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (tan.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) alpha) g) (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)))))))
(if.f64 (<=.f64 (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha)) #s(literal -999999999999999929757289024535551219930759168 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (tan.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) alpha) g) (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))))) (if.f64 (<=.f64 (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha)) #s(literal 500000000000000023376909442728063994594802715665205143420682436372008219697277947305184129090151668469538444067022475144663084092331215165737156638708489908193694639932318967793498760119176155511330039146864335692596466630531151717376319013390688774370983942319641722880 binary64)) (*.f64 g (*.f64 (/.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))))) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi0 (PI.f64)) phi0) #s(literal 1/4 binary64))) (neg.f64 alpha)))) (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (tan.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) alpha) g) (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)))))))
(if.f64 (<=.f64 (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha)) #s(literal -499999999999999990079578960260221425096554759926423605900012855280825179991269042612044308093073246922143074698610725186309660447719446848973826083227612667029686373206874073603221710445876270310293765181110136931503450775547995353849221420762954771236422294344040540188066309300289536 binary64)) (*.f64 (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (tan.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) (neg.f64 alpha)) (tan.f64 (*.f64 (+.f64 (+.f64 phi0 (PI.f64)) phi0) #s(literal 1/4 binary64)))) g) (if.f64 (<=.f64 (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha)) #s(literal 49999999999999996231174218676980242530224466978961762601305327424495174139733038646250984711634202512664485115581272824171827637653339436220866895089029739165367697530233734863997486450265031989402921976551056934000189810184542251067154487752614777886456814711818152920801188793163123882196992 binary64)) (/.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) (/.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) alpha) g)) (/.f64 #s(literal 1 binary64) (/.f64 (/.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (tan.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) alpha) g) (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 0 binary64)) (*.f64 (*.f64 (pow.f64 (/.f64 #s(literal 1 binary64) (tan.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))))) (neg.f64 alpha)) (tan.f64 (*.f64 (+.f64 (+.f64 phi0 (PI.f64)) phi0) #s(literal 1/4 binary64)))) g) (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 +inf.0 binary64)) (/.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) (/.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) alpha) g)) (*.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 (PI.f64) u0) u0) #s(literal 1/4 binary64))) (neg.f64 alpha)) (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)))) g)))
(if.f64 (<=.f64 (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha)) #s(literal -inf.0 binary64)) (*.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 (PI.f64) u0) u0) #s(literal 1/4 binary64))) (neg.f64 alpha)) (tan.f64 (*.f64 (+.f64 (+.f64 phi0 (PI.f64)) phi0) #s(literal 1/4 binary64)))) g) (if.f64 (<=.f64 (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha)) #s(literal 49999999999999996231174218676980242530224466978961762601305327424495174139733038646250984711634202512664485115581272824171827637653339436220866895089029739165367697530233734863997486450265031989402921976551056934000189810184542251067154487752614777886456814711818152920801188793163123882196992 binary64)) (/.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) (/.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) alpha) g)) (*.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 (PI.f64) u0) u0) #s(literal 1/4 binary64))) (neg.f64 alpha)) (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)))) g)))
(if.f64 (<=.f64 (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha)) #s(literal -inf.0 binary64)) (*.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 (PI.f64) u0) u0) #s(literal 1/4 binary64))) (neg.f64 alpha)) (tan.f64 (*.f64 (+.f64 (+.f64 phi0 (PI.f64)) phi0) #s(literal 1/4 binary64)))) g) (if.f64 (<=.f64 (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha)) #s(literal 290432989937067/580865979874134008905493163339804906301273516273200960568660882545289319203282958416081372850061074449140126480544130097833822361540978792105793195743122900696472984549789013258861878841522553464937185852481030158620214338624171909436366773573694563676580119318024965946783339380736 binary64)) (*.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) (neg.f64 alpha)) (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)))) g) (*.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 (PI.f64) u0) u0) #s(literal 1/4 binary64))) (neg.f64 alpha)) (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)))) g)))
(if.f64 (<=.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha) #s(literal 0 binary64)) (*.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 (PI.f64) u0) u0) #s(literal 1/4 binary64))) (neg.f64 alpha)) (tan.f64 (*.f64 (+.f64 (+.f64 phi0 (PI.f64)) phi0) #s(literal 1/4 binary64)))) g) (*.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) (neg.f64 alpha)) (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)))) g))
(*.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) (neg.f64 alpha)) (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)))) g)
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) (+.f64 (neg.f64 alpha) #s(literal 1 binary64))) g)))
(*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) (+.f64 (neg.f64 alpha) #s(literal 1 binary64))) g)
(sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 es (pow.f64 (cos.f64 phi0) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) es))))
(if.f64 (<=.f64 lam #s(literal 1849999999999999885896617198243637275580694528 binary64)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))))))) (*.f64 (*.f64 (*.f64 sa p22) (cos.f64 lam)) (/.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 q (sin.f64 lam)) (sin.f64 lam)))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))))))))
(if.f64 (<=.f64 lam #s(literal 8239728901483491/316912650057057350374175801344 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 w (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 q (sin.f64 lam)) (sin.f64 lam))))))))) (*.f64 (*.f64 (*.f64 sa p22) (cos.f64 lam)) (/.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 q (sin.f64 lam)) (sin.f64 lam)))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))))))))
(if.f64 (<=.f64 lam #s(literal 8239728901483491/316912650057057350374175801344 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 w (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))))))) (*.f64 (*.f64 (*.f64 sa p22) (cos.f64 lam)) (/.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 q (sin.f64 lam)) (sin.f64 lam)))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))))))))
(*.f64 (*.f64 (*.f64 sa p22) (cos.f64 lam)) (/.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 q (sin.f64 lam)) (sin.f64 lam)))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))))))))
(if.f64 (<=.f64 lam #s(literal 7272897730801609/309485009821345068724781056 binary64)) (*.f64 (cos.f64 lam) (*.f64 (*.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 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (sin.f64 lam)) (sin.f64 lam)))))) p22) sa)) (*.f64 (*.f64 (*.f64 sa p22) (cos.f64 lam)) (/.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 q #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam))))))))
(if.f64 (<=.f64 lam #s(literal 1849999999999999885896617198243637275580694528 binary64)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1/2 binary64))))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1/2 binary64))))) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 q (sin.f64 lam)) (sin.f64 lam))))))))) (*.f64 (*.f64 (*.f64 sa p22) (cos.f64 lam)) (/.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 q #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))))))))
(*.f64 (*.f64 (*.f64 sa p22) (cos.f64 lam)) (/.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 q #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))))))))
(*.f64 sa (*.f64 (*.f64 (cos.f64 lam) p22) (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)))))))
(*.f64 sa (*.f64 (*.f64 (cos.f64 lam) p22) (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))))))))
(*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1/2 binary64))) t) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 w #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))))))))))
(*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64)) t) #s(literal -1 binary64)) (-.f64 (*.f64 q (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64))) #s(literal -1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 w (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64))))))))))
(*.f64 (*.f64 (*.f64 sa p22) (cos.f64 lam)) (sqrt.f64 (/.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 q #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))))) (-.f64 (*.f64 (*.f64 w #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)))))
(*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64)) t) #s(literal -1 binary64)) (-.f64 (*.f64 q (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (-.f64 (*.f64 w (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64))) #s(literal -1 binary64)))))))
(*.f64 (*.f64 (*.f64 sa p22) (cos.f64 lam)) (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64)) t) #s(literal -1 binary64)) (*.f64 (-.f64 (*.f64 q (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (-.f64 (*.f64 w (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64))) #s(literal -1 binary64))))))
(*.f64 (cos.f64 lam) (*.f64 (*.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 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))))))) p22) sa))
(*.f64 sa (*.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 (*.f64 (*.f64 q #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 w #s(literal 1/2 binary64)) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)))))))
(*.f64 p22 (*.f64 (*.f64 sa (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64)) t) #s(literal -1 binary64)) (*.f64 (-.f64 (*.f64 q (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (-.f64 (*.f64 w (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64))) #s(literal -1 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)))
(*.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 (*.f64 w (sin.f64 lam)) (sin.f64 lam))))) (-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (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)))) (*.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 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (pow.f64 (sin.f64 lam) #s(literal 2 binary64)) q) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64))) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 (*.f64 (pow.f64 (sin.f64 lam) #s(literal 2 binary64)) q) #s(literal -1 binary64)) (-.f64 (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64))) #s(literal -1 binary64)))))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam))))) (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 w (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam))))) #s(literal -1 binary64))) (*.f64 p22 ca)))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (-.f64 (/.f64 (/.f64 (-.f64 (*.f64 w (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64)) q) #s(literal -1 binary64))) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64)) q) #s(literal -1 binary64))) (*.f64 p22 ca)))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64)) q) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64)) q) #s(literal -1 binary64)) (-.f64 (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam)) #s(literal -1 binary64)))))
(*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64)) q) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (-.f64 (/.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) (*.f64 #s(literal 1/2 binary64) q)))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) (*.f64 #s(literal 1/2 binary64) q)) #s(literal -1 binary64))) (*.f64 p22 ca)))
(*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64)) q) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))) (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) (*.f64 #s(literal 1/2 binary64) q)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 p22 ca)))
(*.f64 (-.f64 (/.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) (*.f64 #s(literal 1/2 binary64) q)))) (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) (*.f64 #s(literal 1/2 binary64) q)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64)) q) #s(literal -1 binary64)) (-.f64 (*.f64 w (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64))) #s(literal -1 binary64)))))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64)) q) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 w (*.f64 (-.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 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) (*.f64 #s(literal 1/2 binary64) q)) #s(literal -1 binary64)) (/.f64 #s(literal -1 binary64) (-.f64 #s(literal -1 binary64) (*.f64 (+.f64 (*.f64 w #s(literal 1 binary64)) (*.f64 w (neg.f64 (cos.f64 (+.f64 lam lam))))) #s(literal 1/2 binary64)))))))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64)) q) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 w (*.f64 (-.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 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) (*.f64 #s(literal 1/2 binary64) q)) #s(literal -1 binary64)) (/.f64 #s(literal -1 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 (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64)) q) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (+.f64 (*.f64 w #s(literal 1/2 binary64)) (*.f64 w (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lam lam)))))))) (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) (*.f64 #s(literal 1/2 binary64) q)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 p22 ca)))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64)) q) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 w (*.f64 (-.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 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64)) q) #s(literal -1 binary64)) (-.f64 (*.f64 w (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64))) #s(literal -1 binary64)))))
(*.f64 mult (*.f64 (/.f64 (+.f64 xj h) (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj)))) s))
(*.f64 mult (/.f64 (-.f64 (*.f64 h xj) (*.f64 s s)) (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))
(/.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))) (cos.f64 phi)) (-.f64 (sin.f64 (-.f64 phi #s(literal 0 binary64))) #s(literal -1 binary64)))
(*.f64 (cos.f64 phi) (/.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (*.f64 e #s(literal 1/2 binary64))) (-.f64 (sin.f64 (-.f64 phi #s(literal 0 binary64))) #s(literal -1 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 (+.f64 (+.f64 (*.f64 Yr #s(literal 149230739/1250000000000000 binary64)) (*.f64 Xr #s(literal -4668270147/10000000000000000 binary64))) (+.f64 (+.f64 (+.f64 (*.f64 (*.f64 (+.f64 Xr Yr) #s(literal 304747143/200000000000000000000 binary64)) (-.f64 Xr Yr)) (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) Xr) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr))))) (+.f64 (+.f64 (*.f64 (*.f64 #s(literal 3689471323/250000000000000000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 (+.f64 Xr Yr) (-.f64 Xr Yr))) (+.f64 (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) (*.f64 #s(literal -4165541759/500000000000000000000000000000000 binary64) Xr)))) (*.f64 (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))) #s(literal -4165541759/500000000000000000000000000000000 binary64)) (*.f64 Yr Yr)))) (*.f64 #s(literal 4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)))) #s(literal 9827991/390625000 binary64))
(+.f64 #s(literal 9827991/390625000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Yr) (+.f64 (*.f64 #s(literal -4668270147/10000000000000000 binary64) Xr) (-.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)) (*.f64 (*.f64 #s(literal 4616990181/250000000000000000000 binary64) Xr) Yr)) (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) Xr) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr))))) (-.f64 (-.f64 (*.f64 #s(literal 4165541759/500000000000000000000000000000000 binary64) (+.f64 (*.f64 Yr (*.f64 Yr (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))))) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr))) (*.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 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))))))))
(+.f64 #s(literal 9827991/390625000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Yr) (+.f64 (*.f64 #s(literal -4668270147/10000000000000000 binary64) Xr) (-.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)) (*.f64 #s(literal 4616990181/250000000000000000000 binary64) (*.f64 Xr Yr))) (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) Xr) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr))))) (-.f64 (-.f64 (*.f64 #s(literal 4165541759/500000000000000000000000000000000 binary64) (+.f64 (*.f64 Yr (*.f64 Yr (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))))) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr))) (*.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 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))))))))
(+.f64 #s(literal 9827991/390625000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Yr) (+.f64 (*.f64 #s(literal -4668270147/10000000000000000 binary64) Xr) (-.f64 (+.f64 (+.f64 (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr)) (*.f64 #s(literal 4616990181/250000000000000000000 binary64) (*.f64 Xr Yr))) (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) Xr) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr))))) (-.f64 (-.f64 (*.f64 #s(literal 4165541759/500000000000000000000000000000000 binary64) (+.f64 (*.f64 Yr (*.f64 Yr (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))))) (*.f64 (*.f64 Xr Xr) (*.f64 Xr Xr)))) (*.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 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))))))))
(+.f64 (-.f64 (*.f64 Xr #s(literal 149230739/1250000000000000 binary64)) #s(literal -2946529277/100000000000 binary64)) (+.f64 (-.f64 (*.f64 Yr #s(literal 4668270147/10000000000000000 binary64)) (*.f64 #s(literal 304747143/100000000000000000000 binary64) (*.f64 Yr Xr))) (+.f64 (+.f64 (*.f64 (*.f64 (+.f64 Yr Xr) #s(literal 4616990181/500000000000000000000 binary64)) (-.f64 Xr Yr)) (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Xr) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr))))) (+.f64 (+.f64 (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (+.f64 Yr Xr) (-.f64 Xr Yr))) (+.f64 (*.f64 (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) Yr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (*.f64 (*.f64 (*.f64 #s(literal -3689471323/1000000000000000000000000000000000 binary64) (*.f64 Xr Xr)) Xr) Xr))) (*.f64 (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))) #s(literal -3689471323/1000000000000000000000000000000000 binary64)) (*.f64 Yr Yr))))))
(-.f64 (+.f64 (+.f64 (*.f64 Xr #s(literal 149230739/1250000000000000 binary64)) #s(literal 2946529277/100000000000 binary64)) (*.f64 Yr #s(literal 4668270147/10000000000000000 binary64))) (-.f64 (-.f64 (-.f64 (-.f64 (-.f64 (*.f64 #s(literal 3689471323/1000000000000000000000000000000000 binary64) (+.f64 (*.f64 Yr (*.f64 Yr (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))))) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr))) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Xr Yr) (+.f64 Yr Xr)))) (*.f64 (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) Yr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr)))) (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Xr) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr))))) (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Xr Yr))) (*.f64 #s(literal -304747143/100000000000000000000 binary64) (*.f64 Yr Xr))))
(-.f64 (+.f64 (+.f64 (*.f64 Xr #s(literal 149230739/1250000000000000 binary64)) #s(literal 2946529277/100000000000 binary64)) (*.f64 Yr #s(literal 4668270147/10000000000000000 binary64))) (-.f64 (-.f64 (-.f64 (-.f64 (-.f64 (*.f64 #s(literal 3689471323/1000000000000000000000000000000000 binary64) (+.f64 (*.f64 Yr (*.f64 Yr (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))))) (*.f64 (*.f64 Xr Xr) (*.f64 Xr Xr)))) (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Xr Yr) (+.f64 Yr Xr)))) (*.f64 (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) Yr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr)))) (*.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Xr) (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr))))) (*.f64 (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (+.f64 Yr Xr)) (-.f64 Xr Yr))) (*.f64 #s(literal -304747143/100000000000000000000 binary64) (*.f64 Yr Xr))))
(asin.f64 (+.f64 (*.f64 (cos.f64 ad) (sin.f64 u)) (*.f64 (sin.f64 ad) (*.f64 (cos.f64 u) (cos.f64 deltav)))))
(asin.f64 (-.f64 (*.f64 (sin.f64 s) (cos.f64 ad)) (*.f64 (*.f64 (cos.f64 d) (sin.f64 ad)) (cos.f64 s))))
(asin.f64 (-.f64 (*.f64 (sin.f64 s) (cos.f64 ad)) (*.f64 (*.f64 (cos.f64 d) (cos.f64 s)) (sin.f64 ad))))
(*.f64 (-.f64 (atan.f64 (*.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) (pow.f64 (/.f64 rho0 rho) (/.f64 #s(literal 1 binary64) n)))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))
(/.f64 Esc (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) Up) (-.f64 #s(literal 1 binary64) Up))))
(*.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 #s(literal 1 binary64) Up) (-.f64 #s(literal -1 binary64) Up)))) Esc)
(*.f64 #s(literal 2 binary64) (/.f64 (/.f64 (-.f64 (pow.f64 (pow.f64 (atan.f64 (exp.f64 (/.f64 y kR))) #s(literal 2 binary64)) #s(literal 2 binary64)) (*.f64 (*.f64 (*.f64 (PI.f64) (PI.f64)) (*.f64 (PI.f64) (PI.f64))) #s(literal 1/256 binary64))) (-.f64 (pow.f64 (atan.f64 (exp.f64 (/.f64 y kR))) #s(literal 2 binary64)) (*.f64 #s(literal -1/16 binary64) (*.f64 (PI.f64) (PI.f64))))) (-.f64 (atan.f64 (exp.f64 (/.f64 y kR))) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))
(*.f64 #s(literal 2 binary64) (-.f64 (/.f64 (pow.f64 (atan.f64 (exp.f64 (/.f64 y kR))) #s(literal 2 binary64)) (-.f64 (atan.f64 (exp.f64 (/.f64 y kR))) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (/.f64 (*.f64 #s(literal -1/16 binary64) (*.f64 (PI.f64) (PI.f64))) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (atan.f64 (exp.f64 (/.f64 y kR)))))))
(*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (atan.f64 (exp.f64 (/.f64 y kR))) #s(literal 2 binary64)) (*.f64 #s(literal 1/16 binary64) (*.f64 (PI.f64) (PI.f64)))) (-.f64 (atan.f64 (exp.f64 (/.f64 y kR))) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))
(/.f64 #s(literal 8 binary64) (/.f64 #s(literal -16 binary64) (-.f64 (PI.f64) (*.f64 #s(literal 4 binary64) (atan.f64 (exp.f64 (/.f64 y kR)))))))
(+.f64 (*.f64 (atan.f64 (exp.f64 (/.f64 y kR))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(asin.f64 (+.f64 (*.f64 cosp0 (sin.f64 phipp)) (*.f64 sinp0 (*.f64 (cos.f64 phipp) (cos.f64 lampp)))))
(+.f64 (*.f64 (atan.f64 fac) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(-.f64 (atan.f64 fac) (*.f64 #s(literal 1/8 binary64) (PI.f64)))
(*.f64 (PI.f64) #s(literal 1/4 binary64))
(/.f64 #s(literal 2 binary64) (/.f64 #s(literal 4 binary64) (-.f64 (*.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) u)) (sin.f64 (*.f64 u #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) u)) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 u #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))))) #s(literal 4 binary64)) (PI.f64))))
(*.f64 (*.f64 #s(literal 1/4 binary64) (-.f64 (*.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) u)) (sin.f64 (*.f64 u #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) u)) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 u #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))))) #s(literal 4 binary64)) (PI.f64))) #s(literal 2 binary64))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 1224979098644775/18014398509481984 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) u)) (sin.f64 (*.f64 u #s(literal 1/2 binary64))))) (cos.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)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) u)) (sin.f64 (*.f64 u #s(literal 1/2 binary64))))) (sin.f64 (+.f64 (-.f64 (*.f64 u #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (/.f64 (PI.f64) #s(literal 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))))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)))
(*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) u)) (sin.f64 (*.f64 u #s(literal 1/2 binary64))))) (cos.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 5764607523034235/1152921504606846976 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) alpha)) (pow.f64 k (/.f64 #s(literal -1 binary64) alpha))))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (*.f64 (pow.f64 k (/.f64 #s(literal -1 binary64) alpha)) (*.f64 (pow.f64 (tan.f64 (+.f64 (+.f64 (-.f64 (*.f64 u #s(literal 1/2 binary64)) (-.f64 (*.f64 (PI.f64) #s(literal -1/4 binary64)) (PI.f64))) (PI.f64)) (PI.f64))) (/.f64 #s(literal 1 binary64) alpha)) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 fi))) (-.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 fi)))) (*.f64 #s(literal 1/2 binary64) evar))))) (*.f64 (PI.f64) #s(literal 1/4 binary64)))))
(*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) alpha)) (pow.f64 k (/.f64 #s(literal -1 binary64) alpha))))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))
(if.f64 (<=.f64 (asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 es (*.f64 spp spp)))))) #s(literal 0 binary64)) (asin.f64 (*.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 (*.f64 (/.f64 one_es spp) (/.f64 #s(literal 1 binary64) spp)) one_es) es))) (/.f64 #s(literal 1 binary64) (fabs.f64 spp)))) (if.f64 (<=.f64 (asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 es (*.f64 spp spp)))))) #s(literal 8958978968711217/8958978968711216842229769122273777112486581988938598139599956403855167484720643781523509973086428463104 binary64)) (asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 es (*.f64 spp spp)))))) (asin.f64 (/.f64 spp (*.f64 (sqrt.f64 (fabs.f64 (*.f64 (+.f64 (*.f64 (/.f64 one_es spp) (/.f64 one_es spp)) es) (neg.f64 spp)))) (sqrt.f64 (fabs.f64 spp)))))))
(if.f64 (<=.f64 spp #s(literal 299999999999999998084088103698432 binary64)) (asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 (/.f64 es (/.f64 #s(literal 1 binary64) (fabs.f64 spp))) (fabs.f64 spp)))))) (asin.f64 (*.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 (*.f64 (/.f64 one_es spp) (/.f64 #s(literal 1 binary64) spp)) one_es) es))) (/.f64 #s(literal 1 binary64) (fabs.f64 spp)))))
(if.f64 (<=.f64 spp #s(literal 299999999999999998084088103698432 binary64)) (asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 (/.f64 es (/.f64 #s(literal 1 binary64) (fabs.f64 spp))) (fabs.f64 spp)))))) (asin.f64 (*.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 (/.f64 (/.f64 one_es spp) spp) one_es) es))) (/.f64 #s(literal 1 binary64) (fabs.f64 spp)))))
(if.f64 (<=.f64 spp #s(literal 299999999999999990590098323753926656 binary64)) (asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 (/.f64 es (/.f64 #s(literal 1 binary64) (fabs.f64 spp))) (fabs.f64 spp)))))) (asin.f64 (*.f64 (/.f64 spp (sqrt.f64 (fabs.f64 (+.f64 (*.f64 (/.f64 one_es (*.f64 spp spp)) one_es) es)))) (/.f64 #s(literal 1 binary64) (fabs.f64 spp)))))
(if.f64 (<=.f64 spp #s(literal 299999999999999990590098323753926656 binary64)) (asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 (/.f64 es (/.f64 #s(literal 1 binary64) (fabs.f64 spp))) (fabs.f64 spp)))))) (asin.f64 (/.f64 (/.f64 spp (fabs.f64 spp)) (sqrt.f64 (+.f64 (*.f64 (/.f64 one_es (*.f64 spp spp)) one_es) es)))))
(if.f64 (<=.f64 spp #s(literal 299999999999999990590098323753926656 binary64)) (asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 (*.f64 es spp) spp))))) (asin.f64 (/.f64 (/.f64 spp (fabs.f64 spp)) (sqrt.f64 (+.f64 (*.f64 (/.f64 one_es (*.f64 spp spp)) one_es) es)))))
(if.f64 (<=.f64 spp #s(literal 6338253001141147/1267650600228229401496703205376 binary64)) (asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 (*.f64 es spp) spp))))) (asin.f64 (/.f64 spp (*.f64 (sqrt.f64 (+.f64 (*.f64 (/.f64 one_es (*.f64 spp spp)) one_es) es)) (fabs.f64 spp)))))
(asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 (*.f64 es spp) spp)))))
(asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 es (*.f64 spp spp))))))
(atan.f64 (/.f64 (-.f64 (*.f64 (cos.f64 lamt) (/.f64 (tan.f64 lamdp) one_es)) (*.f64 (/.f64 (sin.f64 lamt) one_es) ca)) sa))
(atan.f64 (/.f64 (/.f64 (-.f64 (*.f64 (cos.f64 lamt) (tan.f64 lamdp)) (*.f64 (sin.f64 lamt) ca)) one_es) sa))
(atan.f64 (*.f64 (/.f64 #s(literal 1 binary64) (*.f64 sa one_es)) (-.f64 (*.f64 (cos.f64 lamt) (tan.f64 lamdp)) (*.f64 (sin.f64 lamt) ca))))
(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 ca (-.f64 #s(literal 1 binary64) (*.f64 rone_es (*.f64 spp spp)))) (tan.f64 lamdp)) (*.f64 (sqrt.f64 (-.f64 (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lamdp lamdp))) (*.f64 #s(literal 1/2 binary64) q)) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 spp spp))) (*.f64 u (*.f64 spp spp)))) (*.f64 sa (/.f64 spp (cos.f64 lamdp))))) (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (*.f64 (-.f64 u #s(literal -1 binary64)) spp) spp) #s(literal 1 binary64)))))
(atan.f64 (/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 spp spp) rone_es)) (*.f64 (tan.f64 lamdp) ca)) (*.f64 (*.f64 (sqrt.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 spp spp)) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lamdp lamdp))) #s(literal 1/2 binary64)) q) #s(literal -1 binary64))) (*.f64 u (*.f64 spp spp)))) sa) (/.f64 spp (cos.f64 lamdp)))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 spp spp) (+.f64 #s(literal 1 binary64) u)))))
(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 +inf.0 binary64)) (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 (*.f64 (/.f64 s xj) xy_y) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) (*.f64 (/.f64 s xj) (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64))))))) b) (*.f64 (-.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (/.f64 #s(literal 1 binary64) xj) (+.f64 (*.f64 s (-.f64 xy_y (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)))) (*.f64 xj xy_x)))) (/.f64 #s(literal -1 binary64) b)))
(if.f64 (<=.f64 xj #s(literal -3500000000000000204315523086631343246577371575800380022422758415604522038519359152177980897936159164779205415424898784377231059714048 binary64)) (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 (*.f64 (/.f64 s xj) xy_y) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) (*.f64 (/.f64 s xj) (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))) b) (if.f64 (<=.f64 xj #s(literal 749999999999999946593531500143775764036129557578397873995013597971981486632335202332966912 binary64)) (/.f64 (+.f64 (/.f64 (-.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64))) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xy_x xj) (*.f64 s xy_y))) xj) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2))) (neg.f64 b)) (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 (*.f64 (/.f64 s xj) xy_y) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) (*.f64 (/.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) xj) s)) b)))
(if.f64 (<=.f64 (-.f64 (-.f64 (-.f64 (+.f64 xy_x (*.f64 xy_y (/.f64 s xj))) (*.f64 a2 (sin.f64 (*.f64 #s(literal 2 binary64) lamdp)))) (*.f64 a4 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)))) (*.f64 (/.f64 s xj) (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))) #s(literal 4999999999999999696267762527682310930020143610058662476595385785661602281506616951421654628720253874218428059028081086289358596871318015265117899420433441387493650720841005520533855126581220452921859901274275799538319841275410916329774556134803974902673017459331286203203802190422979931037452174069071872 binary64)) (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 (*.f64 (/.f64 s xj) xy_y) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) (*.f64 (/.f64 s xj) (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))) b) (*.f64 (-.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (/.f64 #s(literal 1 binary64) xj) (+.f64 (*.f64 s (-.f64 xy_y (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)))) (*.f64 xj xy_x)))) (/.f64 #s(literal -1 binary64) b)))
(/.f64 (-.f64 (+.f64 xy_x (/.f64 (*.f64 s (-.f64 xy_y (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)))) xj)) (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2))) b)
(neg.f64 (*.f64 rB (atan2.f64 (-.f64 (*.f64 Sp cosgam) (*.f64 Vp singam)) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 u BrA))))))
(neg.f64 (*.f64 rB (atan2.f64 (-.f64 (*.f64 Sp cosgam) (*.f64 Vp singam)) (cos.f64 (*.f64 BrA u)))))
(if.f64 (<=.f64 (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))))))) #s(literal +inf.0 binary64)) (exp.f64 (*.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 s s) (*.f64 xj xj)))) (-.f64 xy_y (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64)))))))) (exp.f64 (*.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (/.f64 s xj) s) xj))) (-.f64 xy_y (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp))))))))
(exp.f64 (*.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 (/.f64 s xj) s) xj))) (-.f64 xy_y (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))))
(exp.f64 (*.f64 (-.f64 (-.f64 xy_y (*.f64 (sin.f64 lamdp) c1)) (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3)) (sqrt.f64 (-.f64 (*.f64 (/.f64 s (*.f64 xj xj)) s) #s(literal -1 binary64)))))
(exp.f64 (*.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 s s) (*.f64 xj xj)))) (-.f64 xy_y (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))))
(*.f64 ecc (sin.f64 phip))
(*.f64 (-.f64 (+.f64 con (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (/.f64 (-.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) #s(literal 3 binary64)) (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) #s(literal 2 binary64)) (+.f64 (pow.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip #s(literal 1/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) phip))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))))))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 ecc (sin.f64 phip)) (*.f64 ecc (sin.f64 phip)))) (*.f64 (cos.f64 phip) rone_es)))
(*.f64 (-.f64 (+.f64 con (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64))) (*.f64 ecc ecc))) (*.f64 (cos.f64 phip) rone_es)))
(*.f64 (-.f64 (+.f64 con (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 ecc (sin.f64 phip)) (*.f64 ecc (sin.f64 phip)))) (*.f64 (cos.f64 phip) rone_es)))
(*.f64 (-.f64 (+.f64 con (neg.f64 (log.f64 (/.f64 (fabs.f64 (cos.f64 (+.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.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))))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64))) (*.f64 ecc ecc))) (*.f64 (cos.f64 phip) rone_es)))
(*.f64 (-.f64 (+.f64 (log.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip)))) (cos.f64 (+.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) con) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64))) (*.f64 ecc ecc))) (*.f64 (cos.f64 phip) rone_es)))
(if.f64 (<=.f64 phip #s(literal -738214179045777/3885337784451458141838923813647037813284813678104279042503624819477808570410416996352 binary64)) (*.f64 (-.f64 (+.f64 con (neg.f64 (log.f64 (/.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip)))) (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 ecc (sin.f64 phip)) (*.f64 ecc (sin.f64 phip)))) (*.f64 (cos.f64 phip) rone_es))) (if.f64 (<=.f64 phip #s(literal 3143773488566009/20282409603651670423947251286016 binary64)) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phip phip)))) (*.f64 ecc ecc))) (-.f64 (+.f64 (log.f64 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))) (/.f64 #s(literal 1 binary64) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (/.f64 (PI.f64) #s(literal 2 binary64))))))) con) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phip) ecc)))) hlf_e))) rone_es) (cos.f64 phip)) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phip phip)))) (*.f64 ecc ecc))) (-.f64 (-.f64 (+.f64 con (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip)))))) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phip) ecc)))) hlf_e))) rone_es) (cos.f64 phip))))
(if.f64 (<=.f64 phip #s(literal -738214179045777/3885337784451458141838923813647037813284813678104279042503624819477808570410416996352 binary64)) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phip phip)))) (*.f64 ecc ecc))) (-.f64 (+.f64 (neg.f64 (log.f64 (/.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip)))) (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) con) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phip) ecc)))) hlf_e))) rone_es) (cos.f64 phip)) (if.f64 (<=.f64 phip #s(literal 3143773488566009/20282409603651670423947251286016 binary64)) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phip phip)))) (*.f64 ecc ecc))) (-.f64 (+.f64 (log.f64 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))) (/.f64 #s(literal 1 binary64) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (/.f64 (PI.f64) #s(literal 2 binary64))))))) con) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phip) ecc)))) hlf_e))) rone_es) (cos.f64 phip)) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phip phip)))) (*.f64 ecc ecc))) (-.f64 (-.f64 (+.f64 con (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip)))))) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phip) ecc)))) hlf_e))) rone_es) (cos.f64 phip))))
(if.f64 (<=.f64 phip #s(literal -738214179045777/3885337784451458141838923813647037813284813678104279042503624819477808570410416996352 binary64)) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phip phip)))) (*.f64 ecc ecc))) (-.f64 (+.f64 (neg.f64 (log.f64 (/.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip)))) (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) con) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phip) ecc)))) hlf_e))) rone_es) (cos.f64 phip)) (if.f64 (<=.f64 phip #s(literal 84000 binary64)) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phip phip)))) (*.f64 ecc ecc))) (-.f64 (+.f64 (log.f64 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))) (/.f64 #s(literal 1 binary64) (sin.f64 (+.f64 (neg.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) con) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phip) ecc)))) hlf_e))) rone_es) (sin.f64 (+.f64 phip (/.f64 (PI.f64) #s(literal 2 binary64))))) (*.f64 (-.f64 (+.f64 con (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 ecc (sin.f64 phip)) (*.f64 ecc (sin.f64 phip)))) (*.f64 (cos.f64 phip) rone_es)))))
(if.f64 (<=.f64 phip #s(literal -738214179045777/3885337784451458141838923813647037813284813678104279042503624819477808570410416996352 binary64)) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phip phip)))) (*.f64 ecc ecc))) (-.f64 (+.f64 (neg.f64 (log.f64 (/.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip)))) (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) con) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phip) ecc)))) hlf_e))) rone_es) (cos.f64 phip)) (if.f64 (<=.f64 phip #s(literal 2500000 binary64)) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phip phip)))) (*.f64 ecc ecc))) (-.f64 (+.f64 (log.f64 (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))) (/.f64 #s(literal 1 binary64) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (/.f64 (PI.f64) #s(literal 2 binary64))))))) con) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phip) ecc)))) hlf_e))) rone_es) (cos.f64 phip)) (*.f64 (*.f64 (-.f64 (+.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))))) con) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phip) ecc)))) hlf_e)) (*.f64 (cos.f64 phip) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phip phip)))) (*.f64 ecc ecc))))) rone_es)))
(*.f64 (-.f64 (+.f64 (log.f64 (*.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip)))) (/.f64 #s(literal 1 binary64) (fabs.f64 (cos.f64 (+.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) con) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phip) ecc)))) hlf_e)) (*.f64 (*.f64 rone_es (cos.f64 phip)) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phip phip)))) (*.f64 ecc ecc)))))
(*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phip phip)))) (*.f64 ecc ecc))) (-.f64 (+.f64 (neg.f64 (log.f64 (/.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip)))) (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) con) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phip) ecc)))) hlf_e))) rone_es) (cos.f64 phip))
(*.f64 (-.f64 (+.f64 con (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 ecc (sin.f64 phip)) (*.f64 ecc (sin.f64 phip)))) (*.f64 (cos.f64 phip) rone_es)))
(*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phip phip)))) (*.f64 ecc ecc))) (-.f64 (+.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip))))) con) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phip) ecc)))) hlf_e))) rone_es) (cos.f64 phip))
(*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phip phip)))) (*.f64 ecc ecc))) (-.f64 (+.f64 (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip)))) con) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phip) ecc)))) hlf_e))) rone_es) (cos.f64 phip))
(/.f64 (-.f64 K (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))))) (*.f64 (-.f64 (*.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64))))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))))))) (log.f64 (fabs.f64 (pow.f64 (-.f64 (*.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64))))) #s(literal 2 binary64)))))) c)
(/.f64 (-.f64 K (log.f64 (/.f64 (-.f64 (*.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phip)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (-.f64 (*.f64 (+.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))))))) c)
(/.f64 (-.f64 K (log.f64 (-.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sin.f64 (*.f64 phip #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sin.f64 (*.f64 phip #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))))))))) c)
(*.f64 (/.f64 #s(literal 1 binary64) c) (-.f64 K (log.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip)))) (-.f64 (*.f64 (cos.f64 (*.f64 phip #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))))))))
(/.f64 (-.f64 K (log.f64 (*.f64 (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))) (/.f64 (PI.f64) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (*.f64 (sin.f64 (*.f64 phip #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))))))))) c)
(/.f64 (-.f64 K (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip))))))) c)
(/.f64 (-.f64 K (log.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip)))) (cos.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) c)
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))) #s(literal 562949953139837/562949953421312 binary64)) (/.f64 (-.f64 K (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal -1/4 binary64)) (*.f64 phip #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -1/4 binary64)) (*.f64 phip #s(literal 1/2 binary64)))))))) c) (/.f64 (-.f64 K (log.f64 (*.f64 (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))))))))) c))
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))) #s(literal 2206763817411543/2251799813685248 binary64)) (/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))))))) c) (/.f64 (-.f64 K (log.f64 (*.f64 (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))))))))) c))
(if.f64 (<=.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) #s(literal 4503599627369861/40564819207303340847894502572032 binary64)) (/.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (-.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (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 2028240960365167/10141204801825835211973625643008 binary64)) (/.f64 (*.f64 c (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c c)) (/.f64 (-.f64 K (log.f64 (*.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (/.f64 #s(literal 1 binary64) (fabs.f64 (cos.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))) c)))
(if.f64 (<=.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) #s(literal 4503599627369861/40564819207303340847894502572032 binary64)) (/.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (-.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (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 2535301200456459/5070602400912917605986812821504 binary64)) (/.f64 (*.f64 c (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c c)) (/.f64 (-.f64 K (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))) c)))
(if.f64 (<=.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) #s(literal 4503599627369861/40564819207303340847894502572032 binary64)) (/.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (-.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (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 2028240960365167/10141204801825835211973625643008 binary64)) (/.f64 (*.f64 c (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c c)) (/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))))))) c)))
(/.f64 (-.f64 K (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))))))) c)
(/.f64 (-.f64 K (log.f64 (tan.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 (PI.f64) #s(literal -1/4 binary64)))))) c)
(if.f64 (<=.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) #s(literal -inf.0 binary64)) (-.f64 (*.f64 (/.f64 Vp Tp) cosgam) (*.f64 (neg.f64 singam) (/.f64 Sp Tp))) (if.f64 (<=.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) #s(literal 200000000000000010500952051040884049740893716221631830983170823102360491597781639157274275016089572808740888766576775635388504647072086115128958436957341396569677440185315160747566046758957618011873790646994159989016223807793528176014930548556028498915851757764011368567623133894439277373091880108032 binary64)) (/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp) (+.f64 (*.f64 (/.f64 singam Tp) Sp) (*.f64 (/.f64 cosgam Tp) Vp))))
(if.f64 (<=.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) #s(literal -inf.0 binary64)) (+.f64 (*.f64 (/.f64 singam Tp) Sp) (*.f64 cosgam (/.f64 Vp Tp))) (if.f64 (<=.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) #s(literal 200000000000000010500952051040884049740893716221631830983170823102360491597781639157274275016089572808740888766576775635388504647072086115128958436957341396569677440185315160747566046758957618011873790646994159989016223807793528176014930548556028498915851757764011368567623133894439277373091880108032 binary64)) (/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp) (+.f64 (*.f64 (/.f64 singam Tp) Sp) (*.f64 (/.f64 cosgam Tp) Vp))))
(if.f64 (<=.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) #s(literal -inf.0 binary64)) (+.f64 (*.f64 (/.f64 singam Tp) Sp) (*.f64 cosgam (/.f64 Vp Tp))) (if.f64 (<=.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) #s(literal 200000000000000010500952051040884049740893716221631830983170823102360491597781639157274275016089572808740888766576775635388504647072086115128958436957341396569677440185315160747566046758957618011873790646994159989016223807793528176014930548556028498915851757764011368567623133894439277373091880108032 binary64)) (/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp) (+.f64 (*.f64 (/.f64 singam Tp) Sp) (*.f64 cosgam (/.f64 Vp Tp)))))
(if.f64 (<=.f64 Tp #s(literal 2000000000000000000 binary64)) (/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp) (+.f64 (*.f64 singam (/.f64 Sp Tp)) (*.f64 (/.f64 cosgam Tp) Vp)))
(/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp)
(*.f64 (*.f64 (exp.f64 (neg.f64 (-.f64 (*.f64 v BrA) #s(literal -1/3 binary64)))) (exp.f64 #s(literal -2/3 binary64))) (E.f64))
(pow.f64 (exp.f64 (*.f64 (*.f64 v BrA) #s(literal 2 binary64))) #s(literal -1/2 binary64))
(exp.f64 (neg.f64 (*.f64 BrA v)))
(*.f64 ArB (log.f64 (/.f64 (-.f64 (*.f64 (cos.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal -1/4 binary64))) (*.f64 (cos.f64 (*.f64 gamma0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal -1/4 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal -1/4 binary64))) #s(literal 2 binary64)))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -1152921504606847/1152921504606846976 binary64)) (*.f64 (neg.f64 (log.f64 (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) ArB) (if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal 4835703278458517/2417851639229258349412352 binary64)) (*.f64 ArB (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal -1/4 binary64))))))) (*.f64 ArB (-.f64 (log.f64 (fabs.f64 (sin.f64 (*.f64 (+.f64 (*.f64 gamma0 #s(literal -2 binary64)) (PI.f64)) #s(literal -1/4 binary64))))) (log.f64 (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64))))))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -1152921504606847/1152921504606846976 binary64)) (*.f64 (neg.f64 (log.f64 (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) ArB) (if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal 4835703278458517/2417851639229258349412352 binary64)) (*.f64 ArB (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal -1/4 binary64))))))) (*.f64 ArB (+.f64 (log.f64 (fabs.f64 (sin.f64 (*.f64 (+.f64 (*.f64 gamma0 #s(literal -2 binary64)) (PI.f64)) #s(literal -1/4 binary64))))) (log.f64 (fabs.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (+.f64 (*.f64 gamma0 #s(literal -2 binary64)) (PI.f64)) #s(literal -1/4 binary64))))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -1152921504606847/1152921504606846976 binary64)) (*.f64 (neg.f64 (log.f64 (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) ArB) (if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal 4835703278458517/2417851639229258349412352 binary64)) (*.f64 ArB (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal -1/4 binary64))))))) (*.f64 ArB (-.f64 (log.f64 (fabs.f64 (sin.f64 (*.f64 (+.f64 (*.f64 gamma0 #s(literal -2 binary64)) (PI.f64)) #s(literal -1/4 binary64))))) (log.f64 (fabs.f64 (cos.f64 (*.f64 (+.f64 (*.f64 gamma0 #s(literal -2 binary64)) (PI.f64)) #s(literal -1/4 binary64)))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -1152921504606847/1152921504606846976 binary64)) (*.f64 (neg.f64 (log.f64 (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) ArB) (if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (*.f64 ArB (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal -1/4 binary64))))))) (*.f64 (log.f64 (fabs.f64 (*.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal -1/4 binary64))))))) ArB)))
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -2028240960365167/10141204801825835211973625643008 binary64)) (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) ArB) (if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (log.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) ArB)) (*.f64 (log.f64 (fabs.f64 (*.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal -1/4 binary64))))))) ArB)))
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -2028240960365167/10141204801825835211973625643008 binary64)) (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) ArB) (if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (log.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) ArB)) (*.f64 ArB (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (*.f64 gamma0 #s(literal -2 binary64)) (PI.f64)) #s(literal -1/4 binary64))))))))
(*.f64 ArB (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64)))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 gamma0 #s(literal 1/2 binary64))))))))
(*.f64 ArB (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64))))))))
(*.f64 (log.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64))))) (cos.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64))))) ArB)
(*.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal -1/4 binary64)))) (-.f64 (cos.f64 (*.f64 gamma0 #s(literal 1/2 binary64))) (sin.f64 (*.f64 gamma0 #s(literal 1/2 binary64)))))) ArB)
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -2028240960365167/10141204801825835211973625643008 binary64)) (*.f64 (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) ArB) (*.f64 ArB (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (*.f64 gamma0 #s(literal -2 binary64)) (PI.f64)) #s(literal -1/4 binary64)))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -2028240960365167/10141204801825835211973625643008 binary64)) (*.f64 (neg.f64 (log.f64 (fabs.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) ArB) (*.f64 ArB (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (*.f64 gamma0 #s(literal -2 binary64)) (PI.f64)) #s(literal -1/4 binary64)))))))
(*.f64 ArB (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (*.f64 gamma0 #s(literal -2 binary64)) (PI.f64)) #s(literal -1/4 binary64))))))
(*.f64 (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) ArB)
(if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (fabs.f64 (*.f64 ArB (atan.f64 (/.f64 (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64))) (cos.f64 alpha_c)))))) (fabs.f64 (*.f64 ArB (atan.f64 (/.f64 (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64))) (cos.f64 alpha_c))))))
(/.f64 (sin.f64 phi0) c)
(-.f64 (/.f64 L (+.f64 H L)) (/.f64 H (+.f64 H L)))
(/.f64 (-.f64 L H) (+.f64 L H))
(-.f64 (*.f64 (+.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 (-.f64 lam2 (PI.f64)) (PI.f64)) lam2)) lam1) #s(literal 1/2 binary64)) (*.f64 (/.f64 #s(literal 1 binary64) B) (atan.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))))) (/.f64 J p)))))
(-.f64 (*.f64 (+.f64 (if.f64 (<.f64 (-.f64 lam1 lam2) (neg.f64 (PI.f64))) (+.f64 (+.f64 (PI.f64) (PI.f64)) lam2) (if.f64 (>.f64 (-.f64 lam1 lam2) (PI.f64)) (-.f64 lam2 (+.f64 (PI.f64) (PI.f64))) lam2)) lam1) #s(literal 1/2 binary64)) (/.f64 (atan.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))))) (/.f64 J 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 J (tan.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 B (-.f64 lam1 (if.f64 (<.f64 (-.f64 lam1 lam2) (neg.f64 (PI.f64))) (+.f64 (+.f64 (PI.f64) (PI.f64)) lam2) (if.f64 (>.f64 (-.f64 lam1 lam2) (PI.f64)) (-.f64 lam2 (+.f64 (PI.f64) (PI.f64))) lam2))))))) p)) B))
(-.f64 lamc (/.f64 (asin.f64 (/.f64 (*.f64 (-.f64 F #s(literal 1 binary64)) (*.f64 (tan.f64 gamma0) (-.f64 F #s(literal -1 binary64)))) (+.f64 F F))) B))
(-.f64 lamc (/.f64 (asin.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 F (/.f64 #s(literal 1 binary64) F))) (tan.f64 gamma0))) B))
(*.f64 (sqrt.f64 one_es) (/.f64 k0 (-.f64 (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi0 phi0))) #s(literal 1/2 binary64)) (*.f64 ecc ecc)) #s(literal -1 binary64))))
(asin.f64 (/.f64 (sin.f64 alpha_c) D))
(-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi0 phi0)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.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 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 phip0 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 phip0 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64)))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.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 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 phip0 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 phip0 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64)))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (/.f64 (+.f64 (cos.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))) (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi0) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0)))) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (cos.f64 (-.f64 (*.f64 #s(literal 1/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 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (/.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0)))) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (cos.f64 (-.f64 (*.f64 #s(literal 1/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 (/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (neg.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi0) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (/.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0)))) (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi0) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(if.f64 (<=.f64 c #s(literal 7791904696734915/4722366482869645213696 binary64)) (-.f64 (log.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 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 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip0))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0)))) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (cos.f64 (-.f64 (*.f64 #s(literal 1/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))))))))))
(if.f64 (<=.f64 (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))) #s(literal 2346099009001469/58652475225036720546649669496166069228998121824605496380296088990333059082962747718339142176408838912879328274880511426712364770830486275482511413333124259062810366582741426385442408983508948533749841936858614266830705773786598571244254795994059356766208 binary64)) (-.f64 (log.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)))) (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip0) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (*.f64 c (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/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))))))))))
(if.f64 (<=.f64 (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))) #s(literal 2346099009001469/58652475225036720546649669496166069228998121824605496380296088990333059082962747718339142176408838912879328274880511426712364770830486275482511413333124259062810366582741426385442408983508948533749841936858614266830705773786598571244254795994059356766208 binary64)) (-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (/.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 (log.f64 (*.f64 (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi0) ecc))) (neg.f64 hlf_e)) (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))))) c)) (-.f64 (log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)))) (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip0) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (*.f64 c (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/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 (/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)))) (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip0) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (*.f64 c (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/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 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)))) (cos.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip0) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 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)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phip0)))) (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip0)))))) (*.f64 (log.f64 (*.f64 (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi0) ecc))) (neg.f64 hlf_e)) (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))))) c))
(-.f64 (log.f64 (*.f64 (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip0) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (PI.f64))) (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip0)))))) (*.f64 (log.f64 (*.f64 (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi0) ecc))) (neg.f64 hlf_e)) (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))))) c))
(-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.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 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip0))))) (*.f64 (log.f64 (*.f64 (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi0) ecc))) (neg.f64 hlf_e)) (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))))) c))
(-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phip0)))) (*.f64 (log.f64 (*.f64 (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi0) ecc))) (neg.f64 hlf_e)) (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))))) c))
(-.f64 (/.f64 E_var (+.f64 E_var (*.f64 (/.f64 L E_var) H))) (*.f64 (/.f64 L (+.f64 (*.f64 H L) (*.f64 E_var E_var))) H))
(-.f64 (*.f64 (/.f64 E_var (+.f64 (*.f64 H L) (*.f64 E_var E_var))) E_var) (*.f64 (/.f64 L (+.f64 (*.f64 H L) (*.f64 E_var E_var))) H))
(/.f64 #s(literal 1 binary64) (/.f64 (+.f64 (*.f64 H L) (*.f64 E_var E_var)) (-.f64 (*.f64 E_var E_var) (*.f64 H L))))
(/.f64 (-.f64 (*.f64 E_var E_var) (*.f64 L H)) (+.f64 (*.f64 E_var E_var) (*.f64 L H)))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (*.f64 (/.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)))) (/.f64 #s(literal -1 binary64) (sqrt.f64 (fabs.f64 (-.f64 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 (*.f64 (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) D))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))) (*.f64 (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) D))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) (*.f64 D D))))) (*.f64 (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) D))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)))) (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)))))
(/.f64 (*.f64 (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 one_es (+.f64 one_es (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es))))) com) (*.f64 (cos.f64 phi0) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (*.f64 (sin.f64 phi0) (sin.f64 phi0)))))))
(*.f64 (/.f64 com (cos.f64 phi0)) (sqrt.f64 (/.f64 (neg.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es) one_es)) (*.f64 one_es (-.f64 (*.f64 (*.f64 es (sin.f64 phi0)) (sin.f64 phi0)) #s(literal 1 binary64))))))
(*.f64 (/.f64 com (cos.f64 phi0)) (sqrt.f64 (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (/.f64 one_es (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es))) #s(literal -1 binary64)) (-.f64 #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 (/.f64 com (cos.f64 phi0)) (sqrt.f64 (/.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es) one_es) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) es) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))))) one_es))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) (/.f64 es one_es))))
(*.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))) (cos.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 (PI.f64) #s(literal -3/4 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 -5764607523034235/576460752303423488 binary64)) (*.f64 kR (log.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (tan.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -3/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) phipp)))) #s(literal 5404319552844595/4503599627370496 binary64)) (*.f64 kR (log.f64 (*.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (*.f64 kR (log.f64 (/.f64 (neg.f64 (sin.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phipp)))) (cos.f64 (+.f64 (*.f64 phipp #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (PI.f64)))))))))
(*.f64 kR (log.f64 (-.f64 (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))))))
(*.f64 kR (log.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.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 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))))))
(*.f64 kR (log.f64 (/.f64 (-.f64 (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)))) (neg.f64 (cos.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))
(*.f64 kR (log.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)))) (cos.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -2535301200456459/5070602400912917605986812821504 binary64)) (*.f64 kR (neg.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -3/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) phipp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (log.f64 (pow.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phipp #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (PI.f64))) (PI.f64))) kR)) (*.f64 kR (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)))) (neg.f64 (cos.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -2535301200456459/5070602400912917605986812821504 binary64)) (*.f64 kR (neg.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -3/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) phipp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (log.f64 (pow.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phipp #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (PI.f64))) (PI.f64))) kR)) (*.f64 kR (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64)))) (cos.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phipp))))))))
(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/5070602400912917605986812821504 binary64)) (*.f64 kR (neg.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -3/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) phipp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (log.f64 (pow.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phipp #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (PI.f64))) (PI.f64))) kR)) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phipp))))))))
(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/5070602400912917605986812821504 binary64)) (*.f64 kR (neg.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -3/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) phipp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (log.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) kR)) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phipp))))))))
(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/5070602400912917605986812821504 binary64)) (*.f64 kR (neg.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -3/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) phipp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (log.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phipp))) kR)) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phipp))))))))
(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/5070602400912917605986812821504 binary64)) (*.f64 kR (neg.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -3/4 binary64) (PI.f64)))))))) (*.f64 (log.f64 (fabs.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64)))))) kR))
(*.f64 (log.f64 (fabs.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64)))))) kR)
(*.f64 kR (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phipp))))))
(*.f64 kR (log.f64 (tan.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))
(*.f64 kR (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal 9/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phipp)))))
(+.f64 (*.f64 c1 (sin.f64 lamdp)) (+.f64 (*.f64 c3 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) (cos.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (+.f64 lamdp lamdp)) (sin.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) (*.f64 (sin.f64 lamdp) #s(literal 4 binary64))))) (*.f64 tanph (/.f64 xj (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))))
(+.f64 (*.f64 c1 (sin.f64 lamdp)) (+.f64 (*.f64 c3 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lamdp lamdp)) #s(literal 1/2 binary64))) (*.f64 (sin.f64 lamdp) #s(literal 4 binary64))))) (*.f64 tanph (/.f64 xj (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))))
(+.f64 (*.f64 c1 (sin.f64 lamdp)) (+.f64 (*.f64 c3 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64)))) (*.f64 tanph (/.f64 xj (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))))
(+.f64 (*.f64 c1 (sin.f64 lamdp)) (+.f64 (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp))) (*.f64 tanph (/.f64 xj (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))))
(-.f64 (+.f64 (+.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (*.f64 lamdp b)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) (*.f64 (/.f64 s (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj)))) tanph))
(if.f64 (<=.f64 sa #s(literal 199999999999999984973552323798576408508934173966967692287845194445058839995158605320632698752563530750306011682731106456567808 binary64)) (+.f64 (*.f64 (*.f64 sa one_es) (/.f64 tanphi (cos.f64 lamt))) (*.f64 (tan.f64 lamt) ca)) (+.f64 (*.f64 (*.f64 (/.f64 one_es (cos.f64 lamt)) tanphi) sa) (*.f64 (tan.f64 lamt) ca)))
(if.f64 (<=.f64 sa #s(literal 199999999999999984973552323798576408508934173966967692287845194445058839995158605320632698752563530750306011682731106456567808 binary64)) (+.f64 (*.f64 (*.f64 sa one_es) (/.f64 tanphi (cos.f64 lamt))) (*.f64 (tan.f64 lamt) ca)) (+.f64 (*.f64 (*.f64 tanphi one_es) (/.f64 sa (cos.f64 lamt))) (*.f64 (tan.f64 lamt) ca)))
(+.f64 (*.f64 tanphi (*.f64 (/.f64 one_es (cos.f64 lamt)) sa)) (*.f64 (tan.f64 lamt) ca))
(*.f64 #s(literal 1/2 binary64) (*.f64 ArB (neg.f64 (log.f64 (fabs.f64 (/.f64 (-.f64 #s(literal -1 binary64) (-.f64 U (*.f64 (-.f64 #s(literal -1 binary64) U) U))) (-.f64 #s(literal 1 binary64) (*.f64 U U))))))))
(*.f64 #s(literal 1/2 binary64) (*.f64 ArB (log.f64 (/.f64 (-.f64 #s(literal 1 binary64) U) (+.f64 #s(literal 1 binary64) U)))))
(if.f64 (<=.f64 (*.f64 B lam) #s(literal -10000000000000000139372116959414099130712064 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (cos.f64 (-.f64 (*.f64 lam B) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) singam)) (cos.f64 (*.f64 B lam)))) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 (sin.f64 (*.f64 lam B)) singam) (*.f64 cosgam S)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 lam B))))))
(if.f64 (<=.f64 (*.f64 B lam) #s(literal -20000000000000000 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (cos.f64 (-.f64 (*.f64 lam B) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) singam)) (cos.f64 (*.f64 B lam)))) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (cos.f64 (*.f64 B lam)))))
(if.f64 (<=.f64 (*.f64 B lam) #s(literal -20000000000000000 binary64)) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (PI.f64) (*.f64 lam B))) singam) (*.f64 cosgam S)) (cos.f64 (*.f64 B lam)))) (*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (cos.f64 (*.f64 B lam)))))
(*.f64 ArB (atan2.f64 (+.f64 (*.f64 S cosgam) (*.f64 (sin.f64 (*.f64 B lam)) singam)) (cos.f64 (*.f64 B lam))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -5404319552844595/4503599627370496 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (neg.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 phi #s(literal 1/2 binary64))))) (cos.f64 (-.f64 (*.f64 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 (*.f64 (pow.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))) alpha) k) gfi)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (neg.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))) (if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -3602879701896397/72057594037927936 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (/.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 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 (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)))) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))) (PI.f64)))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64))))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -1 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (/.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (+.f64 (PI.f64) phi)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))) (if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -3602879701896397/72057594037927936 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (/.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 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 (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)))) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))) (PI.f64)))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64))))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -3602879701896397/72057594037927936 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (/.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 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 (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)))) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))) (PI.f64)))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -3602879701896397/72057594037927936 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (/.f64 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (tan.f64 (-.f64 (+.f64 (PI.f64) (*.f64 phi #s(literal 1/2 binary64))) (-.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)) (PI.f64)))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))))
(if.f64 (<=.f64 gfi #s(literal 13199999999999999111396687277007826338797949810404794723953171298053021921766410992369234893663310197049712583722486454455736026324875083776 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (tan.f64 (-.f64 (+.f64 (PI.f64) (*.f64 phi #s(literal 1/2 binary64))) (-.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)) (PI.f64)))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 (PI.f64) phi) phi)))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)))
(if.f64 (<=.f64 gfi #s(literal 13199999999999999111396687277007826338797949810404794723953171298053021921766410992369234893663310197049712583722486454455736026324875083776 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (tan.f64 (-.f64 (+.f64 (PI.f64) (*.f64 phi #s(literal 1/2 binary64))) (-.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)) (PI.f64)))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))) (*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 (PI.f64) phi) phi) #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 (PI.f64) phi) phi) #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 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 (*.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 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 phidp #s(literal 1/2 binary64)))) (cos.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (cos.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal -1/4 binary64)))))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (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/2 binary64) phidp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (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 (log.f64 (fabs.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 phidp #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))) (sin.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 5902958103587057/590295810358705651712 binary64)) (-.f64 (log.f64 (fabs.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)))))) (log.f64 (fabs.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal -1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) (-.f64 (+.f64 (log.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (log.f64 (fabs.f64 (fabs.f64 (-.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (cos.f64 (*.f64 phidp #s(literal 1/2 binary64)))))))) (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (-.f64 (log.f64 (fabs.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)))))) (log.f64 (fabs.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal -1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) (log.f64 (/.f64 (-.f64 (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 phidp #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal -1/4 binary64)))))))
(log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) 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/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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (*.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal -1/4 binary64)) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))
(log.f64 (-.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal -1/4 binary64)))) (cos.f64 (*.f64 phidp #s(literal 1/2 binary64)))) (*.f64 (+.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal -1/2 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal -1/4 binary64)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)))))
(log.f64 (-.f64 (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal -1/4 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal -1/2 binary64))) #s(literal -1 binary64))) #s(literal 2 binary64))) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal -1/4 binary64)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)))))
(log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal -1/4 binary64))) (cos.f64 (*.f64 phidp #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))))
(log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (cos.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal 1/4 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal 1/4 binary64))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal 1/4 binary64))))))))
(log.f64 (*.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal -1/4 binary64))) (/.f64 (*.f64 (-.f64 (cos.f64 (*.f64 phidp #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (+.f64 (cos.f64 (*.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal -1/4 binary64)) #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))
(log.f64 (/.f64 (-.f64 (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 phidp #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal -1/4 binary64))))))
(log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 (+.f64 (+.f64 phidp phidp) (PI.f64)) #s(literal -1/4 binary64)))) (-.f64 (cos.f64 (*.f64 phidp #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)))))
(if.f64 (<=.f64 phidp #s(literal 6490371073168535/324518553658426726783156020576256 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 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (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 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (+.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 phi #s(literal 1/2 binary64)))) (cos.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal -1/4 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 phi #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (cos.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal -1/4 binary64)))))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (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/2 binary64) phi)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (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 (log.f64 (fabs.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 phi #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi #s(literal 1/2 binary64))) (sin.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 5902958103587057/590295810358705651712 binary64)) (-.f64 (log.f64 (fabs.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)))))) (log.f64 (fabs.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal -1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) (-.f64 (+.f64 (log.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (log.f64 (fabs.f64 (fabs.f64 (-.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (cos.f64 (*.f64 phi #s(literal 1/2 binary64)))))))) (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (-.f64 (log.f64 (fabs.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)))))) (log.f64 (fabs.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal -1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) (log.f64 (/.f64 (-.f64 (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal -1/4 binary64)))))))
(log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) 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/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 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (*.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal -1/4 binary64)) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))
(log.f64 (-.f64 (/.f64 (*.f64 (*.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)))) (cos.f64 (*.f64 phi #s(literal 1/2 binary64)))) (*.f64 (+.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal -1/2 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 1 binary64)) #s(literal 1/2 binary64))) (*.f64 (/.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)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)))))
(log.f64 (-.f64 (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal -1/4 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal -1/2 binary64))) #s(literal -1 binary64))) #s(literal 2 binary64))) (*.f64 (/.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)))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)))))
(log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal -1/4 binary64))) (cos.f64 (*.f64 phi #s(literal 1/2 binary64))))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))))
(log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (cos.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)))) (*.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (*.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))))) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))))))))
(log.f64 (*.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal -1/4 binary64))) (/.f64 (*.f64 (-.f64 (cos.f64 (*.f64 phi #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (+.f64 (cos.f64 (*.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal -1/4 binary64)) #s(literal 2 binary64))) #s(literal 1 binary64)) #s(literal 1/2 binary64)))))
(log.f64 (/.f64 (-.f64 (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 phi #s(literal 1/2 binary64)))) (*.f64 (sin.f64 (*.f64 phi #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal -1/4 binary64))))))
(log.f64 (*.f64 (/.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)))) (-.f64 (cos.f64 (*.f64 phi #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)))))
(if.f64 (<=.f64 phi #s(literal 6490371073168535/324518553658426726783156020576256 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 (*.f64 (pow.f64 (/.f64 (*.f64 (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) s)) (sin.f64 (*.f64 s #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) s)) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 s #s(literal 1/2 binary64)))))) (neg.f64 n)) (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n)) rho0)
(*.f64 (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) s)) (sin.f64 (*.f64 s #s(literal 1/2 binary64))))) (cos.f64 (-.f64 (*.f64 s #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (neg.f64 n))) rho0)
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) s) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -1080863910568919/9007199254740992 binary64)) (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) (*.f64 (pow.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 (-.f64 (+.f64 s s) (PI.f64)) (*.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) (-.f64 (+.f64 s s) (PI.f64))) #s(literal 1/4 binary64))))) (neg.f64 n)) rho0)) (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 s (+.f64 s (PI.f64))) #s(literal 1/4 binary64))) (neg.f64 n)) rho0)))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) s) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -1080863910568919/9007199254740992 binary64)) (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) (*.f64 (pow.f64 (tan.f64 (*.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) (-.f64 (+.f64 s s) (PI.f64))) (/.f64 #s(literal 1/4 binary64) (-.f64 (+.f64 s s) (PI.f64))))) (neg.f64 n)) rho0)) (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 s (+.f64 s (PI.f64))) #s(literal 1/4 binary64))) (neg.f64 n)) rho0)))
(*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 s (+.f64 s (PI.f64))) #s(literal 1/4 binary64))) (neg.f64 n)) rho0))
(asin.f64 (-.f64 (*.f64 cosp0 (sin.f64 phip)) (*.f64 sinp0 (*.f64 (cos.f64 phip) (cos.f64 lamp)))))
(if.f64 (<=.f64 phi #s(literal -6521557777124079/1716199415032652428745475199770348304317358825035826352348615864796385795849414013030639910165363638744324077847870214509280496999929160953143507072778764288 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 K (*.f64 (log.f64 (fabs.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.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 3512367368768573/5575186299632655785383929568162090376495104 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 K (*.f64 (log.f64 (*.f64 (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) ecc))) (neg.f64 hlf_e)) (tan.f64 (neg.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (PI.f64)))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 K (*.f64 (log.f64 (fabs.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.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 -5663458069607753/1716199415032652428745475199770348304317358825035826352348615864796385795849414013030639910165363638744324077847870214509280496999929160953143507072778764288 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 K (*.f64 (log.f64 (fabs.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.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 8896782400159711/53919893334301279589334030174039261347274288845081144962207220498432 binary64)) (-.f64 (*.f64 (atan.f64 (*.f64 (pow.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (neg.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (PI.f64))))) c) (exp.f64 K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 K (*.f64 (log.f64 (fabs.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi)))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 K (*.f64 (log.f64 (fabs.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi)))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(if.f64 (<=.f64 (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))))))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 K (*.f64 (log.f64 (*.f64 (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) ecc))) (neg.f64 hlf_e)) (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 (atan.f64 (*.f64 (pow.f64 (fabs.f64 (*.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)))) c) (exp.f64 K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(if.f64 (<=.f64 (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))))))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 K (*.f64 (log.f64 (*.f64 (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) ecc))) (neg.f64 hlf_e)) (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi))))) c)))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 (atan.f64 (*.f64 (pow.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi)))) c) (exp.f64 K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (*.f64 (atan.f64 (*.f64 (pow.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi)))) c) (exp.f64 K))) #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)))))))
(if.f64 (<=.f64 es #s(literal -1350000000000000062264949734916199852537409199426510027111022840390888180531062047726808437400048500736 binary64)) (asin.f64 (/.f64 (-.f64 (*.f64 one_es (*.f64 ca (sin.f64 phi))) (*.f64 sa (*.f64 (cos.f64 phi) (sin.f64 lamt)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (pow.f64 (sin.f64 phi) #s(literal 2 binary64))))))) (asin.f64 (/.f64 (-.f64 (*.f64 (*.f64 ca one_es) (sin.f64 phi)) (*.f64 (*.f64 (sin.f64 lamt) sa) (cos.f64 phi))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1/2 binary64))) es))))))
(asin.f64 (/.f64 (-.f64 (*.f64 (*.f64 ca one_es) (sin.f64 phi)) (*.f64 (*.f64 (sin.f64 lamt) sa) (cos.f64 phi))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1/2 binary64))) es)))))
(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 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1/2 binary64))) es)))))
(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 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi phi))) #s(literal 1/2 binary64)) es)))))
(asin.f64 (/.f64 (*.f64 cp (sin.f64 lamp)) (cos.f64 phipp)))
(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 (+.f64 (log.f64 (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal -1 binary64))))) (log.f64 (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal -1 binary64)))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))))
(-.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (pow.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) #s(literal 2 binary64)))) (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))))
(log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi)))))
#s(literal 0 binary64)
(*.f64 (pow.f64 tsfn_phi (neg.f64 B)) E_var)
(if.f64 (<=.f64 (-.f64 (*.f64 S singam) (*.f64 (sin.f64 (*.f64 B lam)) cosgam)) #s(literal 500000000000000026034570400124927876004592539875482072325045332488532471681254331635155702257359693082921654364459783965051206883716948932927829134579484022857251800882845394447562090716355667888496475007621811653869304473468681376009259035209043234590657258402459296670416896 binary64)) (/.f64 (-.f64 (*.f64 S singam) (*.f64 (sin.f64 (*.f64 B lam)) cosgam)) T) (-.f64 (/.f64 (*.f64 (neg.f64 cosgam) (sin.f64 (*.f64 lam B))) T) (*.f64 (neg.f64 singam) (/.f64 S T))))
(/.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 (pow.f64 (sinh.f64 Ce) #s(literal 2 binary64)) (pow.f64 (cos.f64 Cn) #s(literal 2 binary64)))))
(atan2.f64 (sin.f64 Cn) (sqrt.f64 (+.f64 (pow.f64 (sinh.f64 Ce) #s(literal 2 binary64)) (*.f64 (-.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal -1 binary64)) #s(literal 1/2 binary64)))))
(atan2.f64 (sinh.f64 Ce) (cos.f64 Cn))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (pow.f64 (cos.f64 lam) #s(literal 2 binary64))))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lam lam)))))))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lam lam))))))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (*.f64 (+.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64)) #s(literal 2 binary64)) #s(literal 1/2 binary64)) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam))))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam))) (pow.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lam lam))) #s(literal 1/2 binary64)) #s(literal 2 binary64))))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (pow.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 Cn Cn))) #s(literal 1/2 binary64)) #s(literal 2 binary64)))))
(/.f64 (*.f64 (sin.f64 lam) (cos.f64 Cn)) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (*.f64 (cos.f64 Cn) (*.f64 (cos.f64 Cn) (*.f64 (cos.f64 lam) (cos.f64 lam)))))))
(*.f64 (cos.f64 Cn) (/.f64 (sin.f64 lam) (sqrt.f64 (-.f64 (*.f64 (*.f64 (cos.f64 Cn) (cos.f64 lam)) (*.f64 (cos.f64 Cn) (cos.f64 lam))) (*.f64 (-.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))))
(*.f64 (/.f64 #s(literal 1 binary64) (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 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 Cn) (sin.f64 lam)))))
(/.f64 (*.f64 (sin.f64 lam) (cos.f64 Cn)) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (*.f64 (neg.f64 (neg.f64 (cos.f64 Cn))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lam lam)))) (cos.f64 Cn))))))
(/.f64 (*.f64 (sin.f64 lam) (cos.f64 Cn)) (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lam lam)))))))))
(*.f64 (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)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lam lam))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn))))))))
(*.f64 (cos.f64 Cn) (/.f64 (sin.f64 lam) (sqrt.f64 (-.f64 (pow.f64 (-.f64 (*.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 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 (pow.f64 (-.f64 (*.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 2 binary64)) (*.f64 (-.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))))
(atan2.f64 (sin.f64 Cn) (*.f64 (cos.f64 Cn) (cos.f64 lam)))
(if.f64 (<=.f64 cos_arg_r #s(literal -10000000000000000000 binary64)) (-.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hr) (*.f64 (*.f64 hi sinh_arg_i) cos_arg_r)) (-.f64 (*.f64 (*.f64 (neg.f64 hi) cos_arg_r) sinh_arg_i) (*.f64 (*.f64 (neg.f64 sin_arg_r) hr) cosh_arg_i)))
(if.f64 (<=.f64 sinh_arg_i #s(literal 546812681195753/1093625362391505962186251113558810682676584715446606218212885303204976499599687961611756588511526912 binary64)) (-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 hi sinh_arg_i) cos_arg_r)) (-.f64 (*.f64 (*.f64 hr sin_arg_r) cosh_arg_i) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)))
(if.f64 (<=.f64 sinh_arg_i #s(literal 8958978968711217/4479489484355608421114884561136888556243290994469299069799978201927583742360321890761754986543214231552 binary64)) (-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 hi sinh_arg_i) cos_arg_r)) (-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)))
(-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi))
(if.f64 (<=.f64 sin_arg_r #s(literal -100000000000000006533477610574617307003210399478293629775643192173126922026988747893522897194624310120140586361897943794063686207001388689898137223574581962294638641248120402340847172549022642470747494264132908839774942043776657045497009088429335535195969814528 binary64)) (+.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 -8620287417370625/47890485652059026823698344598447161988085597568237568 binary64)) (+.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hi) (*.f64 (*.f64 hr sinh_arg_i) cos_arg_r)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr))))
(if.f64 (<=.f64 hi #s(literal 3000000000000000011682236791872338282844568556881242454458600847001102360681937407235708182555127571452408010234658816 binary64)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.f64 (*.f64 hr cos_arg_r) sinh_arg_i)) (+.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hi) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr)))
(if.f64 (<=.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hi) #s(literal 1495020541582441/299004108316488185848867822351174292268202623451041623610437960853046897358187881202051502002495252055893102400215083077513294952620060704653486412249315029041282722978874323768631243063073425063936 binary64)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.f64 (*.f64 hr cos_arg_r) sinh_arg_i)) (+.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 -1499999999999999985407752241570241939668692766303109251072 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 (>.f32 #s(literal 1 binary32) #s(literal 1/10000000000 binary32)) (tan.f64 phi) #s(literal 0 binary64))
(/.f64 (*.f64 (cos.f64 phi) lam) (sqrt.f64 (-.f64 (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi phi))) #s(literal 1/2 binary64)) es) #s(literal -1 binary64))))
(*.f64 (/.f64 lam (sqrt.f64 (-.f64 (*.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi phi))) #s(literal 1/2 binary64)) es) #s(literal -1 binary64)))) (cos.f64 phi))
(/.f64 (*.f64 x (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (pow.f64 (sin.f64 phi) #s(literal 2 binary64)))))) k0)
(/.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)
(*.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))) k0) x)