(if.f64 (<=.f64 (cos.f64 (+.f64 phi0 (/.f64 y esp))) #s(literal 1224979098644775/9007199254740992 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (cos.f64 (+.f64 phi0 (/.f64 #s(literal 1 binary64) (/.f64 esp y))))) #s(literal 0 binary64))) (atan2.f64 g (cos.f64 (+.f64 phi0 (/.f64 #s(literal 1 binary64) (/.f64 esp y))))) #s(literal 0 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 phi0) (cos.f64 (-.f64 (/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 esp) y)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 phi0) (sin.f64 (-.f64 (/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 esp) y)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 0 binary64))) (atan2.f64 g (-.f64 (*.f64 (sin.f64 phi0) (cos.f64 (-.f64 (/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 esp) y)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 phi0) (sin.f64 (-.f64 (/.f64 #s(literal 1 binary64) (/.f64 (neg.f64 esp) y)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 0 binary64)))
(if.f64 (<=.f64 (+.f64 phi0 (/.f64 y esp)) #s(literal -2000000000000000067997983426005649189887949439425796095426861429675750543446401666585483232761466891842617344 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 phi0) (sin.f64 (+.f64 (/.f64 y esp) (PI.f64)))) (*.f64 (cos.f64 phi0) (sin.f64 (-.f64 (/.f64 (neg.f64 y) esp) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 0 binary64))) (atan2.f64 g (-.f64 (*.f64 (sin.f64 phi0) (sin.f64 (+.f64 (/.f64 y esp) (PI.f64)))) (*.f64 (cos.f64 phi0) (sin.f64 (-.f64 (/.f64 (neg.f64 y) esp) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 0 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (+.f64 (/.f64 (neg.f64 y) esp) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi0)) (*.f64 (sin.f64 (/.f64 y esp)) (sin.f64 phi0)))) #s(literal 0 binary64))) (atan2.f64 g (-.f64 (*.f64 (sin.f64 (+.f64 (/.f64 (neg.f64 y) esp) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 phi0)) (*.f64 (sin.f64 (/.f64 y esp)) (sin.f64 phi0)))) #s(literal 0 binary64)))
(if.f64 (<=.f64 esp #s(literal 6586975938928937/45427420268475430659332737993000283397102585042957378767593137448789955507087370207886940669610222847547657600391636120845912601788416 binary64)) (if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (+.f64 (*.f64 (cos.f64 (+.f64 (PI.f64) (+.f64 (/.f64 y esp) phi0))) #s(literal -1 binary64)) (*.f64 (neg.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 (cos.f64 (+.f64 (PI.f64) (+.f64 (/.f64 y esp) phi0))) #s(literal -1 binary64)) (*.f64 (neg.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 phi0 (/.f64 #s(literal 1 binary64) (/.f64 esp y))))) #s(literal 0 binary64))) (atan2.f64 g (cos.f64 (+.f64 phi0 (/.f64 #s(literal 1 binary64) (/.f64 esp y))))) #s(literal 0 binary64)))
(if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (cos.f64 (+.f64 phi0 (/.f64 #s(literal 1 binary64) (/.f64 esp y))))) #s(literal 0 binary64))) (atan2.f64 g (cos.f64 (+.f64 phi0 (/.f64 #s(literal 1 binary64) (/.f64 esp y))))) #s(literal 0 binary64))
(if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (cos.f64 (+.f64 phi0 (*.f64 (/.f64 #s(literal 1 binary64) esp) y)))) #s(literal 0 binary64))) (atan2.f64 g (cos.f64 (+.f64 phi0 (*.f64 (/.f64 #s(literal 1 binary64) esp) y)))) #s(literal 0 binary64))
(if.f64 (or (>.f64 (fabs.f64 g) #s(literal 0 binary64)) (>.f64 (fabs.f64 (cos.f64 (+.f64 phi0 (/.f64 y esp)))) #s(literal 0 binary64))) (atan2.f64 g (cos.f64 (+.f64 phi0 (/.f64 y esp)))) #s(literal 0 binary64))
(if.f64 (<=.f64 (+.f64 #s(literal 1 binary64) (*.f64 g g)) #s(literal 2000000000000000000323530153572912876425337292463318876590990034202234998451477495730520486068427830507559547136360674832054891641135558399286783083212052137222301492244569952354513300088401054553614654135380924225322855000394102452979796521357526782898752177094584641628255914972661310937838244526555136 binary64)) (*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (/.f64 y esp) phi0)) (asin.f64 (/.f64 (fabs.f64 (+.f64 (*.f64 (sin.f64 (/.f64 y esp)) (cos.f64 phi0)) (*.f64 (sin.f64 phi0) (cos.f64 (/.f64 y esp))))) (sqrt.f64 (-.f64 (*.f64 g g) #s(literal -1 binary64)))))) (*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 phi0 (/.f64 y esp))) (asin.f64 (*.f64 (*.f64 (sqrt.f64 (fabs.f64 (sin.f64 (+.f64 (/.f64 y esp) phi0)))) (sqrt.f64 (fabs.f64 (sin.f64 (+.f64 (/.f64 y esp) phi0))))) (/.f64 #s(literal 1 binary64) (cosh.f64 (asinh.f64 g)))))))
(if.f64 (<=.f64 (+.f64 #s(literal 1 binary64) (*.f64 g g)) #s(literal 2000000000000000000323530153572912876425337292463318876590990034202234998451477495730520486068427830507559547136360674832054891641135558399286783083212052137222301492244569952354513300088401054553614654135380924225322855000394102452979796521357526782898752177094584641628255914972661310937838244526555136 binary64)) (*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (/.f64 y esp) phi0)) (asin.f64 (/.f64 (fabs.f64 (+.f64 (*.f64 (sin.f64 (/.f64 y esp)) (cos.f64 phi0)) (*.f64 (sin.f64 phi0) (cos.f64 (/.f64 y esp))))) (sqrt.f64 (-.f64 (*.f64 g g) #s(literal -1 binary64)))))) (*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 phi0 (/.f64 y esp))) (asin.f64 (*.f64 (fabs.f64 (sin.f64 (+.f64 (/.f64 y esp) phi0))) (/.f64 #s(literal 1 binary64) (cosh.f64 (asinh.f64 g)))))))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 phi0 (/.f64 y esp))) (asin.f64 (*.f64 (fabs.f64 (+.f64 (*.f64 (sin.f64 phi0) (cos.f64 (/.f64 y esp))) (*.f64 (cos.f64 phi0) (sin.f64 (/.f64 y esp))))) (/.f64 #s(literal 1 binary64) (cosh.f64 (asinh.f64 g))))))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 phi0 (/.f64 y esp))) (asin.f64 (*.f64 (fabs.f64 (sin.f64 (+.f64 (/.f64 y esp) phi0))) (/.f64 #s(literal 1 binary64) (cosh.f64 (asinh.f64 g))))))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (/.f64 y esp) phi0)) (asin.f64 (/.f64 (fabs.f64 (sin.f64 (+.f64 (/.f64 y esp) phi0))) (cosh.f64 (asinh.f64 g)))))
(*.f64 (copysign.f64 #s(literal 1 binary64) (+.f64 (/.f64 y esp) phi0)) (asin.f64 (/.f64 (fabs.f64 (sin.f64 (+.f64 (/.f64 y esp) phi0))) (sqrt.f64 (-.f64 (*.f64 g g) #s(literal -1 binary64))))))
(*.f64 #s(literal 2 binary64) (*.f64 (sinh.f64 (*.f64 (/.f64 x esp) #s(literal 1/2 binary64))) (cosh.f64 (*.f64 x (/.f64 #s(literal -1/2 binary64) esp)))))
(sinh.f64 (/.f64 x esp))
(*.f64 (pow.f64 (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal -1 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))) (cos.f64 lam)) #s(literal -1 binary64)) (cos.f64 phi))
(*.f64 (/.f64 #s(literal 1 binary64) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1/2 binary64))) (*.f64 (+.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64))))) (cos.f64 lam))) (cos.f64 phi))
(/.f64 (cos.f64 phi) (/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal -1 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64)))) (cos.f64 lam)))
(/.f64 (*.f64 (cos.f64 phi) (cos.f64 lam)) (sqrt.f64 (+.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal -1 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1/2 binary64)))) #s(literal 1/2 binary64))))))
(*.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 (log.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) b))) ml0) (*.f64 (log.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) b) (-.f64 #s(literal 1 binary64) b)) (fabs.f64 (-.f64 b #s(literal -1 binary64))))) ml0))
(*.f64 ml0 (-.f64 (log.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) b))) (log.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) b) (-.f64 #s(literal 1 binary64) b)) (fabs.f64 (-.f64 b #s(literal -1 binary64)))))))
(-.f64 (*.f64 (log.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) b))) ml0) (*.f64 (log.f64 (fabs.f64 (-.f64 b #s(literal 1 binary64)))) ml0))
(*.f64 ml0 (-.f64 (log.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) b))) (log.f64 (fabs.f64 (-.f64 b #s(literal 1 binary64))))))
(*.f64 (neg.f64 ml0) (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) (-.f64 b #s(literal -1 binary64))) (-.f64 b #s(literal 1 binary64)))))
(*.f64 (neg.f64 ml0) (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 rone_es (*.f64 (*.f64 (*.f64 rone_es ca) es) ca)) (-.f64 rone_es (*.f64 (*.f64 (*.f64 rone_es ca) es) ca))) #s(literal 1 binary64))
(-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (*.f64 ca ca))) rone_es) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (*.f64 ca ca))) rone_es)) #s(literal 1 binary64))
(if.f64 (<=.f64 es #s(literal -8200000000000000135449271763368265673500092105233524144020068622909771066134613708452828685529806669146225962117960334938472448 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 2 binary64) es) sa) (*.f64 sa es)) (fabs.f64 rone_es)) (fabs.f64 rone_es)) (*.f64 (*.f64 (*.f64 rone_es (-.f64 #s(literal 2 binary64) es)) sa) (*.f64 (*.f64 rone_es sa) es)))
(if.f64 (<=.f64 es #s(literal -3999999999999999992869774256740965663955715475037650001746173358919761607623618597988463064569074240039108703867006661504928841728 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 rone_es sa) es) sa) (-.f64 #s(literal 2 binary64) es)) rone_es) (*.f64 (*.f64 (*.f64 rone_es (-.f64 #s(literal 2 binary64) es)) sa) (*.f64 (*.f64 rone_es sa) es)))
(*.f64 (*.f64 (*.f64 rone_es (-.f64 #s(literal 2 binary64) es)) sa) (*.f64 (*.f64 rone_es sa) es))
(if.f64 (<=.f64 (*.f64 (*.f64 es (*.f64 sa sa)) (*.f64 (-.f64 #s(literal 2 binary64) es) (*.f64 rone_es rone_es))) #s(literal +inf.0 binary64)) (*.f64 sa (*.f64 (*.f64 (*.f64 rone_es (-.f64 #s(literal 2 binary64) es)) sa) (*.f64 rone_es es))) (*.f64 (*.f64 (*.f64 rone_es sa) (*.f64 rone_es sa)) (*.f64 (-.f64 #s(literal 2 binary64) es) es)))
(*.f64 sa (*.f64 (*.f64 (*.f64 rone_es (-.f64 #s(literal 2 binary64) es)) sa) (*.f64 rone_es 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 rone_es)) (-.f64 #s(literal 2 binary64) es))))
(*.f64 (*.f64 (/.f64 k0 (sin.f64 #s(literal 27401669256311/20000000000000 binary64))) n0) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) #s(literal -27401669256311/20000000000000 binary64))))
(*.f64 (/.f64 k0 (tan.f64 (-.f64 (*.f64 #s(literal 4 binary64) (PI.f64)) #s(literal -27401669256311/20000000000000 binary64)))) n0)
(*.f64 (*.f64 n0 k0) (tan.f64 (-.f64 #s(literal -27401669256311/20000000000000 binary64) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(/.f64 (*.f64 k0 n0) (tan.f64 #s(literal 27401669256311/20000000000000 binary64)))
(*.f64 (/.f64 n0 (tan.f64 #s(literal 27401669256311/20000000000000 binary64))) k0)
(*.f64 (/.f64 k0 (tan.f64 #s(literal 27401669256311/20000000000000 binary64))) n0)
(/.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) es)) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi0 phi0)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64)))
(if.f64 (<=.f64 phi0 #s(literal 8981007029306309/1056589062271330492704679569833033213037694652072243044255921418053347805113449718948834511775314375789348789986514257357764695119005371074501077956925879153816773367998010168337463035352852882106048465816422376808296056585503123477676793797534072952979077161795475996672 binary64)) (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (+.f64 (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))))))) alpha)) (if.f64 (<=.f64 phi0 #s(literal 6338253001141147/633825300114114700748351602688 binary64)) (*.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64)) (PI.f64)) (PI.f64))) (neg.f64 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 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))))))) alpha))))
(if.f64 (<=.f64 phi0 #s(literal 8981007029306309/1056589062271330492704679569833033213037694652072243044255921418053347805113449718948834511775314375789348789986514257357764695119005371074501077956925879153816773367998010168337463035352852882106048465816422376808296056585503123477676793797534072952979077161795475996672 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/2 binary64) phi0)) (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 u0 u0) (PI.f64)) #s(literal 1/4 binary64))) g)) (if.f64 (<=.f64 phi0 #s(literal 6338253001141147/633825300114114700748351602688 binary64)) (*.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64)) (PI.f64)) (PI.f64))) (neg.f64 alpha)) g) (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 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/2 binary64) phi0)) (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 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 3495959950985713/1747979975492856518824388667826833403974715525645181428798916607807071777670465341756914322865272727992514618482604963383447074020817466839626771608982213111603568988524121832413745194182066575698549805189925857389888339453536229468710863470854144 binary64)) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (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 g (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))))) (/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) alpha)))
(if.f64 (<=.f64 phi0 #s(literal 8981007029306309/1056589062271330492704679569833033213037694652072243044255921418053347805113449718948834511775314375789348789986514257357764695119005371074501077956925879153816773367998010168337463035352852882106048465816422376808296056585503123477676793797534072952979077161795475996672 binary64)) (*.f64 (*.f64 g (pow.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) (+.f64 (cos.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))))) (*.f64 #s(literal 2 binary64) (cos.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal -1/4 binary64))))) (neg.f64 alpha))) (tan.f64 (-.f64 (*.f64 #s(literal 9/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) u0)))) (if.f64 (<=.f64 phi0 #s(literal 6338253001141147/633825300114114700748351602688 binary64)) (*.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64)) (PI.f64)) (PI.f64))) (neg.f64 alpha)) g) (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)))) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) (neg.f64 alpha)) (*.f64 g (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64))))))))
(if.f64 (<=.f64 phi0 #s(literal 8981007029306309/1056589062271330492704679569833033213037694652072243044255921418053347805113449718948834511775314375789348789986514257357764695119005371074501077956925879153816773367998010168337463035352852882106048465816422376808296056585503123477676793797534072952979077161795475996672 binary64)) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) (neg.f64 alpha)) (*.f64 g (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 (PI.f64) u0) u0))))) (if.f64 (<=.f64 phi0 #s(literal 6338253001141147/633825300114114700748351602688 binary64)) (*.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64)) (PI.f64)) (PI.f64))) (neg.f64 alpha)) g) (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)))) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) (neg.f64 alpha)) (*.f64 g (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64))))))))
(if.f64 (<=.f64 phi0 #s(literal 8981007029306309/1056589062271330492704679569833033213037694652072243044255921418053347805113449718948834511775314375789348789986514257357764695119005371074501077956925879153816773367998010168337463035352852882106048465816422376808296056585503123477676793797534072952979077161795475996672 binary64)) (*.f64 g (*.f64 (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) (neg.f64 alpha)))) (if.f64 (<=.f64 phi0 #s(literal 6338253001141147/633825300114114700748351602688 binary64)) (*.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64)) (PI.f64)) (PI.f64))) (neg.f64 alpha)) g) (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)))) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) (neg.f64 alpha)) (*.f64 g (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64))))))))
(if.f64 (<=.f64 phi0 #s(literal 8981007029306309/1056589062271330492704679569833033213037694652072243044255921418053347805113449718948834511775314375789348789986514257357764695119005371074501077956925879153816773367998010168337463035352852882106048465816422376808296056585503123477676793797534072952979077161795475996672 binary64)) (*.f64 g (*.f64 (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) (neg.f64 alpha)))) (if.f64 (<=.f64 phi0 #s(literal 6338253001141147/633825300114114700748351602688 binary64)) (*.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64)) (PI.f64)) (PI.f64))) (neg.f64 alpha)) g) (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64)))) (*.f64 g (*.f64 (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) (neg.f64 alpha))))))
(if.f64 (<=.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha) #s(literal 3495959950985713/1747979975492856518824388667826833403974715525645181428798916607807071777670465341756914322865272727992514618482604963383447074020817466839626771608982213111603568988524121832413745194182066575698549805189925857389888339453536229468710863470854144 binary64)) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (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 g (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))))) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) (neg.f64 alpha)) (*.f64 g (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64))))))))
(if.f64 (<=.f64 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (/.f64 (PI.f64) #s(literal 4 binary64)))) alpha) #s(literal 3495959950985713/1747979975492856518824388667826833403974715525645181428798916607807071777670465341756914322865272727992514618482604963383447074020817466839626771608982213111603568988524121832413745194182066575698549805189925857389888339453536229468710863470854144 binary64)) (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (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 g (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))))) (*.f64 g (*.f64 (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) (neg.f64 alpha)))))
(if.f64 (<=.f64 alpha #s(literal 2950000000000000064221684402299072237747255243097621135360 binary64)) (*.f64 (pow.f64 (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) (cos.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64))))) (neg.f64 alpha)) (*.f64 g (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 u0 u0) (PI.f64)))))) (*.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/2 binary64) phi0) (PI.f64))) (PI.f64))) (neg.f64 alpha)) (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) u0)))) g))
(/.f64 (*.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) u0) (/.f64 (PI.f64) #s(literal 4 binary64)))) g) (pow.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (PI.f64))) (PI.f64))) alpha))
(*.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/2 binary64) phi0) (PI.f64))) (PI.f64))) (neg.f64 alpha)) (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) u0)))) g)
(*.f64 (*.f64 (pow.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64)) (PI.f64)) (PI.f64))) (neg.f64 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 1/4 binary64)))) g) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi0) (*.f64 (PI.f64) #s(literal 1/4 binary64)))) alpha))
(*.f64 (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))) (neg.f64 alpha)) (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) u0)))) g)
(*.f64 (*.f64 g (pow.f64 (tan.f64 (*.f64 #s(literal 1/4 binary64) (+.f64 (+.f64 phi0 phi0) (PI.f64)))) (neg.f64 alpha))) (tan.f64 (-.f64 (*.f64 #s(literal 9/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) u0))))
(*.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi0 phi0) (PI.f64)) #s(literal 1/4 binary64))) (neg.f64 alpha)) g) (tan.f64 (*.f64 (+.f64 (+.f64 u0 u0) (PI.f64)) #s(literal 1/4 binary64))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 es (pow.f64 (cos.f64 phi0) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) es))))
(if.f64 (<=.f64 (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))))) #s(literal 0 binary64)) (*.f64 (*.f64 (*.f64 sa p22) (/.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 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64)))))) (cos.f64 lam)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))))))))
(if.f64 (<=.f64 (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))))) #s(literal 6931674235302037/693167423530203714894603546035770925859109268843954143792619895153655326951406405759993601526034894524347802740350892957243539456 binary64)) (*.f64 (*.f64 (*.f64 sa p22) (/.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 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64)))))) (cos.f64 lam)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) w) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))))))))
(if.f64 (<=.f64 (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))))) #s(literal 0 binary64)) (*.f64 (*.f64 (*.f64 sa p22) (/.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 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64)))))) (cos.f64 lam)) (if.f64 (<=.f64 (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))))) #s(literal 6124895493223875/9007199254740992 binary64)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (*.f64 (sqrt.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 (*.f64 (neg.f64 q) (sin.f64 lam)) (sin.f64 lam)) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)))))))) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) q) #s(literal -1 binary64))))))))))
(if.f64 (<=.f64 (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))))) #s(literal 0 binary64)) (*.f64 (*.f64 (*.f64 sa p22) (/.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 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64)))))) (cos.f64 lam)) (if.f64 (<=.f64 (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))))) #s(literal 6124895493223875/9007199254740992 binary64)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (*.f64 (sqrt.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 (*.f64 (neg.f64 q) (sin.f64 lam)) (sin.f64 lam)) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)))))))) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) w) #s(literal -1 binary64)) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) q) #s(literal -1 binary64))))))))))
(if.f64 (<=.f64 (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))))) #s(literal 6931674235302037/693167423530203714894603546035770925859109268843954143792619895153655326951406405759993601526034894524347802740350892957243539456 binary64)) (*.f64 (*.f64 (*.f64 sa p22) (/.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 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64)))))) (cos.f64 lam)) (if.f64 (<=.f64 (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))))) #s(literal 3602879701896397/18014398509481984 binary64)) (*.f64 (*.f64 p22 (cos.f64 lam)) (*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 (neg.f64 q) (sin.f64 lam)) (sin.f64 lam)) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) sa)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) w) #s(literal -1 binary64)) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) q) #s(literal -1 binary64))))))))))
(if.f64 (<=.f64 (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))))) #s(literal 6931674235302037/693167423530203714894603546035770925859109268843954143792619895153655326951406405759993601526034894524347802740350892957243539456 binary64)) (*.f64 (*.f64 (*.f64 sa p22) (/.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 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64)))))) (cos.f64 lam)) (if.f64 (<=.f64 (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))))) #s(literal 6800207735332289/18889465931478580854784 binary64)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) w) #s(literal -1 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))))))) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) w) #s(literal -1 binary64)) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) q) #s(literal -1 binary64))))))))))
(if.f64 (<=.f64 (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (*.f64 (sin.f64 lam) (sin.f64 lam)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))))) #s(literal 492525077454931/2462625387274654950767440006258975862817483704404090416746768337765357610718575663213391640930307227550414249394176 binary64)) (*.f64 (*.f64 (*.f64 sa p22) (/.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 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64)))))) (cos.f64 lam)) (*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 t (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) w) #s(literal -1 binary64)) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lam lam)))) q) #s(literal -1 binary64)))))))))
(*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (/.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) w) #s(literal 1 binary64))))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) q) #s(literal 1 binary64))))))))
(*.f64 p22 (*.f64 sa (*.f64 (cos.f64 lam) (sqrt.f64 (/.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) w) #s(literal 1 binary64))) (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)))))))
(*.f64 (*.f64 p22 (cos.f64 lam)) (*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) t) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64))) #s(literal 1 binary64))))) sa))
(*.f64 p22 (*.f64 (*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 (*.f64 t (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) q) #s(literal 1 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) w) #s(literal 1 binary64))))) (cos.f64 lam)) sa))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam))) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 w (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 (*.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 (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam))))) (-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (*.f64 p22 ca)))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))) (-.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 w (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))))) (*.f64 p22 ca)))
(*.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 #s(literal 1/2 binary64) q) (*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 #s(literal 0 binary64) (+.f64 lam lam)) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 #s(literal 0 binary64) (+.f64 lam lam)) #s(literal 2 binary64)))))) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 #s(literal 0 binary64) (+.f64 lam lam)) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 #s(literal 0 binary64) (+.f64 lam lam)) #s(literal 2 binary64)))))) #s(literal -1 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 (*.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 (*.f64 #s(literal 1/2 binary64) w) (*.f64 #s(literal -2 binary64) (*.f64 (sin.f64 (/.f64 (-.f64 #s(literal 0 binary64) (+.f64 lam lam)) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 #s(literal 0 binary64) (+.f64 lam lam)) #s(literal 2 binary64)))))) #s(literal -1 binary64))) (*.f64 p22 ca)))
(if.f64 (<=.f64 q #s(literal 1000000000000000044885712678075916785549312 binary64)) (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam)))))) (*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)))) (-.f64 (/.f64 (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) (*.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))) (+.f64 #s(literal 1 binary64) (*.f64 q (*.f64 (sin.f64 lam) (sin.f64 lam)))))) (*.f64 p22 ca))))
(if.f64 (<=.f64 q #s(literal 1000000000000000044885712678075916785549312 binary64)) (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam)))))) (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)))))))
(if.f64 (<=.f64 w #s(literal 499999999999999969129150412640989270163513682236062239147208106269435745912299856818410263751954127650816 binary64)) (*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam))))) (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))) (*.f64 p22 ca))) (*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (sin.f64 lam)) (sin.f64 lam)))))))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (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 (pow.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))) (*.f64 p22 ca)))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (-.f64 q (*.f64 (cos.f64 (+.f64 lam lam)) q)))) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 (sin.f64 lam) q) (sin.f64 lam))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))))))
(*.f64 (sqrt.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 q (pow.f64 (sin.f64 lam) #s(literal 2 binary64)))) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)))) (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64))) (*.f64 p22 ca)))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (/.f64 (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)))) (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) w) #s(literal -1/2 binary64)) #s(literal 1 binary64))))))
(*.f64 (-.f64 (/.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) w) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)) (pow.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))))) #s(literal 2 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))))))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64)) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (*.f64 (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam))) w) #s(literal -1/2 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) q) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal -1 binary64)))))
(*.f64 (-.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (-.f64 q (*.f64 (cos.f64 (+.f64 lam lam)) q)))) #s(literal -2 binary64)) (-.f64 (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64)) #s(literal -1 binary64))) (*.f64 ca p22)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 q (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (*.f64 w (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 lam lam)))) #s(literal 1/2 binary64))))))
(*.f64 mult (*.f64 (/.f64 (+.f64 xj h) (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj)))) s))
(*.f64 mult (/.f64 (-.f64 (*.f64 h xj) (*.f64 s s)) (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))
(if.f64 (<=.f64 e #s(literal -27000000000000000272201560951048948638073988074511155660131659160375254418661448060411764897588050795399108491039797061217844805109243401009440280522115800418461654416147295710971086451385184851363230110231021710475264 binary64)) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64))))) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal -839999999999999986840656243592097612975171065934769621745209098185440815219332297188173938606680351937921024 binary64)) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal 270000000000000000894110038240151998536683494285364510899883875717947484657928571598881190509019136 binary64)) (/.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (*.f64 e #s(literal 1/2 binary64))) (cos.f64 phi)) (-.f64 (sin.f64 phi) #s(literal -1 binary64))) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64))))) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e))))))
(if.f64 (<=.f64 e #s(literal -27000000000000000272201560951048948638073988074511155660131659160375254418661448060411764897588050795399108491039797061217844805109243401009440280522115800418461654416147295710971086451385184851363230110231021710475264 binary64)) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64))))) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal -839999999999999986840656243592097612975171065934769621745209098185440815219332297188173938606680351937921024 binary64)) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal 270000000000000000894110038240151998536683494285364510899883875717947484657928571598881190509019136 binary64)) (*.f64 (cos.f64 phi) (/.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (*.f64 e #s(literal 1/2 binary64))) (-.f64 (sin.f64 phi) #s(literal -1 binary64)))) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64))))) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e))))))
(if.f64 (<=.f64 e #s(literal -27000000000000000272201560951048948638073988074511155660131659160375254418661448060411764897588050795399108491039797061217844805109243401009440280522115800418461654416147295710971086451385184851363230110231021710475264 binary64)) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64))))) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal -130000000000000005723571947544438292554521954144678769275685764875122985731145995914860441978030839927144448 binary64)) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal 649999999999999995706459206357539895261016217557974883628879067319594526438197892743168 binary64)) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (*.f64 e #s(literal 1/2 binary64))) (tan.f64 (+.f64 (-.f64 (*.f64 (PI.f64) #s(literal 4 binary64)) (-.f64 (*.f64 (-.f64 phi (*.f64 (PI.f64) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) (PI.f64))) (+.f64 (PI.f64) (PI.f64))))) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64))))) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e))))))
(if.f64 (<=.f64 e #s(literal -27000000000000000272201560951048948638073988074511155660131659160375254418661448060411764897588050795399108491039797061217844805109243401009440280522115800418461654416147295710971086451385184851363230110231021710475264 binary64)) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64))))) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal -130000000000000005723571947544438292554521954144678769275685764875122985731145995914860441978030839927144448 binary64)) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64)))))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal 61999999999999998289293021408374110448300755816879738906830557644497808899772036577663146524672 binary64)) (*.f64 (pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 e #s(literal 1/2 binary64))) (tan.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64)))) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64))))) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e))))))
(if.f64 (<=.f64 e #s(literal -299999999999999993114853979573600988534052815977245001838998792419598035654236973390978388344453464064 binary64)) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64))))) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e))) (if.f64 (<=.f64 e #s(literal 61999999999999998289293021408374110448300755816879738906830557644497808899772036577663146524672 binary64)) (*.f64 (pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 e #s(literal 1/2 binary64))) (tan.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64)))) (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) phi))) (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (sin.f64 (+.f64 (neg.f64 phi) (PI.f64))))) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 #s(literal 1/2 binary64) e)))))
(*.f64 (pow.f64 (*.f64 (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e))) (*.f64 e #s(literal 1/2 binary64))) (tan.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64))))
(*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) e)) (-.f64 (*.f64 (sin.f64 phi) e) #s(literal 1 binary64))) (*.f64 e #s(literal 1/2 binary64))) (tan.f64 (*.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) phi) #s(literal 1/2 binary64))))
(+.f64 #s(literal 9827991/390625000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Yr) (+.f64 (*.f64 #s(literal -4668270147/10000000000000000 binary64) Xr) (+.f64 (*.f64 #s(literal 2 binary64) (*.f64 #s(literal 4616990181/500000000000000000000 binary64) (*.f64 Xr Yr))) (+.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (-.f64 (*.f64 Xr Xr) (*.f64 Yr Yr))) (+.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) (*.f64 Xr (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr))))) (+.f64 (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) (*.f64 Yr (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr)))) (+.f64 (*.f64 (*.f64 #s(literal -4165541759/500000000000000000000000000000000 binary64) (*.f64 (*.f64 Xr Xr) Xr)) Xr) (-.f64 (*.f64 (*.f64 (*.f64 Yr Yr) (+.f64 (*.f64 #s(literal -6 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) #s(literal -4165541759/500000000000000000000000000000000 binary64)) (*.f64 #s(literal -3689471323/250000000000000000000000000000000 binary64) (*.f64 (*.f64 (-.f64 Xr Yr) (+.f64 Xr Yr)) (*.f64 Xr Yr))))))))))))
(-.f64 (-.f64 (-.f64 (*.f64 Yr #s(literal 149230739/1250000000000000 binary64)) #s(literal -9827991/390625000 binary64)) (-.f64 (*.f64 #s(literal -4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 Xr #s(literal -4668270147/10000000000000000 binary64)))) (-.f64 (-.f64 (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) Xr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr))) (-.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 (*.f64 #s(literal 6 binary64) Xr) Xr)) Yr) Yr) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr)) #s(literal -4165541759/500000000000000000000000000000000 binary64)) (*.f64 (*.f64 #s(literal 3689471323/250000000000000000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 (-.f64 Xr Yr) (+.f64 Xr Yr)))) (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr)))) (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr))))
(-.f64 (-.f64 (-.f64 (*.f64 Yr #s(literal 149230739/1250000000000000 binary64)) #s(literal -9827991/390625000 binary64)) (-.f64 (*.f64 #s(literal -4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 Xr #s(literal -4668270147/10000000000000000 binary64)))) (-.f64 (-.f64 (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) Xr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr))) (-.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 Yr Yr) (+.f64 (*.f64 #s(literal -6 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr)) #s(literal -4165541759/500000000000000000000000000000000 binary64)) (*.f64 (*.f64 #s(literal 3689471323/250000000000000000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 (-.f64 Xr Yr) (+.f64 Xr Yr)))) (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr)))) (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr))))
(-.f64 (-.f64 (-.f64 (*.f64 Yr #s(literal 149230739/1250000000000000 binary64)) #s(literal -9827991/390625000 binary64)) (-.f64 (*.f64 #s(literal -4616990181/250000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 Xr #s(literal -4668270147/10000000000000000 binary64)))) (-.f64 (-.f64 (*.f64 (*.f64 #s(literal 881662847/200000000000000000000000000 binary64) Xr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr)) (*.f64 Xr Xr))) (-.f64 (+.f64 (*.f64 (+.f64 (*.f64 (*.f64 Yr Yr) (+.f64 (*.f64 #s(literal -6 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr))) (*.f64 (*.f64 Xr Xr) (*.f64 Xr Xr))) #s(literal -4165541759/500000000000000000000000000000000 binary64)) (*.f64 (*.f64 #s(literal 3689471323/250000000000000000000000000000000 binary64) (*.f64 Xr Yr)) (*.f64 (-.f64 Xr Yr) (+.f64 Xr Yr)))) (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr))) (*.f64 #s(literal 212097503/125000000000000000000000000 binary64) Yr)))) (*.f64 (*.f64 #s(literal 304747143/200000000000000000000 binary64) (+.f64 Xr Yr)) (-.f64 Xr Yr))))
(-.f64 (-.f64 (-.f64 (*.f64 Yr (-.f64 #s(literal 4668270147/10000000000000000 binary64) (*.f64 #s(literal 304747143/100000000000000000000 binary64) Xr))) (-.f64 (-.f64 (+.f64 (-.f64 (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Yr Xr) (+.f64 Yr Xr))) (*.f64 (*.f64 (*.f64 (*.f64 Xr Xr) Xr) #s(literal -3689471323/1000000000000000000000000000000000 binary64)) Xr)) (*.f64 (*.f64 (-.f64 (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr)) Yr) (neg.f64 (*.f64 #s(literal 3689471323/1000000000000000000000000000000000 binary64) Yr)))) (*.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 (-.f64 Yr Xr) #s(literal 4616990181/500000000000000000000 binary64)) (+.f64 Yr Xr))) (-.f64 #s(literal -2946529277/100000000000 binary64) (*.f64 Xr #s(literal 149230739/1250000000000000 binary64))))
(-.f64 (-.f64 (-.f64 (*.f64 Yr (-.f64 #s(literal 4668270147/10000000000000000 binary64) (*.f64 #s(literal 304747143/100000000000000000000 binary64) Xr))) (-.f64 (-.f64 (-.f64 (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Yr Xr) (+.f64 Yr Xr))) (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))) (*.f64 Yr Yr)) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr)) #s(literal -3689471323/1000000000000000000000000000000000 binary64))) (*.f64 (*.f64 #s(literal -881662847/200000000000000000000000000 binary64) Yr) (-.f64 (*.f64 #s(literal 3 binary64) (*.f64 Xr Xr)) (*.f64 Yr Yr)))) (*.f64 (*.f64 (-.f64 (*.f64 Xr Xr) (*.f64 #s(literal 3 binary64) (*.f64 Yr Yr))) Xr) #s(literal 212097503/125000000000000000000000000 binary64)))) (*.f64 (*.f64 (-.f64 Yr Xr) #s(literal 4616990181/500000000000000000000 binary64)) (+.f64 Yr Xr))) (-.f64 #s(literal -2946529277/100000000000 binary64) (*.f64 Xr #s(literal 149230739/1250000000000000 binary64))))
(-.f64 (-.f64 (-.f64 (*.f64 Yr (-.f64 #s(literal 4668270147/10000000000000000 binary64) (*.f64 #s(literal 304747143/100000000000000000000 binary64) Xr))) (-.f64 (-.f64 (-.f64 (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Yr Xr) (+.f64 Yr Xr))) (*.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))) Yr) Yr) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr)) #s(literal -3689471323/1000000000000000000000000000000000 binary64))) (*.f64 (*.f64 #s(literal -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 (-.f64 Yr Xr) #s(literal 4616990181/500000000000000000000 binary64)) (+.f64 Yr Xr))) (-.f64 #s(literal -2946529277/100000000000 binary64) (*.f64 Xr #s(literal 149230739/1250000000000000 binary64))))
(+.f64 #s(literal 2946529277/100000000000 binary64) (+.f64 (*.f64 #s(literal 149230739/1250000000000000 binary64) Xr) (-.f64 (-.f64 (*.f64 Yr (-.f64 #s(literal 4668270147/10000000000000000 binary64) (*.f64 #s(literal 304747143/100000000000000000000 binary64) Xr))) (*.f64 (*.f64 (-.f64 Yr Xr) #s(literal 4616990181/500000000000000000000 binary64)) (+.f64 Yr Xr))) (-.f64 (-.f64 (-.f64 (*.f64 (*.f64 #s(literal -4165541759/125000000000000000000000000000000 binary64) (*.f64 Yr Xr)) (*.f64 (-.f64 Yr Xr) (+.f64 Yr Xr))) (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 Yr Yr) (*.f64 #s(literal 6 binary64) (*.f64 Xr Xr))) (*.f64 Yr Yr)) (*.f64 (*.f64 (*.f64 Xr Xr) Xr) Xr)) #s(literal -3689471323/1000000000000000000000000000000000 binary64))) (*.f64 (*.f64 #s(literal -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))))))))
(asin.f64 (+.f64 (/.f64 (sin.f64 u) (/.f64 #s(literal 1 binary64) (cos.f64 ad))) (*.f64 (*.f64 (sin.f64 ad) (cos.f64 deltav)) (cos.f64 u))))
(asin.f64 (+.f64 (*.f64 (cos.f64 ad) (sin.f64 u)) (*.f64 (*.f64 (sin.f64 ad) (cos.f64 deltav)) (cos.f64 u))))
(asin.f64 (+.f64 (*.f64 (cos.f64 ad) (sin.f64 u)) (*.f64 (sin.f64 ad) (*.f64 (cos.f64 u) (cos.f64 deltav)))))
(asin.f64 (-.f64 (*.f64 (sin.f64 s) (cos.f64 ad)) (*.f64 (*.f64 (cos.f64 d) (cos.f64 s)) (sin.f64 ad))))
(+.f64 (*.f64 (atan.f64 (*.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) (pow.f64 (/.f64 rho0 rho) (/.f64 #s(literal 1 binary64) n)))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(*.f64 (/.f64 Esc (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) Up)))) (sqrt.f64 (fabs.f64 (-.f64 Up #s(literal 1 binary64)))))
(*.f64 (sqrt.f64 (fabs.f64 (*.f64 (/.f64 #s(literal -1 binary64) (-.f64 Up #s(literal -1 binary64))) (-.f64 #s(literal 1 binary64) Up)))) Esc)
(*.f64 (sqrt.f64 (fabs.f64 (/.f64 (-.f64 #s(literal 1 binary64) Up) (-.f64 Up #s(literal -1 binary64))))) Esc)
(+.f64 (*.f64 (atan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (exp.f64 (/.f64 y kR))))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(+.f64 (*.f64 (atan.f64 (exp.f64 (/.f64 y kR))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(asin.f64 (+.f64 (*.f64 cosp0 (sin.f64 phipp)) (*.f64 sinp0 (*.f64 (cos.f64 phipp) (cos.f64 lampp)))))
(+.f64 (*.f64 (atan.f64 fac) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64)))
(*.f64 #s(literal 2 binary64) (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (-.f64 (*.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 u #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) u)))) (*.f64 (-.f64 (cos.f64 (*.f64 #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 #s(literal 1 binary64) alpha)) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (pow.f64 k (/.f64 #s(literal -1 binary64) alpha))))) #s(literal 4 binary64)) (PI.f64)))))
(*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 u #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) u)))) (*.f64 (-.f64 (cos.f64 (*.f64 #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 #s(literal 1 binary64) alpha)) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (pow.f64 k (/.f64 #s(literal -1 binary64) alpha))))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))
(*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (pow.f64 k (/.f64 #s(literal -1 binary64) alpha))) (pow.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (+.f64 (sin.f64 (*.f64 u #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) u)))) (cos.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64)))) (/.f64 #s(literal 1 binary64) alpha)))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))
(if.f64 (<=.f64 k #s(literal 8317409638948649/38685626227668133590597632 binary64)) (+.f64 (*.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (pow.f64 k (/.f64 #s(literal -1 binary64) alpha))) (pow.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/2 binary64) u) (PI.f64))) (PI.f64))) (/.f64 #s(literal 1 binary64) alpha)))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64))) (*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (+.f64 u u) (PI.f64))))) (/.f64 #s(literal 1 binary64) alpha)) (pow.f64 k (/.f64 #s(literal -1 binary64) alpha))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)))
(if.f64 (<=.f64 k #s(literal 8317409638948649/38685626227668133590597632 binary64)) (+.f64 (*.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))) (pow.f64 k (/.f64 #s(literal -1 binary64) alpha))) (pow.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (-.f64 (*.f64 #s(literal -1/2 binary64) u) (PI.f64))) (PI.f64))) (/.f64 #s(literal 1 binary64) alpha)))) #s(literal 2 binary64)) (*.f64 (PI.f64) #s(literal -1/2 binary64))) (*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) alpha)) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64)))) (pow.f64 k (/.f64 #s(literal 1 binary64) alpha)))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)))
(*.f64 (-.f64 (atan.f64 (*.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 u u) (PI.f64)) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) alpha)) (pow.f64 k (/.f64 #s(literal -1 binary64) alpha))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 fi) evar)) (-.f64 (*.f64 (sin.f64 fi) evar) #s(literal 1 binary64))) (*.f64 evar #s(literal 1/2 binary64))))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))
(asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 (*.f64 es spp) spp)))))
(asin.f64 (/.f64 spp (sqrt.f64 (+.f64 (*.f64 one_es one_es) (*.f64 es (*.f64 spp spp))))))
(atan.f64 (/.f64 (/.f64 (-.f64 (*.f64 (cos.f64 lamt) (tan.f64 lamdp)) (*.f64 (sin.f64 lamt) ca)) one_es) sa))
(atan.f64 (/.f64 (-.f64 (*.f64 (tan.f64 lamdp) (cos.f64 lamt)) (*.f64 ca (sin.f64 lamt))) (*.f64 one_es sa)))
(atan.f64 (/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 rone_es spp) spp)) (*.f64 (tan.f64 lamdp) ca)) (/.f64 (*.f64 (*.f64 sa spp) (sqrt.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 spp spp)) (-.f64 (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 2 binary64)) q) #s(literal -1 binary64))) (*.f64 u (*.f64 spp spp))))) (cos.f64 lamdp))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 spp spp) (+.f64 #s(literal 1 binary64) u)))))
(atan.f64 (/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 spp spp) rone_es)) (*.f64 (tan.f64 lamdp) ca)) (/.f64 (*.f64 spp (*.f64 sa (sqrt.f64 (fabs.f64 (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lamdp lamdp)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) q) #s(literal 1 binary64)) (-.f64 (*.f64 spp spp) #s(literal 1 binary64))) (*.f64 u (*.f64 spp spp))))))) (cos.f64 lamdp))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 spp spp) (+.f64 #s(literal 1 binary64) u)))))
(atan.f64 (/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 rone_es spp) spp)) (*.f64 (tan.f64 lamdp) ca)) (/.f64 (*.f64 (*.f64 sa spp) (sqrt.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 spp spp)) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lamdp lamdp)) #s(literal 1/2 binary64))) q) #s(literal -1 binary64))) (*.f64 u (*.f64 spp spp))))) (cos.f64 lamdp))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 spp spp) (+.f64 #s(literal 1 binary64) u)))))
(atan.f64 (/.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 rone_es spp) spp)) (*.f64 ca (tan.f64 lamdp))) (*.f64 (*.f64 spp (sqrt.f64 (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lamdp lamdp)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) q) #s(literal 1 binary64)) (-.f64 (*.f64 spp spp) #s(literal 1 binary64))) (*.f64 u (*.f64 spp spp))))) (/.f64 sa (cos.f64 lamdp)))) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal -1 binary64) u) spp) spp) #s(literal -1 binary64))))
(atan.f64 (/.f64 (-.f64 (*.f64 (*.f64 (*.f64 (sin.f64 lamdp) ca) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 rone_es spp) spp))) #s(literal 1 binary64)) (*.f64 (sqrt.f64 (-.f64 (*.f64 (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lamdp lamdp)))) q) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 spp spp))) (*.f64 u (*.f64 spp spp)))) (*.f64 sa spp))) (*.f64 (cos.f64 lamdp) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal -1 binary64) u) spp) spp) #s(literal -1 binary64)))))
(asin.f64 (*.f64 (/.f64 (sin.f64 lampp) (cos.f64 phip)) (cos.f64 phipp)))
(asin.f64 (*.f64 (/.f64 (cos.f64 phipp) (cos.f64 phip)) (sin.f64 lampp)))
(if.f64 (<=.f64 (-.f64 (-.f64 (-.f64 (+.f64 xy_x (*.f64 xy_y (/.f64 s xj))) (*.f64 a2 (sin.f64 (*.f64 #s(literal 2 binary64) lamdp)))) (*.f64 a4 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)))) (*.f64 (/.f64 s xj) (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))) #s(literal 9999999999999999860310597602564577717002641838126363875249660735883565852672743849064846414228960666786379280392654615393353172850252103336275952370615397010730691664689375178569039851073146339641623266071126720011020169553304018596457812688561947201171488461172921822139066929851282122002676667750021070848 binary64)) (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 (*.f64 (/.f64 s xj) xy_y) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) (*.f64 (/.f64 s xj) (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 lamdp lamdp)))) (*.f64 (sin.f64 lamdp) #s(literal 4 binary64)))))))) b) (/.f64 (-.f64 (*.f64 (neg.f64 a4) (sin.f64 (*.f64 #s(literal 4 binary64) lamdp))) (+.f64 (/.f64 (-.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64))) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y))) xj) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2))) b))
(if.f64 (<=.f64 (-.f64 (-.f64 (-.f64 (+.f64 xy_x (*.f64 xy_y (/.f64 s xj))) (*.f64 a2 (sin.f64 (*.f64 #s(literal 2 binary64) lamdp)))) (*.f64 a4 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)))) (*.f64 (/.f64 s xj) (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))) #s(literal 9999999999999999860310597602564577717002641838126363875249660735883565852672743849064846414228960666786379280392654615393353172850252103336275952370615397010730691664689375178569039851073146339641623266071126720011020169553304018596457812688561947201171488461172921822139066929851282122002676667750021070848 binary64)) (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 xy_x (*.f64 xy_y (/.f64 s xj))) (*.f64 a2 (sin.f64 (*.f64 #s(literal 2 binary64) lamdp)))) (*.f64 a4 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)))) (*.f64 (/.f64 s xj) (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64))))))) b) (/.f64 (-.f64 (*.f64 (neg.f64 a4) (sin.f64 (*.f64 #s(literal 4 binary64) lamdp))) (+.f64 (/.f64 (-.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64))) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y))) xj) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2))) b))
(if.f64 (<=.f64 (-.f64 (-.f64 (-.f64 (+.f64 xy_x (*.f64 xy_y (/.f64 s xj))) (*.f64 a2 (sin.f64 (*.f64 #s(literal 2 binary64) lamdp)))) (*.f64 a4 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)))) (*.f64 (/.f64 s xj) (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))) #s(literal 9999999999999999860310597602564577717002641838126363875249660735883565852672743849064846414228960666786379280392654615393353172850252103336275952370615397010730691664689375178569039851073146339641623266071126720011020169553304018596457812688561947201171488461172921822139066929851282122002676667750021070848 binary64)) (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 (*.f64 (/.f64 s xj) xy_y) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) (/.f64 s xj))) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) b) (/.f64 (-.f64 (*.f64 (neg.f64 a4) (sin.f64 (*.f64 #s(literal 4 binary64) lamdp))) (+.f64 (/.f64 (-.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 #s(literal 3 binary64) (sin.f64 lamdp)) (*.f64 (pow.f64 (sin.f64 lamdp) #s(literal 3 binary64)) #s(literal 4 binary64))) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y))) xj) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2))) b))
(if.f64 (<=.f64 (-.f64 (-.f64 (-.f64 (+.f64 xy_x (*.f64 xy_y (/.f64 s xj))) (*.f64 a2 (sin.f64 (*.f64 #s(literal 2 binary64) lamdp)))) (*.f64 a4 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)))) (*.f64 (/.f64 s xj) (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))) #s(literal 9999999999999999860310597602564577717002641838126363875249660735883565852672743849064846414228960666786379280392654615393353172850252103336275952370615397010730691664689375178569039851073146339641623266071126720011020169553304018596457812688561947201171488461172921822139066929851282122002676667750021070848 binary64)) (/.f64 (-.f64 (-.f64 (-.f64 (+.f64 (*.f64 (/.f64 s xj) xy_y) xy_x) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2)) (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) (/.f64 s xj))) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) b) (*.f64 (/.f64 #s(literal -1 binary64) b) (+.f64 (+.f64 (/.f64 (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y))) xj) (*.f64 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp)) a4)) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2))))
(if.f64 (<=.f64 xj #s(literal -11500000000000000025959573009090126300911740612139143939514957824 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 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) xj) s)) b) (if.f64 (<=.f64 xj #s(literal 3149641043687537/8749002899132047697490008908470485461412677723572849745703082425639811996797503692894052708092215296 binary64)) (/.f64 (-.f64 (*.f64 (neg.f64 a4) (sin.f64 (*.f64 #s(literal 4 binary64) lamdp))) (+.f64 (/.f64 (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y))) xj) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2))) b) (/.f64 (-.f64 (-.f64 (-.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)))
(/.f64 (-.f64 (*.f64 (neg.f64 a4) (sin.f64 (*.f64 #s(literal 4 binary64) lamdp))) (+.f64 (/.f64 (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3) (*.f64 (sin.f64 lamdp) c1)) s) (+.f64 (*.f64 xj xy_x) (*.f64 s xy_y))) xj) (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2))) b)
(if.f64 (<=.f64 (cos.f64 (*.f64 BrA u)) #s(literal -3242591731706757/72057594037927936 binary64)) (neg.f64 (*.f64 rB (atan2.f64 (-.f64 (*.f64 Sp cosgam) (*.f64 Vp singam)) (/.f64 (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (neg.f64 (+.f64 (fabs.f64 (*.f64 u BrA)) (*.f64 #s(literal -1/2 binary64) (PI.f64)))))) (sin.f64 (+.f64 (+.f64 #s(literal 0 binary64) (fabs.f64 (*.f64 u BrA))) (*.f64 #s(literal 3/2 binary64) (PI.f64))))) #s(literal 2 binary64))))) (neg.f64 (*.f64 rB (atan2.f64 (-.f64 (*.f64 Sp cosgam) (*.f64 Vp singam)) (-.f64 (*.f64 (cos.f64 (+.f64 (PI.f64) (*.f64 u BrA))) (cos.f64 (PI.f64))) #s(literal 0 binary64))))))
(if.f64 (<=.f64 (cos.f64 (*.f64 BrA u)) #s(literal -3242591731706757/72057594037927936 binary64)) (neg.f64 (*.f64 rB (atan2.f64 (-.f64 (*.f64 Sp cosgam) (*.f64 Vp singam)) (cos.f64 (*.f64 BrA u))))) (neg.f64 (*.f64 rB (atan2.f64 (-.f64 (*.f64 Sp cosgam) (*.f64 Vp singam)) (-.f64 (*.f64 (cos.f64 (+.f64 (PI.f64) (*.f64 u BrA))) (cos.f64 (PI.f64))) #s(literal 0 binary64))))))
(if.f64 (<=.f64 Vp #s(literal -7640326184937599/77962512091199992642827059103001506487009814860760060214943251657703589526131408819724920527056082073802439329851269345467673358921624752372623898370501227356250221599651784238966317243920429186822396747833747030989484783403158999565970908923751724902621910424834220376654628719935312887808 binary64)) (*.f64 (atan2.f64 (-.f64 (*.f64 cosgam Sp) (*.f64 singam Vp)) (sin.f64 (-.f64 (fabs.f64 (*.f64 u BrA)) (-.f64 (*.f64 #s(literal -3/2 binary64) (PI.f64)) (PI.f64))))) (neg.f64 rB)) (neg.f64 (*.f64 rB (atan2.f64 (-.f64 (*.f64 Sp cosgam) (*.f64 Vp singam)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 u BrA)))))))
(if.f64 (<=.f64 Vp #s(literal -7640326184937599/77962512091199992642827059103001506487009814860760060214943251657703589526131408819724920527056082073802439329851269345467673358921624752372623898370501227356250221599651784238966317243920429186822396747833747030989484783403158999565970908923751724902621910424834220376654628719935312887808 binary64)) (neg.f64 (*.f64 rB (atan2.f64 (-.f64 (*.f64 Sp cosgam) (*.f64 Vp singam)) (sin.f64 (-.f64 (*.f64 u BrA) (*.f64 #s(literal -1/2 binary64) (PI.f64))))))) (neg.f64 (*.f64 rB (atan2.f64 (-.f64 (*.f64 Sp cosgam) (*.f64 Vp singam)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 u BrA)))))))
(neg.f64 (*.f64 rB (atan2.f64 (-.f64 (*.f64 Sp cosgam) (*.f64 Vp singam)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 u BrA))))))
(neg.f64 (*.f64 rB (atan2.f64 (-.f64 (*.f64 Sp cosgam) (*.f64 Vp singam)) (cos.f64 (*.f64 BrA u)))))
(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 (+.f64 (*.f64 (/.f64 s xj) s) xj) xj)) (-.f64 xy_y (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp))))))))
(exp.f64 (*.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (/.f64 s xj) s) xj) xj)) (-.f64 xy_y (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))))
(exp.f64 (*.f64 (-.f64 (-.f64 xy_y (*.f64 (sin.f64 lamdp) c1)) (*.f64 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)) c3)) (sqrt.f64 (-.f64 (*.f64 (/.f64 s (*.f64 xj xj)) s) #s(literal -1 binary64)))))
(exp.f64 (*.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (/.f64 (*.f64 s s) (*.f64 xj xj)))) (-.f64 xy_y (+.f64 (*.f64 c1 (sin.f64 lamdp)) (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp)))))))
(*.f64 ecc (sin.f64 phip))
(if.f64 (<=.f64 (*.f64 (-.f64 (+.f64 con (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 ecc (sin.f64 phip)) (*.f64 ecc (sin.f64 phip)))) (*.f64 (cos.f64 phip) rone_es))) #s(literal 399999999999999985402747471836714233263609099131970306129257941944886985204960823250697371483281971199351139752004816151100759014175840875167772591175152581284266098322472946635874533451032360110801341245975019913337470519502956549993504054630757725647472835304299806977941307392 binary64)) (*.f64 (-.f64 (+.f64 con (log.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phip #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 21/4 binary64) (PI.f64)) (PI.f64))) (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))) (*.f64 (-.f64 (-.f64 (+.f64 con (log.f64 (fabs.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))))) (log.f64 (fabs.f64 (-.f64 (*.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/2 binary64) phip)) (sin.f64 (*.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 (*.f64 (*.f64 ecc ecc) (-.f64 (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal -1 binary64)) (*.f64 (cos.f64 phip) rone_es))))
(if.f64 (<=.f64 (*.f64 (-.f64 (+.f64 con (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phip))))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 ecc (sin.f64 phip)) (*.f64 ecc (sin.f64 phip)))) (*.f64 (cos.f64 phip) rone_es))) #s(literal 499999999999999988524756632622668314223421359962075003064997987365996726090394955651630647240755773440 binary64)) (*.f64 (-.f64 (+.f64 con (log.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phip #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 21/4 binary64) (PI.f64)) (PI.f64))) (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))) (*.f64 (*.f64 (cos.f64 phip) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 ecc ecc)) #s(literal -1 binary64))) (*.f64 rone_es (-.f64 (+.f64 (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64))))) con) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e)))))
(*.f64 (*.f64 (cos.f64 phip) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 ecc ecc)) #s(literal -1 binary64))) (*.f64 rone_es (-.f64 (+.f64 (neg.f64 (log.f64 (fabs.f64 (tan.f64 (+.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/2 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 (cos.f64 phip) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 ecc ecc)) #s(literal -1 binary64))) (*.f64 rone_es (-.f64 (+.f64 (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64))))) con) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e))))
(*.f64 (*.f64 (cos.f64 phip) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) (*.f64 ecc ecc)) #s(literal -1 binary64))) (*.f64 rone_es (-.f64 (+.f64 (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))) con) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64)))) hlf_e))))
(*.f64 (*.f64 (cos.f64 phip) (-.f64 (*.f64 (*.f64 ecc ecc) (-.f64 (*.f64 (cos.f64 (+.f64 phip phip)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) #s(literal -1 binary64))) (*.f64 rone_es (+.f64 (log.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phip) ecc)) (-.f64 (*.f64 (sin.f64 phip) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64))))) con)))
(/.f64 (-.f64 K (log.f64 (/.f64 (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))))) (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phip #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))))))) c)
(/.f64 (-.f64 K (log.f64 (/.f64 (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phip #s(literal 1/2 binary64)))))) (fabs.f64 (*.f64 (-.f64 (sin.f64 (*.f64 phip #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip))) (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) c)
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip)))) #s(literal -5764607523034235/144115188075855872 binary64)) (/.f64 (-.f64 K (log.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) c) (/.f64 (-.f64 K (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) c))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip)))) #s(literal 1 binary64)) (/.f64 (-.f64 K (log.f64 (/.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) c) (/.f64 (-.f64 K (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))))))) c))
(/.f64 (-.f64 K (log.f64 (/.f64 (fabs.f64 (cos.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phip)))) (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phip #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))))))) c)
(/.f64 (-.f64 K (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)) (sin.f64 (*.f64 phip #s(literal 1/2 binary64))))))) (fabs.f64 (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))) c)
(/.f64 (-.f64 K (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (-.f64 (sin.f64 (*.f64 phip #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip)))))))) c)
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip)))) #s(literal -6338253001141147/316912650057057350374175801344 binary64)) (/.f64 (-.f64 K (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64))))) c) (if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip)))) #s(literal 1 binary64)) (/.f64 (-.f64 K (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) c) (/.f64 (-.f64 K (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))))))) c)))
(/.f64 (-.f64 K (log.f64 (/.f64 (fabs.f64 (cos.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phip)))) (fabs.f64 (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) c)
(/.f64 (-.f64 K (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) c)
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip)))) #s(literal 4835703278458517/4835703278458516698824704 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 c (-.f64 K (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64))))))) (/.f64 (-.f64 K (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phip) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))))))) c))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip)))) #s(literal 5 binary64)) (/.f64 #s(literal 1 binary64) (/.f64 c (-.f64 K (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64))))))) (/.f64 (-.f64 K (log.f64 (/.f64 #s(literal 1 binary64) (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip #s(literal 1/2 binary64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))) c))
(if.f64 (<=.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip))))) #s(literal 4503599627369861/40564819207303340847894502572032 binary64)) (/.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (*.f64 phip #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 13/4 binary64) (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 2251799813685249/20282409603651670423947251286016 binary64)) (/.f64 (-.f64 (*.f64 K c) (*.f64 c (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))))) (*.f64 c c)) (/.f64 (-.f64 K (log.f64 (tan.f64 (/.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (+.f64 (+.f64 phip phip) (PI.f64))))))) c)))
(/.f64 #s(literal 1 binary64) (/.f64 c (-.f64 K (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64)))))))
(/.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phip #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (PI.f64))) (PI.f64))))) c)
(/.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (*.f64 phip #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (PI.f64)))))) c)
(/.f64 (-.f64 K (log.f64 (tan.f64 (+.f64 (*.f64 phip #s(literal 1/2 binary64)) (*.f64 #s(literal 13/4 binary64) (PI.f64)))))) c)
(/.f64 (-.f64 K (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip phip) (PI.f64)) #s(literal 1/4 binary64))))) c)
(if.f64 (<=.f64 Tp #s(literal 15999999999999999853273078437780425018985741599719758591745475624282706426649594179216686943784665125913636050813279723599831395991552 binary64)) (/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp) (+.f64 (*.f64 Sp (/.f64 singam Tp)) (*.f64 (/.f64 Vp Tp) cosgam)))
(/.f64 (+.f64 (*.f64 Vp cosgam) (*.f64 Sp singam)) Tp)
(exp.f64 (neg.f64 (*.f64 BrA v)))
(*.f64 ArB (-.f64 (log.f64 (fabs.f64 (+.f64 (*.f64 (sin.f64 (*.f64 (*.f64 #s(literal -2 binary64) gamma0) #s(literal -1/4 binary64))) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (cos.f64 (*.f64 (*.f64 #s(literal -2 binary64) gamma0) #s(literal -1/4 binary64))) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0))))))))
(*.f64 ArB (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 gamma0 #s(literal 1/2 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0)))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -4835703278458517/2417851639229258349412352 binary64)) (*.f64 ArB (-.f64 (log.f64 (fabs.f64 (cos.f64 (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0)))))))) (*.f64 ArB (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (log.f64 (fabs.f64 (cos.f64 (+.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal -944473296573929/18889465931478580854784 binary64)) (*.f64 (neg.f64 ArB) (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) gamma0)))) (fabs.f64 (cos.f64 (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal -1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal 1 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 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) (*.f64 ArB (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (*.f64 #s(literal 3/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.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) gamma0)))) #s(literal -4835703278458517/2417851639229258349412352 binary64)) (*.f64 (neg.f64 ArB) (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) gamma0)))) (fabs.f64 (cos.f64 (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal -1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))) (if.f64 (<=.f64 (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0)))) #s(literal 1 binary64)) (*.f64 (neg.f64 ArB) (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64))))))) (*.f64 ArB (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (*.f64 #s(literal 3/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.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) gamma0)))) #s(literal 3602879701896397/72057594037927936 binary64)) (*.f64 ArB (-.f64 (log.f64 (fabs.f64 (cos.f64 (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) (*.f64 (log.f64 (neg.f64 (*.f64 (sin.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 gamma0 #s(literal 1/2 binary64)) (*.f64 (PI.f64) #s(literal 9/4 binary64)))))))) ArB))
(*.f64 ArB (-.f64 (log.f64 (fabs.f64 (cos.f64 (+.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0))))))))
(*.f64 ArB (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0)) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))))
(*.f64 (neg.f64 ArB) (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) gamma0)))) (fabs.f64 (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 #s(literal -1/2 binary64) gamma0))) (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 gamma0 #s(literal 1/2 binary64)))))))))
(if.f64 (<=.f64 gamma0 #s(literal 1984252074702287/1725436586697640946858688965569256363112777243042596638790631055949824 binary64)) (*.f64 (log.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (-.f64 (*.f64 (PI.f64) #s(literal 9/4 binary64)) (*.f64 gamma0 #s(literal 1/2 binary64))) (*.f64 #s(literal 3 binary64) (PI.f64))) (PI.f64)) (PI.f64)))) ArB) (*.f64 (neg.f64 ArB) (log.f64 (/.f64 (fabs.f64 (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (fabs.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64))))))))
(if.f64 (<=.f64 (*.f64 ArB (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0))))) #s(literal 3499601159652819/69992023193056381579920071267763883691301421788582797965624659405118495974380029543152421664737722368 binary64)) (*.f64 (neg.f64 ArB) (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64))))) (fabs.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)))))))) (*.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 (*.f64 ArB (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0))))) #s(literal 3499601159652819/69992023193056381579920071267763883691301421788582797965624659405118495974380029543152421664737722368 binary64)) (*.f64 (neg.f64 ArB) (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (fabs.f64 (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)) #s(literal 1/4 binary64))))) (fabs.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (-.f64 (*.f64 #s(literal -2 binary64) gamma0) (PI.f64)))))))) (*.f64 ArB (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (+.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (*.f64 #s(literal 3/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (*.f64 ArB (log.f64 (tan.f64 (-.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) gamma0))))) #s(literal 3499601159652819/69992023193056381579920071267763883691301421788582797965624659405118495974380029543152421664737722368 binary64)) (*.f64 (neg.f64 ArB) (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 (+.f64 (*.f64 #s(literal -2 binary64) gamma0) (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)))))))
(if.f64 (<=.f64 gamma0 #s(literal 1984252074702287/1725436586697640946858688965569256363112777243042596638790631055949824 binary64)) (*.f64 (log.f64 (tan.f64 (+.f64 (+.f64 (+.f64 (-.f64 (*.f64 (PI.f64) #s(literal 9/4 binary64)) (*.f64 gamma0 #s(literal 1/2 binary64))) (*.f64 #s(literal 3 binary64) (PI.f64))) (PI.f64)) (PI.f64)))) ArB) (*.f64 ArB (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (*.f64 gamma0 #s(literal -2 binary64)) (PI.f64)) #s(literal -1/4 binary64)))))))
(*.f64 ArB (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (*.f64 gamma0 #s(literal -2 binary64)) (PI.f64)) #s(literal -1/4 binary64))))))
(*.f64 (log.f64 (tan.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) ArB)
(*.f64 (log.f64 (tan.f64 (+.f64 (*.f64 #s(literal -1/2 binary64) gamma0) (*.f64 #s(literal 5/4 binary64) (PI.f64))))) ArB)
(if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (fabs.f64 (*.f64 ArB (atan.f64 (/.f64 (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64))) (cos.f64 alpha_c)))))) (fabs.f64 (*.f64 ArB (atan.f64 (/.f64 (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64))) (cos.f64 alpha_c))))))
(/.f64 (sin.f64 phi0) c)
(/.f64 (-.f64 L H) (+.f64 L H))
(-.f64 (/.f64 (atan.f64 (*.f64 (tan.f64 (*.f64 (*.f64 B #s(literal 1/2 binary64)) (-.f64 (if.f64 (<.f64 (-.f64 lam1 lam2) (neg.f64 (PI.f64))) (+.f64 (+.f64 (PI.f64) (PI.f64)) lam2) (if.f64 (>.f64 (-.f64 lam1 lam2) (PI.f64)) (-.f64 lam2 (+.f64 (PI.f64) (PI.f64))) lam2)) lam1))) (/.f64 J p))) B) (*.f64 #s(literal -1/2 binary64) (+.f64 (if.f64 (<.f64 (-.f64 lam1 lam2) (neg.f64 (PI.f64))) (+.f64 (+.f64 (PI.f64) (PI.f64)) lam2) (if.f64 (>.f64 (-.f64 lam1 lam2) (PI.f64)) (-.f64 lam2 (+.f64 (PI.f64) (PI.f64))) lam2)) lam1)))
(-.f64 (/.f64 (atan.f64 (*.f64 J (/.f64 (tan.f64 (*.f64 (*.f64 B #s(literal 1/2 binary64)) (-.f64 (if.f64 (<.f64 (-.f64 lam1 lam2) (neg.f64 (PI.f64))) (+.f64 (+.f64 (PI.f64) (PI.f64)) lam2) (if.f64 (>.f64 (-.f64 lam1 lam2) (PI.f64)) (-.f64 lam2 (+.f64 (PI.f64) (PI.f64))) lam2)) lam1))) p))) B) (*.f64 #s(literal -1/2 binary64) (+.f64 (if.f64 (<.f64 (-.f64 lam1 lam2) (neg.f64 (PI.f64))) (+.f64 (+.f64 (PI.f64) (PI.f64)) lam2) (if.f64 (>.f64 (-.f64 lam1 lam2) (PI.f64)) (-.f64 lam2 (+.f64 (PI.f64) (PI.f64))) lam2)) lam1)))
(-.f64 lamc (/.f64 (asin.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 F (/.f64 #s(literal 1 binary64) F))) (tan.f64 gamma0))) B))
(/.f64 (*.f64 (sqrt.f64 one_es) k0) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))) #s(literal -1/2 binary64)) (*.f64 ecc ecc)) #s(literal -1 binary64)))
(asin.f64 (/.f64 (sin.f64 alpha_c) D))
(-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi0 phi0)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) (*.f64 rone_es es))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (*.f64 rone_es (pow.f64 (cos.f64 phi0) #s(literal 4 binary64))) es)))
(asin.f64 (*.f64 D (sin.f64 gamma0)))
(-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 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 phip0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (-.f64 (*.f64 (*.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 phip0 #s(literal 1/2 binary64)))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))) (*.f64 (/.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)) (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(if.f64 (<=.f64 c #s(literal 4533471823554859/37778931862957161709568 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (+.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (+.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (+.f64 #s(literal 0 binary64) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (cos.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 c #s(literal 3022314549036573/18889465931478580854784 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (+.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (+.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 c #s(literal 3022314549036573/18889465931478580854784 binary64)) (-.f64 (log.f64 (*.f64 (-.f64 (*.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64)))) (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)))) (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (neg.f64 (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 c #s(literal 3022314549036573/18889465931478580854784 binary64)) (-.f64 (log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)))) (neg.f64 (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (/.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 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (neg.f64 (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 c #s(literal 3022314549036573/18889465931478580854784 binary64)) (-.f64 (log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0)))) (neg.f64 (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (/.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 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (neg.f64 (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))))) (*.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 3022314549036573/18889465931478580854784 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 c (-.f64 (log.f64 (*.f64 (/.f64 #s(literal 1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))))) (*.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 3022314549036573/18889465931478580854784 binary64)) (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))) (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phip0 #s(literal 1/2 binary64))))))) (*.f64 (-.f64 (log.f64 (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi0) ecc)) (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal 1 binary64)))) hlf_e)) c)) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.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))) (*.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)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) #s(literal 3022314549036573/151115727451828646838272 binary64)) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (/.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 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (neg.f64 (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0))) #s(literal 5764607523034235/36028797018963968 binary64)) (-.f64 (+.f64 #s(literal 0 binary64) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (/.f64 (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (-.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (sin.f64 (*.f64 phi0 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)))))) (*.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 (neg.f64 (log.f64 (fabs.f64 (tan.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0))) #s(literal 4332462841530417/4503599627370496 binary64)) (-.f64 (log.f64 (/.f64 #s(literal 1 binary64) (/.f64 (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (-.f64 (*.f64 (sin.f64 (*.f64 phip0 #s(literal 1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) phip0))))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))))))))) (-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi0) ecc)))) hlf_e)) c)))
(-.f64 (+.f64 #s(literal 0 binary64) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64))))) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(-.f64 (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (PI.f64)))) (neg.f64 (cos.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (/.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 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1/2 binary64)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0)))) (neg.f64 (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (-.f64 (log.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)) (cos.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi0)) (sin.f64 (*.f64 #s(literal -1/2 binary64) phi0))))) (*.f64 (log.f64 (/.f64 (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (sin.f64 phi0) ecc)))) hlf_e)) c))
(-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (+.f64 (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))))) (+.f64 (log.f64 (fabs.f64 (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi0) ecc)) (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal 1 binary64)))) hlf_e)))))
(-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (-.f64 (log.f64 (/.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))) (cos.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi0 #s(literal 1/2 binary64)))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi0) ecc)) (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal 1 binary64)))) hlf_e)) c))
(-.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phip0)))) (*.f64 c (-.f64 (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi0))))) (log.f64 (fabs.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi0) ecc)) (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal 1 binary64))) hlf_e))))))
(-.f64 (neg.f64 (log.f64 (fabs.f64 (tan.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(-.f64 (+.f64 #s(literal 0 binary64) (log.f64 (fabs.f64 (tan.f64 (-.f64 (*.f64 phip0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (*.f64 c (-.f64 (log.f64 (tan.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/4 binary64)) (*.f64 #s(literal 1/2 binary64) phi0)))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi0)))))))))
(-.f64 (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phip0 phip0) (PI.f64)) #s(literal 1/4 binary64)))) (*.f64 (-.f64 (log.f64 (tan.f64 (-.f64 (*.f64 phi0 #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi0) ecc)) (-.f64 (*.f64 (sin.f64 phi0) ecc) #s(literal 1 binary64)))) hlf_e)) c))
(-.f64 (*.f64 (/.f64 E_var (+.f64 (*.f64 H L) (*.f64 E_var E_var))) E_var) (/.f64 (*.f64 H L) (+.f64 (*.f64 H L) (*.f64 E_var E_var))))
(-.f64 (*.f64 (/.f64 E_var (+.f64 (*.f64 H L) (*.f64 E_var E_var))) E_var) (*.f64 (/.f64 L (+.f64 (*.f64 H L) (*.f64 E_var E_var))) H))
(/.f64 (-.f64 (*.f64 E_var E_var) (*.f64 L H)) (+.f64 (*.f64 E_var E_var) (*.f64 L H)))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (*.f64 (sqrt.f64 (fabs.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) D) #s(literal 2 binary64)))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))) (*.f64 (sqrt.f64 (fabs.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (-.f64 #s(literal 1 binary64) D) #s(literal 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 #s(literal 2 binary64)) (*.f64 (sqrt.f64 (fabs.f64 (-.f64 D #s(literal 1 binary64)))) (neg.f64 (sqrt.f64 (*.f64 #s(literal 1/2 binary64) (fabs.f64 (-.f64 D #s(literal -1 binary64)))))))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fabs.f64 (/.f64 #s(literal 1 binary64) (-.f64 D #s(literal 1 binary64)))))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (*.f64 (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) D))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))) (*.f64 (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) D))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (sqrt.f64 (fabs.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64))))) (*.f64 (sqrt.f64 (fabs.f64 (-.f64 #s(literal 1 binary64) D))) (sqrt.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) D))))))
(if.f64 (<=.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)) #s(literal 0 binary64)) #s(literal 0 binary64) (if.f64 (<.f64 phi0 #s(literal 0 binary64)) (neg.f64 (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)))) (sqrt.f64 (-.f64 (*.f64 D D) #s(literal 1 binary64)))))
(/.f64 (*.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1 binary64) one_es) (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es)))) com) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) es) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0)))))) (cos.f64 phi0)))
(*.f64 (/.f64 com (cos.f64 phi0)) (sqrt.f64 (/.f64 (-.f64 (*.f64 (/.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) one_es) es) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) es) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))))))))
(/.f64 (*.f64 (sqrt.f64 (/.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es) one_es) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) es) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))))) one_es))) com) (cos.f64 phi0))
(*.f64 (/.f64 com (cos.f64 phi0)) (sqrt.f64 (/.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) es) one_es) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) es) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 phi0 phi0))))) one_es))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) (/.f64 es one_es))))
(sqrt.f64 (+.f64 #s(literal 1 binary64) (*.f64 (/.f64 (pow.f64 (cos.f64 phi0) #s(literal 4 binary64)) one_es) es)))
(*.f64 kR (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))))))))
(*.f64 kR (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))))))) (+.f64 (log.f64 (fabs.f64 (fabs.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (fabs.f64 (-.f64 (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)))))))))
(+.f64 (*.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) kR) (*.f64 (neg.f64 (log.f64 (fabs.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64)))))))) kR))
(*.f64 kR (-.f64 (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))))))) (log.f64 (fabs.f64 (*.f64 (-.f64 (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp))) (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))) #s(literal -5764607523034235/288230376151711744 binary64)) (*.f64 (log.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (*.f64 (+.f64 phipp phipp) #s(literal 1/4 binary64))) (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (cos.f64 (*.f64 (+.f64 phipp phipp) #s(literal 1/4 binary64))) (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))))) (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))) kR) (*.f64 kR (-.f64 (log.f64 (fabs.f64 (cos.f64 (-.f64 (+.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 (PI.f64) #s(literal 1/2 binary64))) (*.f64 #s(literal -1/2 binary64) phipp))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)))))))))
(if.f64 (<=.f64 (*.f64 kR (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))))) #s(literal -8166776806102523/1361129467683753853853498429727072845824 binary64)) (+.f64 (*.f64 (log.f64 (fabs.f64 (cos.f64 (-.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 phipp #s(literal 1/2 binary64)))))) kR) (*.f64 (neg.f64 (log.f64 (fabs.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64)))))))) kR)) (*.f64 kR (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))) (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)))))))))
(if.f64 (<=.f64 (*.f64 kR (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))))) #s(literal -8166776806102523/1361129467683753853853498429727072845824 binary64)) (+.f64 (*.f64 (log.f64 (fabs.f64 (cos.f64 (-.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 phipp #s(literal 1/2 binary64)))))) kR) (*.f64 (neg.f64 (log.f64 (fabs.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64)))))))) kR)) (*.f64 kR (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64))))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (*.f64 kR (-.f64 (log.f64 (fabs.f64 (cos.f64 (+.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))))
(*.f64 kR (-.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) (log.f64 (fabs.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64)))))))))
(*.f64 (log.f64 (fabs.f64 (/.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phipp)) (sin.f64 (*.f64 phipp #s(literal 1/2 binary64)))))))) kR)
(if.f64 (<=.f64 (*.f64 kR (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))))) #s(literal -8166776806102523/1361129467683753853853498429727072845824 binary64)) (*.f64 kR (log.f64 (tan.f64 (+.f64 (+.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)) (PI.f64))))) (if.f64 (<=.f64 (*.f64 kR (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))))) #s(literal -405/202402253307310618352495346718917307049556649764142118356901358027430339567995346891960383701437124495187077864316811911389808737385793476867013399940738509921517424276566361364466907742093216341239767678472745068562007483424692698618103355649159556340810056512358769552333414615230502532186327508646006263307707741093494784 binary64)) (log.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))) kR)) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))))))))
(if.f64 (<=.f64 (*.f64 kR (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))))) #s(literal 6176826577981891/1544206644495472857303583883048380333324864576447617480139933456630175320190394187102969236003396030389305708803686614314192266367994640173851115417028339461681498903477221384921775113999124270181577817371160469578262386195561925496048762173836971712805252506350393444460551564142078418977251644200485277277433072975872 binary64)) (-.f64 (*.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))))) kR) (*.f64 (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64)))))) kR)) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))))
(if.f64 (<=.f64 (*.f64 kR (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))))) #s(literal 6176826577981891/1544206644495472857303583883048380333324864576447617480139933456630175320190394187102969236003396030389305708803686614314192266367994640173851115417028339461681498903477221384921775113999124270181577817371160469578262386195561925496048762173836971712805252506350393444460551564142078418977251644200485277277433072975872 binary64)) (*.f64 kR (neg.f64 (log.f64 (/.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (*.f64 phipp #s(literal 1/2 binary64))))) (fabs.f64 (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (*.f64 kR (log.f64 (fabs.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))) (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))))
(if.f64 (<=.f64 phipp #s(literal 6490371073168535/324518553658426726783156020576256 binary64)) (*.f64 (log.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) kR) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))))
(if.f64 (<=.f64 (*.f64 kR (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))))) #s(literal -6696928794914171/334846439745708537796382827831250565800439003657979252326171996365734703476542538279124493379904955664873335286735358382870982901778848138624518049209330462622955242963257218294408581408199098183686068192282702343236935664606211486223923248314908216080349889927704442739388432239144512088662677127168 binary64)) (*.f64 kR (log.f64 (tan.f64 (+.f64 (+.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64))) (PI.f64)) (PI.f64))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))))
(if.f64 (<=.f64 (*.f64 kR (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))))) #s(literal -6696928794914171/334846439745708537796382827831250565800439003657979252326171996365734703476542538279124493379904955664873335286735358382870982901778848138624518049209330462622955242963257218294408581408199098183686068192282702343236935664606211486223923248314908216080349889927704442739388432239144512088662677127168 binary64)) (*.f64 kR (log.f64 (tan.f64 (+.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64))) (PI.f64))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))))
(if.f64 (<=.f64 (*.f64 kR (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phipp))))) #s(literal -6696928794914171/334846439745708537796382827831250565800439003657979252326171996365734703476542538279124493379904955664873335286735358382870982901778848138624518049209330462622955242963257218294408581408199098183686068192282702343236935664606211486223923248314908216080349889927704442739388432239144512088662677127168 binary64)) (*.f64 kR (log.f64 (tan.f64 (-.f64 (*.f64 phipp #s(literal 1/2 binary64)) (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (PI.f64)))))) (*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))))))
(*.f64 kR (log.f64 (fabs.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64))))))
(*.f64 (log.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phipp phipp) (PI.f64)) #s(literal 1/4 binary64)))) kR)
(+.f64 (*.f64 c1 (sin.f64 lamdp)) (+.f64 (*.f64 c3 (*.f64 (sin.f64 lamdp) (-.f64 #s(literal 3 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lamdp lamdp)) #s(literal 1/2 binary64))) #s(literal 4 binary64))))) (*.f64 tanph (/.f64 xj (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))))
(+.f64 (*.f64 (sin.f64 lamdp) (+.f64 c1 (*.f64 (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 lamdp lamdp)) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) #s(literal 4 binary64)) #s(literal -3 binary64)) c3))) (*.f64 (neg.f64 (/.f64 xj (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj))))) (neg.f64 tanph)))
(if.f64 (<=.f64 tanph #s(literal -54000000000000001420799030196592935206173644823596601955520124814436477767273134293560901588215834994287953874471260958063267594400858407781242173984186346794740937405336814362820608 binary64)) (+.f64 (*.f64 c1 (sin.f64 lamdp)) (+.f64 (*.f64 c3 (sin.f64 (*.f64 #s(literal 3 binary64) lamdp))) (*.f64 tanph (/.f64 xj (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s))))))) (if.f64 (<=.f64 tanph #s(literal 5499999999999999754074783475347467413520555276160392832163424180242685978246309313402125049845436685237753374030891525547387223066109026694858257431594657316046110720 binary64)) (+.f64 (/.f64 (*.f64 xj tanph) (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj)))) (*.f64 (sin.f64 lamdp) (-.f64 c1 (*.f64 (-.f64 (*.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lamdp lamdp))) #s(literal -1/2 binary64)) #s(literal 4 binary64)) #s(literal 3 binary64)) c3)))) (+.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 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 b lamdp) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) a2) (cos.f64 lamdp)) (sin.f64 lamdp)) (+.f64 (*.f64 a4 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp))) (neg.f64 (*.f64 tanph (/.f64 s (sqrt.f64 (+.f64 (*.f64 xj xj) (*.f64 s s)))))))))
(+.f64 (*.f64 b lamdp) (+.f64 (*.f64 (sin.f64 (+.f64 lamdp lamdp)) a2) (+.f64 (*.f64 a4 (sin.f64 (*.f64 #s(literal 4 binary64) lamdp))) (neg.f64 (*.f64 tanph (/.f64 s (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 tanph (sqrt.f64 (+.f64 (*.f64 s s) (*.f64 xj xj)))) s))
(if.f64 (<=.f64 one_es #s(literal -199999999999999998644189734872325595292341688388812800 binary64)) (+.f64 (*.f64 (/.f64 one_es (cos.f64 lamt)) (*.f64 sa tanphi)) (*.f64 (tan.f64 lamt) ca)) (+.f64 (*.f64 (*.f64 sa one_es) (/.f64 tanphi (cos.f64 lamt))) (*.f64 (tan.f64 lamt) ca)))
(+.f64 (*.f64 (*.f64 sa one_es) (/.f64 tanphi (cos.f64 lamt))) (*.f64 (tan.f64 lamt) ca))
(+.f64 (*.f64 (tan.f64 lamt) ca) (*.f64 tanphi (*.f64 (/.f64 one_es (cos.f64 lamt)) sa)))
(*.f64 #s(literal 1/2 binary64) (*.f64 ArB (-.f64 (*.f64 #s(literal 1/2 binary64) (log.f64 (*.f64 (-.f64 U #s(literal 1 binary64)) (-.f64 U #s(literal 1 binary64))))) (log.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) U))))))
(*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (log.f64 (fabs.f64 (-.f64 U #s(literal 1 binary64)))) ArB) (*.f64 (log.f64 (fabs.f64 (-.f64 U #s(literal -1 binary64)))) ArB)))
(*.f64 #s(literal 1/2 binary64) (*.f64 ArB (-.f64 (log.f64 (fabs.f64 (-.f64 U #s(literal 1 binary64)))) (log.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) U))))))
(/.f64 #s(literal 1 binary64) (/.f64 (/.f64 #s(literal 2 binary64) ArB) (log.f64 (/.f64 (-.f64 U #s(literal 1 binary64)) (-.f64 #s(literal -1 binary64) U)))))
(/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (log.f64 (/.f64 (-.f64 U #s(literal 1 binary64)) (-.f64 #s(literal -1 binary64) U))) ArB)))
(*.f64 #s(literal 1/2 binary64) (*.f64 ArB (log.f64 (*.f64 (/.f64 #s(literal -1 binary64) (-.f64 U #s(literal -1 binary64))) (-.f64 U #s(literal 1 binary64))))))
(*.f64 #s(literal 1/2 binary64) (*.f64 ArB (log.f64 (/.f64 (-.f64 #s(literal 1 binary64) U) (+.f64 #s(literal 1 binary64) U)))))
(*.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 -5/2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi (PI.f64))) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (/.f64 #s(literal 1 binary64) (sin.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 (+.f64 (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))) (*.f64 (neg.f64 (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))))) alpha)) gfi)) (/.f64 (PI.f64) #s(literal 4 binary64)))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -5764607523034235/576460752303423488 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (*.f64 (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (/.f64 #s(literal 1 binary64) (sin.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (PI.f64))))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))) (if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 1 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (cos.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) alpha) k) gfi)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 1080863910568919/18014398509481984 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi (PI.f64))) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (/.f64 #s(literal 1 binary64) (sin.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)))) (if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 1 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (cos.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) alpha) k) gfi)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -4728779608739021/4503599627370496 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 phi (PI.f64))) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (/.f64 #s(literal 1 binary64) (sin.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 (-.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 (+.f64 phi phi) (PI.f64)) #s(literal -1/4 binary64)))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal -5764607523034235/576460752303423488 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 1 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (cos.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) alpha) k) gfi)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))))
(if.f64 (<=.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) phi) (/.f64 (PI.f64) #s(literal 4 binary64)))) #s(literal 1 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) alpha) k) gfi)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)))
(if.f64 (<=.f64 phi #s(literal -4063960214797321/219673525124179510879420825570604582952621929604585773100622830693937381868724993667921908501166545759273481964527387457187903615990932602002368905315681828864 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (*.f64 phi #s(literal 2 binary64)) (PI.f64))))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))) (if.f64 (<=.f64 phi #s(literal 2306572013803885/219673525124179510879420825570604582952621929604585773100622830693937381868724993667921908501166545759273481964527387457187903615990932602002368905315681828864 binary64)) (*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (/.f64 (sin.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal -1/4 binary64))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (tan.f64 (+.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 13/4 binary64) (PI.f64)))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64))))))
(if.f64 (<=.f64 phi #s(literal 4653238516752935/1107913932560222642718302084617242634394213707491304322373697056856707228094640652496493097019312046907692196808899173923175472949106175979816042319761510659592576951121881510274623639758153063707231876091920910184135845830200523203728421733043088080742988814006853038686339072 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (tan.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 4 binary64) (+.f64 (*.f64 phi #s(literal 2 binary64)) (PI.f64))))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (tan.f64 (+.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 13/4 binary64) (PI.f64)))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))))
(if.f64 (<=.f64 phi #s(literal 4653238516752935/1107913932560222642718302084617242634394213707491304322373697056856707228094640652496493097019312046907692196808899173923175472949106175979816042319761510659592576951121881510274623639758153063707231876091920910184135845830200523203728421733043088080742988814006853038686339072 binary64)) (*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) alpha) k) gfi)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) (-.f64 (atan.f64 (/.f64 (*.f64 k (pow.f64 (tan.f64 (+.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 13/4 binary64) (PI.f64)))) alpha)) gfi)) (*.f64 (PI.f64) #s(literal 1/4 binary64)))))
(*.f64 (-.f64 (atan.f64 (/.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) alpha) k) gfi)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))
(*.f64 (-.f64 (atan.f64 (*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 phi phi) (PI.f64)) #s(literal 1/4 binary64))) alpha) (/.f64 k gfi))) (*.f64 #s(literal 1/4 binary64) (PI.f64))) #s(literal 2 binary64))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))))))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64))))))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64)))))) (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))))))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal 5902958103587057/590295810358705651712 binary64)) (+.f64 (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phidp #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (log.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 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (cos.f64 (+.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (cos.f64 (+.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (log.f64 (/.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 phidp #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (+.f64 (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal -3602879701896397/72057594037927936 binary64)) (log.f64 (/.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 phidp #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (neg.f64 (log.f64 (/.f64 (cos.f64 (-.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) phidp)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phidp)))) #s(literal 5764607523034235/288230376151711744 binary64)) (log.f64 (/.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 phidp #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phidp) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64)))))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (+.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phidp)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (+.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))
(+.f64 (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (*.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phidp #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(log.f64 (/.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 phidp #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))
(log.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phidp #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (PI.f64))) (PI.f64))))
(log.f64 (tan.f64 (+.f64 (*.f64 phidp #s(literal 1/2 binary64)) (*.f64 #s(literal 13/4 binary64) (PI.f64)))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) (PI.f64)))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64))))))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 phi #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 phi #s(literal 1/2 binary64))) (cos.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sin.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) (PI.f64))))))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))))) (/.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 2 binary64) (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (sqrt.f64 #s(literal 2 binary64))))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64))))))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (-.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64))) (cos.f64 (*.f64 #s(literal -1/2 binary64) phi))) (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal 5902958103587057/590295810358705651712 binary64)) (+.f64 (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64))) (sin.f64 (*.f64 phi #s(literal 1/2 binary64)))) #s(literal 2 binary64)) (-.f64 (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) #s(literal 2 binary64))))) (*.f64 #s(literal 1/2 binary64) (log.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 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (cos.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (*.f64 (sqrt.f64 (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (sqrt.f64 #s(literal 2 binary64)))) #s(literal 2 binary64))) (cos.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal -2028240960365167/20282409603651670423947251286016 binary64)) (log.f64 (/.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 phi #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (+.f64 (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (cos.f64 (-.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 #s(literal -1/4 binary64) (PI.f64))))))) (log.f64 (fabs.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal -3602879701896397/72057594037927936 binary64)) (log.f64 (/.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 phi #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (neg.f64 (log.f64 (/.f64 (cos.f64 (-.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 #s(literal -1/2 binary64) phi)) (*.f64 #s(literal -1/4 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))))))
(if.f64 (<=.f64 (log.f64 (tan.f64 (+.f64 (/.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/2 binary64) phi)))) #s(literal 5764607523034235/288230376151711744 binary64)) (log.f64 (/.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 phi #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64)))))) (log.f64 (/.f64 (sin.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) phi) (*.f64 #s(literal 5/4 binary64) (PI.f64)))) (cos.f64 (-.f64 (*.f64 #s(literal -9/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64)))))))
(log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (cos.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))))
(+.f64 (log.f64 (fabs.f64 (/.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))) (*.f64 #s(literal 1/2 binary64) (log.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (*.f64 (-.f64 (*.f64 #s(literal -1/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(log.f64 (/.f64 (cos.f64 (-.f64 (*.f64 (PI.f64) #s(literal -3/4 binary64)) (*.f64 phi #s(literal 1/2 binary64)))) (sin.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 1/4 binary64) (PI.f64))))))
(log.f64 (tan.f64 (+.f64 (+.f64 (*.f64 phi #s(literal 1/2 binary64)) (+.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (PI.f64))) (PI.f64))))
(log.f64 (tan.f64 (+.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal 13/4 binary64) (PI.f64)))))
(-.f64 (*.f64 (-.f64 u u0) cosrot) (*.f64 v sinrot))
(+.f64 (*.f64 v cosrot) (*.f64 (-.f64 u u0) sinrot))
(*.f64 (pow.f64 (/.f64 (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) s)) (sin.f64 (*.f64 #s(literal -1/2 binary64) s))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) (*.f64 (-.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) s)) (sin.f64 (*.f64 s #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64)))) (neg.f64 n)) (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) rho0))
(/.f64 (*.f64 rho0 (pow.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64)) (PI.f64))) n)) (pow.f64 (*.f64 (sin.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64)))))) n))
(if.f64 (<=.f64 (/.f64 (*.f64 rho0 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) #s(literal 27401669256311/20000000000000 binary64)) (/.f64 (PI.f64) #s(literal 4 binary64)))) n)) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) s) (/.f64 (PI.f64) #s(literal 4 binary64)))) n)) #s(literal 400000000000000030518812316339579701389387420602627246806406936824845521152503177936568755858767136306558990308554195045488841551379199753167262445402079323000670599425955926506145472381658429256940604233493835947563300622636254470863452821130489562037136733759434468412334942695399596818281992630042624 binary64)) (/.f64 (*.f64 rho0 (pow.f64 (tan.f64 (+.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64)) (PI.f64))) n)) (pow.f64 (*.f64 (sin.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64))) (/.f64 #s(literal 1 binary64) (cos.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64))))) n)) (*.f64 (pow.f64 (/.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64))))) (neg.f64 n)) (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) rho0)))
(if.f64 (<=.f64 (/.f64 (*.f64 rho0 (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) #s(literal 27401669256311/20000000000000 binary64)) (/.f64 (PI.f64) #s(literal 4 binary64)))) n)) (pow.f64 (tan.f64 (+.f64 (*.f64 #s(literal 1/2 binary64) s) (/.f64 (PI.f64) #s(literal 4 binary64)))) n)) #s(literal 400000000000000030518812316339579701389387420602627246806406936824845521152503177936568755858767136306558990308554195045488841551379199753167262445402079323000670599425955926506145472381658429256940604233493835947563300622636254470863452821130489562037136733759434468412334942695399596818281992630042624 binary64)) (/.f64 (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) rho0) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64))) n)) (*.f64 (pow.f64 (/.f64 (sin.f64 (+.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64)) (PI.f64))) (neg.f64 (cos.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64))))) (neg.f64 n)) (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) rho0)))
(/.f64 (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) rho0) (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64))) n))
(*.f64 (pow.f64 (tan.f64 (*.f64 (+.f64 (+.f64 s s) (PI.f64)) #s(literal 1/4 binary64))) (neg.f64 n)) (*.f64 (pow.f64 (tan.f64 (-.f64 (*.f64 #s(literal 1/4 binary64) (PI.f64)) #s(literal -27401669256311/40000000000000 binary64))) n) rho0))
(asin.f64 (-.f64 (*.f64 cosp0 (sin.f64 phip)) (*.f64 sinp0 (*.f64 (cos.f64 phip) (cos.f64 lamp)))))
(if.f64 (<=.f64 K #s(literal -14091255496643/9394170331095332911557922387157348109502730195633279482829163886128836100458433773854795993539074812127739904 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (atan.f64 (exp.f64 (+.f64 (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.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 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 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi)))))))) K)))) (/.f64 (PI.f64) #s(literal 2 binary64))) (if.f64 (<=.f64 K #s(literal 1742245718635205/5444517870735015415413993718908291383296 binary64)) (-.f64 (*.f64 (atan.f64 (*.f64 (pow.f64 (fabs.f64 (*.f64 (tan.f64 (-.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)))) c) (exp.f64 K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 #s(literal 2 binary64) (atan.f64 (exp.f64 (+.f64 (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (-.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 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 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi)))))))) K)))) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(if.f64 (<=.f64 (-.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 -1080863910568919/18014398509481984 binary64)) (-.f64 (*.f64 #s(literal 2 binary64) (atan.f64 (exp.f64 (+.f64 (*.f64 c (-.f64 (log.f64 (-.f64 (/.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (sin.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (/.f64 (*.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) phi)) (/.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 2 binary64))) (sin.f64 (+.f64 (-.f64 (*.f64 phi #s(literal 1/2 binary64)) (*.f64 #s(literal -1/4 binary64) (PI.f64))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (*.f64 hlf_e (log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi)))))))) K)))) (/.f64 (PI.f64) #s(literal 2 binary64))) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (log.f64 (fabs.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))))) c) K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (log.f64 (fabs.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))))) c) K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(if.f64 (<=.f64 (-.f64 (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 7378697629483821/36893488147419103232 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (-.f64 (log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e)) c) K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 (atan.f64 (*.f64 (pow.f64 (fabs.f64 (*.f64 (tan.f64 (-.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)))) c) (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 7378697629483821/36893488147419103232 binary64)) (-.f64 (*.f64 (atan.f64 (exp.f64 (+.f64 (*.f64 (-.f64 (log.f64 (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))) (*.f64 (log.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))) hlf_e)) c) K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (*.f64 (atan.f64 (*.f64 (exp.f64 K) (pow.f64 (*.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e))) c))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(-.f64 (*.f64 (atan.f64 (*.f64 (pow.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e)) (tan.f64 (+.f64 (*.f64 #s(literal 13/4 binary64) (PI.f64)) (*.f64 phi #s(literal 1/2 binary64))))) c) (exp.f64 K))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(-.f64 (*.f64 (atan.f64 (*.f64 (exp.f64 K) (pow.f64 (*.f64 (tan.f64 (-.f64 (*.f64 #s(literal 5/4 binary64) (PI.f64)) (*.f64 #s(literal -1/2 binary64) phi))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)) (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64))) (neg.f64 hlf_e))) c))) #s(literal 2 binary64)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(asin.f64 (/.f64 (-.f64 (*.f64 (*.f64 ca one_es) (sin.f64 phi)) (*.f64 (*.f64 (cos.f64 phi) sa) (sin.f64 lamt))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (pow.f64 (sin.f64 phi) #s(literal 2 binary64)))))))
(asin.f64 (/.f64 (-.f64 (*.f64 (*.f64 ca one_es) (sin.f64 phi)) (*.f64 sa (*.f64 (cos.f64 phi) (sin.f64 lamt)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (pow.f64 (sin.f64 phi) #s(literal 2 binary64)))))))
(if.f64 (<=.f64 es #s(literal -49999999999999998852475663262266831422342135996207500306499798736599672609039495565163064724075577344 binary64)) (asin.f64 (/.f64 (-.f64 (*.f64 one_es (*.f64 ca (sin.f64 phi))) (*.f64 sa (*.f64 (cos.f64 phi) (sin.f64 lamt)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 es (pow.f64 (sin.f64 phi) #s(literal 2 binary64))))))) (asin.f64 (/.f64 (-.f64 (*.f64 (*.f64 ca one_es) (sin.f64 phi)) (*.f64 (*.f64 (cos.f64 phi) sa) (sin.f64 lamt))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 phi phi)))) 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 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64)))))
(asin.f64 (/.f64 (-.f64 (*.f64 one_es (*.f64 ca (sin.f64 phi))) (*.f64 sa (*.f64 (cos.f64 phi) (sin.f64 lamt)))) (sqrt.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64)))))
(asin.f64 (*.f64 (/.f64 (sin.f64 lamp) (cos.f64 phipp)) cp))
(asin.f64 (*.f64 (/.f64 cp (cos.f64 phipp)) (sin.f64 lamp)))
(*.f64 #s(literal 1/2 binary64) (+.f64 W (/.f64 #s(literal 1 binary64) W)))
(*.f64 #s(literal 1/2 binary64) (-.f64 W (/.f64 #s(literal 1 binary64) W)))
(pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 evar (sin.f64 phi)))) (*.f64 #s(literal 1/2 binary64) (*.f64 alpha evar)))
(-.f64 (*.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)))))
(-.f64 (log.f64 (fabs.f64 (-.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi) ecc)))) (log.f64 (fabs.f64 (-.f64 (*.f64 (sin.f64 phi) ecc) #s(literal 1 binary64)))))
(log.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi))) (-.f64 #s(literal 1 binary64) (*.f64 ecc (sin.f64 phi)))))
(*.f64 (pow.f64 tsfn_phi (neg.f64 B)) E_var)
(if.f64 (<=.f64 singam #s(literal -5000000 binary64)) (-.f64 (*.f64 (/.f64 singam T) S) (*.f64 (/.f64 cosgam T) (sin.f64 (*.f64 lam B)))) (/.f64 (-.f64 (*.f64 S singam) (*.f64 (sin.f64 (*.f64 B lam)) cosgam)) T))
(if.f64 (<=.f64 singam #s(literal -6200787733444647/26959946667150639794667015087019630673637144422540572481103610249216 binary64)) (-.f64 (*.f64 (/.f64 S T) singam) (*.f64 (/.f64 cosgam T) (sin.f64 (*.f64 lam B)))) (/.f64 (-.f64 (*.f64 S singam) (*.f64 (sin.f64 (*.f64 B lam)) cosgam)) T))
(/.f64 (-.f64 (*.f64 S singam) (*.f64 (sin.f64 (*.f64 B lam)) cosgam)) T)
(sqrt.f64 (-.f64 (-.f64 (pow.f64 (sinh.f64 Ce) #s(literal 2 binary64)) #s(literal -1/2 binary64)) #s(literal -1/2 binary64)))
(sqrt.f64 (+.f64 (pow.f64 (sinh.f64 Ce) #s(literal 2 binary64)) #s(literal 1 binary64)))
(*.f64 (exp.f64 (*.f64 #s(literal -2 binary64) Ce)) #s(literal 1/2 binary64))
(exp.f64 (+.f64 Ce Ce))
(cosh.f64 (+.f64 Ce Ce))
(atan2.f64 (sin.f64 Cn) (sqrt.f64 (+.f64 (pow.f64 (sinh.f64 Ce) #s(literal 2 binary64)) (pow.f64 (cos.f64 Cn) #s(literal 2 binary64)))))
(atan2.f64 (sin.f64 Cn) (sqrt.f64 (-.f64 (pow.f64 (sinh.f64 Ce) #s(literal 2 binary64)) (*.f64 (-.f64 #s(literal -1 binary64) (cos.f64 (+.f64 Cn Cn))) #s(literal 1/2 binary64)))))
(atan2.f64 (sinh.f64 Ce) (cos.f64 Cn))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (+.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (pow.f64 (cos.f64 lam) #s(literal 2 binary64))))))
(/.f64 #s(literal 2 binary64) (sqrt.f64 (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 lam lam)) #s(literal -1 binary64)) (*.f64 #s(literal 1/4 binary64) (-.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal -1 binary64)))) (*.f64 #s(literal -1/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 Cn Cn)))))))
(*.f64 (cos.f64 Cn) (/.f64 (sin.f64 lam) (sqrt.f64 (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn)))) (pow.f64 (cos.f64 lam) #s(literal 2 binary64))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 Cn Cn))))))))
(*.f64 (/.f64 (sin.f64 lam) (sqrt.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal -1 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lam lam)) #s(literal -1/2 binary64)))) (cos.f64 (+.f64 Cn Cn)))) #s(literal -1/2 binary64)))) (cos.f64 Cn))
(*.f64 (/.f64 (cos.f64 Cn) (sqrt.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 Cn Cn)) #s(literal -1 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 lam lam)) #s(literal -1/2 binary64)))) (cos.f64 (+.f64 Cn Cn)))) #s(literal -1/2 binary64)))) (sin.f64 lam))
(atan2.f64 (sin.f64 Cn) (*.f64 (cos.f64 Cn) (cos.f64 lam)))
(if.f64 (<=.f64 cosh_arg_i #s(literal -4704063440315053/348449143727040986586495598010130648530944 binary64)) (-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)) (-.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hr) (*.f64 (*.f64 hi sinh_arg_i) cos_arg_r)))
(if.f64 (<=.f64 cos_arg_r #s(literal -482736095372755/1532495540865888858358347027150309183618739122183602176 binary64)) (-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)) (-.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hr) (*.f64 (*.f64 hi cos_arg_r) sinh_arg_i)))
(if.f64 (<=.f64 hr #s(literal 2028240960365167/40564819207303340847894502572032 binary64)) (-.f64 (*.f64 (*.f64 hr sin_arg_r) cosh_arg_i) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)) (-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi)))
(-.f64 (*.f64 (*.f64 hr cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hi))
(if.f64 (<=.f64 hr #s(literal 4816960962882615/178405961588244985132285746181186892047843328 binary64)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.f64 (*.f64 hr cos_arg_r) sinh_arg_i)) (if.f64 (<=.f64 hr #s(literal 10000000000000000166160354728550133402860267619935663985128064995273039068626355013257451286926569625748622041088095949318798038992779336698179926498716835527012730124200454693714718121768282606166882648064 binary64)) (+.f64 (*.f64 (*.f64 sin_arg_r cosh_arg_i) hi) (*.f64 (*.f64 hr sinh_arg_i) cos_arg_r)) (+.f64 (*.f64 (*.f64 hi cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr))))
(if.f64 (<=.f64 sin_arg_r #s(literal -5307134659905293/58968162887836583628774290327941701420576894069006881693378223441337877537377325813845730080900918242835443359855685076558915384842574884883772410178635875682021801984 binary64)) (+.f64 (*.f64 (*.f64 hi cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.f64 (*.f64 hr cos_arg_r) sinh_arg_i)))
(if.f64 (<=.f64 cosh_arg_i #s(literal 5288447750321989/2644223875160994395807661232131084159313618731857124877138595181097623164945245383300756841758861139390364848100093433217024 binary64)) (+.f64 (*.f64 (*.f64 hi cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr)) (+.f64 (*.f64 (*.f64 hi sin_arg_r) cosh_arg_i) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr)))
(+.f64 (*.f64 (*.f64 hi cosh_arg_i) sin_arg_r) (*.f64 (*.f64 cos_arg_r sinh_arg_i) hr))
(if.f64 (>.f64 (fabs.f64 (cos.f64 phi)) #s(literal 1/10000000000 binary64)) (tan.f64 phi) #s(literal 0 binary64))
(*.f64 (/.f64 lam (sqrt.f64 (-.f64 (*.f64 (*.f64 (-.f64 (cos.f64 (+.f64 phi phi)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) es) #s(literal -1 binary64)))) (cos.f64 phi))
(/.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)