(if.f64 (<=.f64 h #s(literal 2076918743413931/41538374868278621028243970633760768 binary64)) (*.f64 (/.f64 (sin.f64 i) h) (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) mu)) (/.f64 (*.f64 (sin.f64 i) mu) (/.f64 h (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)))))
(if.f64 (<=.f64 h #s(literal 4835703278458517/4835703278458516698824704 binary64)) (*.f64 (/.f64 (sin.f64 i) h) (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) mu)) (*.f64 (*.f64 (sin.f64 i) mu) (/.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) h)))
(if.f64 (<=.f64 h #s(literal 57000000000000001537832183229677276718481728532131748580535789771108025408210205211780671611076608 binary64)) (*.f64 (*.f64 mu (/.f64 (sin.f64 i) h)) (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta))) (*.f64 (*.f64 (sin.f64 i) mu) (/.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) h)))
(if.f64 (<=.f64 h #s(literal 1915619426082361/47890485652059026823698344598447161988085597568237568 binary64)) (*.f64 (*.f64 mu (/.f64 (sin.f64 i) h)) (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta))) (*.f64 mu (*.f64 (sin.f64 i) (/.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) h))))
(*.f64 mu (*.f64 (sin.f64 i) (/.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) h)))
(if.f64 (<=.f64 h #s(literal 6427752177035961/12855504354071922204335696738729300820177623950262342682411008 binary64)) (/.f64 (/.f64 mu h) (/.f64 #s(literal -1 binary64) (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (sin.f64 AN)) (*.f64 (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (cos.f64 i)) (cos.f64 AN))))) (*.f64 mu (-.f64 (/.f64 (*.f64 (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (cos.f64 i)) (cos.f64 AN)) h) (/.f64 (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (sin.f64 AN)) h))))
(if.f64 (<=.f64 mu #s(literal 2826955303645415/56539106072908298546665520023773392506479484700019806659891398441363832832 binary64)) (/.f64 (-.f64 (*.f64 (*.f64 mu (cos.f64 i)) (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (cos.f64 AN))) (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) mu) (sin.f64 AN))) h) (*.f64 (/.f64 mu h) (-.f64 (*.f64 (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (cos.f64 i)) (cos.f64 AN)) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (sin.f64 AN)))))
(if.f64 (<=.f64 (/.f64 mu h) #s(literal 4784065733063811/9568131466127621947163770315237577352582483950433331955534014747297500715462012198465648064079848065788579276806882658480425438483841942548911565191978080929321047135323978360596199778018349602045952 binary64)) (/.f64 (*.f64 (-.f64 (*.f64 (*.f64 (cos.f64 i) (cos.f64 AN)) (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta))) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (sin.f64 AN))) mu) h) (*.f64 (/.f64 mu h) (-.f64 (*.f64 (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (cos.f64 i)) (cos.f64 AN)) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (sin.f64 AN)))))
(if.f64 (<=.f64 (neg.f64 (/.f64 mu h)) #s(literal -3974446316289815/397444631628981487398138749046400654145762820381874332451597321734669043887712482900704872660133498355324859058465554740779924491293392484209737542410542371636340473861337575820867913121689201875267327793591416000228568794576910811136 binary64)) (*.f64 (/.f64 mu h) (-.f64 (*.f64 (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (cos.f64 i)) (cos.f64 AN)) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (sin.f64 AN)))) (*.f64 mu (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 i) (cos.f64 AN)) (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta))) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (sin.f64 AN))) h)))
(if.f64 (<=.f64 h #s(literal 5000000 binary64)) (*.f64 (/.f64 mu h) (-.f64 (*.f64 (cos.f64 i) (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (cos.f64 AN))) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (sin.f64 AN)))) (*.f64 mu (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 i) (cos.f64 AN)) (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta))) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (sin.f64 AN))) h)))
(*.f64 mu (/.f64 (-.f64 (*.f64 (*.f64 (cos.f64 i) (cos.f64 AN)) (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta))) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (sin.f64 AN))) h))
(if.f64 (<=.f64 (neg.f64 (/.f64 mu h)) #s(literal -7687697232696013/3843848616348006517745232740100739512991620911897345810779084488070467360061046634469074021673129666994459657822569196861021537621146748550021867984199631441940340184366542119596353715143242451107829641173966144591017133590878523965063482310266674005030207488 binary64)) (*.f64 (neg.f64 (/.f64 mu h)) (+.f64 (*.f64 (cos.f64 AN) (+.f64 (sin.f64 theta) (*.f64 e (sin.f64 AP)))) (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (*.f64 (cos.f64 i) (sin.f64 AN))))) (*.f64 (neg.f64 mu) (+.f64 (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (/.f64 (cos.f64 AN) h)) (*.f64 (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (sin.f64 AN)) (/.f64 (cos.f64 i) h)))))
(if.f64 (<=.f64 (neg.f64 (/.f64 mu h)) #s(literal -7687697232696013/3843848616348006517745232740100739512991620911897345810779084488070467360061046634469074021673129666994459657822569196861021537621146748550021867984199631441940340184366542119596353715143242451107829641173966144591017133590878523965063482310266674005030207488 binary64)) (*.f64 (neg.f64 (/.f64 mu h)) (+.f64 (*.f64 (cos.f64 AN) (+.f64 (sin.f64 theta) (*.f64 e (sin.f64 AP)))) (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (*.f64 (cos.f64 i) (sin.f64 AN))))) (*.f64 mu (*.f64 (/.f64 #s(literal -1 binary64) h) (+.f64 (*.f64 (cos.f64 i) (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (sin.f64 AN))) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (cos.f64 AN))))))
(if.f64 (<=.f64 (/.f64 mu h) #s(literal 6696928794914171/334846439745708537796382827831250565800439003657979252326171996365734703476542538279124493379904955664873335286735358382870982901778848138624518049209330462622955242963257218294408581408199098183686068192282702343236935664606211486223923248314908216080349889927704442739388432239144512088662677127168 binary64)) (*.f64 (neg.f64 mu) (/.f64 (+.f64 (*.f64 (cos.f64 i) (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (sin.f64 AN))) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (cos.f64 AN))) h)) (*.f64 (neg.f64 (/.f64 mu h)) (+.f64 (*.f64 (cos.f64 AN) (+.f64 (sin.f64 theta) (*.f64 e (sin.f64 AP)))) (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (*.f64 (cos.f64 i) (sin.f64 AN))))))
(if.f64 (<=.f64 (/.f64 mu h) #s(literal 6696928794914171/334846439745708537796382827831250565800439003657979252326171996365734703476542538279124493379904955664873335286735358382870982901778848138624518049209330462622955242963257218294408581408199098183686068192282702343236935664606211486223923248314908216080349889927704442739388432239144512088662677127168 binary64)) (*.f64 (neg.f64 mu) (/.f64 (+.f64 (*.f64 (cos.f64 i) (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (sin.f64 AN))) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (cos.f64 AN))) h)) (*.f64 (neg.f64 (/.f64 mu h)) (+.f64 (*.f64 (cos.f64 AN) (+.f64 (sin.f64 theta) (*.f64 e (sin.f64 AP)))) (*.f64 (*.f64 (sin.f64 AN) (+.f64 (cos.f64 theta) (*.f64 e (cos.f64 AP)))) (cos.f64 i)))))
(*.f64 (neg.f64 mu) (/.f64 (+.f64 (*.f64 (cos.f64 i) (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (sin.f64 AN))) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (cos.f64 AN))) h))
(*.f64 (-.f64 e #s(literal -1 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) e) a))
(*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e)))
(*.f64 (*.f64 (sin.f64 i) r) (sin.f64 theta))
(*.f64 r (*.f64 (sin.f64 theta) (sin.f64 i)))
(+.f64 (*.f64 (*.f64 (cos.f64 theta) r) (sin.f64 AN)) (*.f64 (*.f64 (cos.f64 i) r) (*.f64 (sin.f64 theta) (cos.f64 AN))))
(*.f64 r (+.f64 (*.f64 (sin.f64 AN) (cos.f64 theta)) (*.f64 (*.f64 (cos.f64 AN) (sin.f64 theta)) (cos.f64 i))))
(*.f64 r (-.f64 (*.f64 (cos.f64 AN) (cos.f64 theta)) (*.f64 (*.f64 (cos.f64 i) (sin.f64 AN)) (sin.f64 theta))))
(/.f64 p (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))))
(*.f64 (atanh.f64 (*.f64 (tan.f64 (*.f64 #s(literal 1/2 binary64) f)) (sqrt.f64 (/.f64 (-.f64 #s(literal 1 binary64) e) (-.f64 #s(literal -1 binary64) e))))) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (atan2.f64 (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) e)) (sin.f64 (/.f64 f #s(literal 2 binary64)))) (*.f64 (/.f64 (sqrt.f64 (fabs.f64 (+.f64 (*.f64 e #s(literal 2 binary64)) #s(literal 2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) (cos.f64 (/.f64 f #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) f)) (sqrt.f64 (-.f64 #s(literal 1 binary64) e))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) f)) (sqrt.f64 (-.f64 e #s(literal -1 binary64))))) #s(literal 2 binary64))
(if.f64 (<=.f64 (/.f64 (*.f64 Cd A) m) #s(literal 5993757216606705/399583814440447005616844445413525287135820562261116307309972090832047582568929999375399181192126972308457847183540047730617340886948900519205142528 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 A Cd) #s(literal -1/2 binary64)) v) density) (*.f64 v (/.f64 #s(literal 1000 binary64) m))) (if.f64 (<=.f64 (/.f64 (*.f64 Cd A) m) #s(literal 2000000000000000104138281600499711504018370159501928289300181329954129886725017326540622809029438772331686617457839135860204827534867795731711316538317936091429007203531381577790248362865422671553985900030487246615477217893874725504037036140836172938362629033609837186681667584 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 #s(literal -500 binary64) v) density) (/.f64 (*.f64 A Cd) m)) v) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal -500 binary64) v) Cd) (*.f64 A density)) m) v)))
(if.f64 (<=.f64 (pow.f64 (*.f64 v #s(literal 1000 binary64)) #s(literal 2 binary64)) #s(literal 4712544691453469/47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304860885586653967937772270969055149056096849908977391371752266308172471982589601097478449614615258949356272900190565812730839296826751014759649673012612226351104 binary64)) (*.f64 v (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal -500 binary64) v) A) Cd) m) density)) (if.f64 (<=.f64 (pow.f64 (*.f64 v #s(literal 1000 binary64)) #s(literal 2 binary64)) #s(literal 1298074214633707/2596148429267413814265248164610048 binary64)) (*.f64 (*.f64 (*.f64 #s(literal -500 binary64) (*.f64 v v)) A) (*.f64 (/.f64 Cd m) density)) (*.f64 v (/.f64 (*.f64 (*.f64 (*.f64 #s(literal -500 binary64) v) density) (*.f64 A Cd)) m))))
(if.f64 (<=.f64 (*.f64 Cd A) #s(literal 3999999999999999815888826918627480846931950854956402839322966212785162853139783252833353910824665649494904007400214652042348672372695556295641130893294334148579434038296576 binary64)) (*.f64 (*.f64 (*.f64 A Cd) v) (*.f64 (*.f64 #s(literal -500 binary64) density) (/.f64 v m))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal -500 binary64) v) Cd) (*.f64 A density)) m) v))
(if.f64 (<=.f64 (*.f64 Cd A) #s(literal 50000000000000002382364672 binary64)) (*.f64 v (*.f64 (*.f64 (*.f64 #s(literal -500 binary64) v) (/.f64 (*.f64 A Cd) m)) density)) (if.f64 (<=.f64 (*.f64 Cd A) #s(literal 199999999999999987271741387553518354728514146551401471296788814467163125561054150977867739891738951559620703652188113849103013283306286714875445248188400111203634394054424771362577248748079965527076639478413263015548719165875994324823359393880980565524480 binary64)) (*.f64 v (/.f64 (*.f64 (*.f64 #s(literal -500 binary64) v) (*.f64 (*.f64 A Cd) density)) m)) (*.f64 v (*.f64 (*.f64 (*.f64 (*.f64 #s(literal -500 binary64) v) Cd) (/.f64 A m)) density))))
(if.f64 (<=.f64 v #s(literal 7855571300653603/45671926166590716193865151022383844364247891968 binary64)) (*.f64 v (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal -500 binary64) v) A) Cd) m) density)) (*.f64 v (/.f64 (*.f64 (*.f64 (*.f64 #s(literal -500 binary64) v) density) (*.f64 A Cd)) m)))
(if.f64 (<=.f64 m #s(literal 7482888383134223/374144419156711147060143317175368453031918731001856 binary64)) (*.f64 v (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal -500 binary64) v) A) Cd) m) density)) (*.f64 v (*.f64 (*.f64 (*.f64 (*.f64 #s(literal -500 binary64) v) Cd) (/.f64 A m)) density)))
(if.f64 (<=.f64 (/.f64 (*.f64 Cd A) m) #s(literal 4999999999999999797831017376714894119127812233696870733560457558998243835015834942700401512775872587353423939115559831572611431741498074611166071691150501229607379410134558461510763529142729843207341692956811227775656913210014077504201792814563184923802875085144633272926482892941009176900625498112 binary64)) (*.f64 v (*.f64 (*.f64 (*.f64 #s(literal -500 binary64) v) (/.f64 (*.f64 A Cd) m)) density)) (*.f64 v (*.f64 (*.f64 (*.f64 (*.f64 #s(literal -500 binary64) v) Cd) (/.f64 A m)) density)))
(*.f64 v (*.f64 (*.f64 (*.f64 #s(literal -500 binary64) v) (/.f64 (*.f64 A Cd) m)) density))
(-.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) di) (cos.f64 (*.f64 #s(literal -1/2 binary64) i))) (sin.f64 (*.f64 #s(literal -1/2 binary64) i))) (cos.f64 Omega)) (*.f64 (*.f64 (sin.f64 (*.f64 i #s(literal 1/2 binary64))) dOmega) (sin.f64 Omega)))
(-.f64 (*.f64 (cos.f64 Omega) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) di) (cos.f64 (*.f64 #s(literal -1/2 binary64) i))) (sin.f64 (*.f64 #s(literal -1/2 binary64) i)))) (*.f64 (*.f64 (sin.f64 Omega) dOmega) (sin.f64 (*.f64 #s(literal 1/2 binary64) i))))
(if.f64 (<=.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) #s(literal +inf.0 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))) #s(literal 1 binary64))) (+.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sin.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (+.f64 (*.f64 (-.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) #s(literal -1 binary64)) (+.f64 (*.f64 (sin.f64 (+.f64 omega omega)) (cos.f64 f)) (*.f64 (*.f64 (+.f64 (cos.f64 omega) (sin.f64 omega)) (-.f64 (cos.f64 omega) (sin.f64 omega))) (sin.f64 f)))) (*.f64 (+.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) #s(literal 3 binary64))) (-.f64 (*.f64 (sin.f64 (+.f64 omega omega)) (cos.f64 (*.f64 #s(literal -3 binary64) f))) (*.f64 (*.f64 (+.f64 (cos.f64 omega) (sin.f64 omega)) (-.f64 (cos.f64 omega) (sin.f64 omega))) (sin.f64 (*.f64 #s(literal -3 binary64) f))))))))))) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 sgn (*.f64 (*.f64 J2 #s(literal 1/2 binary64)) (/.f64 (/.f64 (*.f64 req req) (*.f64 a a)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (*.f64 sgn (*.f64 (*.f64 J2 #s(literal 1/2 binary64)) (/.f64 (/.f64 (*.f64 req req) (*.f64 a a)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))) #s(literal 1 binary64))) (+.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sin.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (+.f64 (*.f64 (-.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) #s(literal -1 binary64)) (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f))) (*.f64 (+.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) #s(literal 3 binary64))) (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f)))))))))))
(if.f64 (<=.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) #s(literal +inf.0 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))) #s(literal 1 binary64))) (+.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sin.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (+.f64 (*.f64 (-.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) #s(literal -1 binary64)) (+.f64 (*.f64 (sin.f64 (+.f64 omega omega)) (cos.f64 f)) (*.f64 (cos.f64 (+.f64 omega omega)) (sin.f64 f)))) (*.f64 (+.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) #s(literal 3 binary64))) (-.f64 (*.f64 (sin.f64 (+.f64 omega omega)) (cos.f64 (*.f64 #s(literal -3 binary64) f))) (*.f64 (cos.f64 (+.f64 omega omega)) (sin.f64 (*.f64 #s(literal -3 binary64) f))))))))))) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 sgn (*.f64 (*.f64 J2 #s(literal 1/2 binary64)) (/.f64 (/.f64 (*.f64 req req) (*.f64 a a)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (*.f64 sgn (*.f64 (*.f64 J2 #s(literal 1/2 binary64)) (/.f64 (/.f64 (*.f64 req req) (*.f64 a a)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))) #s(literal 1 binary64))) (+.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sin.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (+.f64 (*.f64 (-.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) #s(literal -1 binary64)) (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f))) (*.f64 (+.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) #s(literal 3 binary64))) (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f)))))))))))
(if.f64 (<=.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) #s(literal +inf.0 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))) #s(literal 1 binary64))) (+.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 1 binary64))) (sin.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (+.f64 (*.f64 (-.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal -1 binary64)) (+.f64 (*.f64 (sin.f64 (+.f64 omega omega)) (cos.f64 f)) (*.f64 (cos.f64 (+.f64 omega omega)) (sin.f64 f)))) (*.f64 (+.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (/.f64 #s(literal 1 binary64) #s(literal 3 binary64))) (-.f64 (*.f64 (sin.f64 (+.f64 omega omega)) (cos.f64 (*.f64 #s(literal -3 binary64) f))) (*.f64 (cos.f64 (+.f64 omega omega)) (sin.f64 (*.f64 #s(literal -3 binary64) f))))))))))) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 sgn (*.f64 (*.f64 J2 #s(literal 1/2 binary64)) (/.f64 (/.f64 (*.f64 req req) (*.f64 a a)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (*.f64 sgn (*.f64 (*.f64 J2 #s(literal 1/2 binary64)) (/.f64 (/.f64 (*.f64 req req) (*.f64 a a)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))) #s(literal 1 binary64))) (+.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sin.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (+.f64 (*.f64 (-.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) #s(literal -1 binary64)) (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f))) (*.f64 (+.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) #s(literal 3 binary64))) (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f)))))))))))
(if.f64 (<=.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) #s(literal +inf.0 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (-.f64 (*.f64 (sin.f64 (+.f64 (+.f64 omega omega) f)) (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 1 binary64)))) (*.f64 (-.f64 (-.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 1/3 binary64)) (pow.f64 (*.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64))) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))))) (*.f64 (neg.f64 (*.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 1 binary64))) #s(literal 2 binary64)) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 3 binary64)) #s(literal 1 binary64)))) (sin.f64 f)))))) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 sgn (*.f64 (*.f64 J2 #s(literal 1/2 binary64)) (/.f64 (/.f64 (*.f64 req req) (*.f64 a a)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (*.f64 sgn (*.f64 (*.f64 J2 #s(literal 1/2 binary64)) (/.f64 (/.f64 (*.f64 req req) (*.f64 a a)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))) #s(literal 1 binary64))) (+.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sin.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (+.f64 (*.f64 (-.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) #s(literal -1 binary64)) (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f))) (*.f64 (+.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) #s(literal 3 binary64))) (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f)))))))))))
(-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64)) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))) #s(literal 3 binary64)) (-.f64 (*.f64 (sin.f64 (+.f64 (+.f64 omega omega) f)) (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 1 binary64)))) (*.f64 (-.f64 (-.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 1/3 binary64)) (pow.f64 (*.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64))) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))))) (*.f64 (neg.f64 (*.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 1 binary64))) #s(literal 2 binary64)) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 3 binary64)) #s(literal 1 binary64)))) (sin.f64 f))))))
(-.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) e) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64)) #s(literal 1 binary64))))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (+.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 1/3 binary64)))) (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 1 binary64))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal 3 binary64)) (*.f64 (sin.f64 f) (*.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 3 binary64)) #s(literal 1 binary64)))))))
(-.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))))) e) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64)) #s(literal 1 binary64))))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (+.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 1/3 binary64)))) (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 1 binary64))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal 3 binary64)) (*.f64 (sin.f64 f) (*.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 3 binary64)) #s(literal 1 binary64)))))))
(if.f64 (<=.f64 (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))) #s(literal 1 binary64))) (+.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sin.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (+.f64 (*.f64 (-.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) #s(literal -1 binary64)) (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f))) (*.f64 (+.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) #s(literal 3 binary64))) (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f)))))))))) #s(literal 20000000000000000972951946574530020809696306199942110319470620794837302254715469401583806011140257821063477891777664284857169194331019417246392932909932297429348641963086171621114026440078750604146701247291783247262238357818013304609570816 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) e) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64)) #s(literal 1 binary64))))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (+.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 1/3 binary64)))) (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 1 binary64))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal 3 binary64)) (*.f64 (sin.f64 f) (*.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 3 binary64)) #s(literal 1 binary64))))))) (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 req req) (*.f64 J2 sgn)) (*.f64 (*.f64 (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))) (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 2 binary64)))) e) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64)) #s(literal 1 binary64))))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 req req) (*.f64 J2 sgn)) (*.f64 (*.f64 (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))) (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 2 binary64)))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (+.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 1/3 binary64)))) (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 1 binary64))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal 3 binary64)) (*.f64 (sin.f64 f) (*.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 3 binary64)) #s(literal 1 binary64))))))))
(if.f64 (<=.f64 (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (sin.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 4 binary64)) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (*.f64 (*.f64 (*.f64 #s(literal 2 binary64) (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))) #s(literal 1 binary64))) (+.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) #s(literal 1 binary64))) (sin.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (+.f64 (*.f64 (-.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) #s(literal -1 binary64)) (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f))) (*.f64 (+.f64 (+.f64 (pow.f64 (*.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) #s(literal 2 binary64)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) #s(literal 3 binary64))) (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f)))))))))) #s(literal 20000000000000000972951946574530020809696306199942110319470620794837302254715469401583806011140257821063477891777664284857169194331019417246392932909932297429348641963086171621114026440078750604146701247291783247262238357818013304609570816 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 req (/.f64 (/.f64 req (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) e) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64)) #s(literal 1 binary64))))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 req (/.f64 (/.f64 req (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (+.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 1/3 binary64)))) (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 1 binary64))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal 3 binary64)) (*.f64 (sin.f64 f) (*.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 3 binary64)) #s(literal 1 binary64))))))) (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 req req) (*.f64 J2 sgn)) (*.f64 (*.f64 (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))) (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 2 binary64)))) e) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64)) #s(literal 1 binary64))))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 (*.f64 req req) (*.f64 J2 sgn)) (*.f64 (*.f64 (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))) (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 2 binary64)))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (+.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 1/3 binary64)))) (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 1 binary64))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal 3 binary64)) (*.f64 (sin.f64 f) (*.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 3 binary64)) #s(literal 1 binary64))))))))
(-.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 req (*.f64 (/.f64 req (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a) a) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))))) e) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64)) #s(literal 1 binary64))))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 req (*.f64 (/.f64 req (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a) a) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (+.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 1/3 binary64)))) (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 1 binary64))))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal 3 binary64)) (*.f64 (sin.f64 f) (*.f64 (*.f64 (-.f64 (pow.f64 (*.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) #s(literal 2 binary64)) (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 1 binary64))) #s(literal 2 binary64)) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 3 binary64)) #s(literal 1 binary64)))))))
(if.f64 (<=.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))) #s(literal 5000000000000000233009035874103487842025429049746884307104902290093413906615431497863838561070978561605169882979927449326586308330034490456803110487463217202937150636836581109497436029475276191632298678857801213921774796800 binary64)) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (-.f64 (*.f64 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 omega omega)))) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 omega omega))))) (cos.f64 (+.f64 f f))) (*.f64 (sin.f64 (+.f64 omega omega)) (sin.f64 (+.f64 f f))))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req a)) J2) sgn) (*.f64 (*.f64 a #s(literal 2 binary64)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req a)) J2) sgn) (*.f64 (*.f64 a #s(literal 2 binary64)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 omega omega)) (cos.f64 (+.f64 f f))) (*.f64 (sin.f64 (+.f64 omega omega)) (sin.f64 (+.f64 f f))))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))))
(if.f64 (<=.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))) #s(literal 5000000000000000233009035874103487842025429049746884307104902290093413906615431497863838561070978561605169882979927449326586308330034490456803110487463217202937150636836581109497436029475276191632298678857801213921774796800 binary64)) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 omega omega)) (cos.f64 (+.f64 f f))) (*.f64 (sin.f64 (+.f64 omega omega)) (sin.f64 (+.f64 f f))))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req a)) J2) sgn) (*.f64 (*.f64 a #s(literal 2 binary64)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req a)) J2) sgn) (*.f64 (*.f64 a #s(literal 2 binary64)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 omega omega)) (cos.f64 (+.f64 f f))) (*.f64 (sin.f64 (+.f64 omega omega)) (sin.f64 (+.f64 f f))))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))))
(if.f64 (<=.f64 omega #s(literal -3666197480843679/26187124863169134960105517574620793217733136368344518315866330944769070371237396439066160738607233257207093473020480568073738052367083144426628220715008 binary64)) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (/.f64 (*.f64 (*.f64 req (/.f64 req a)) J2) (*.f64 a #s(literal 2 binary64))) (/.f64 sgn (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (*.f64 (/.f64 (*.f64 (*.f64 req (/.f64 req a)) J2) (*.f64 a #s(literal 2 binary64))) (/.f64 sgn (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 omega omega)) (cos.f64 (+.f64 f f))) (*.f64 (sin.f64 (+.f64 omega omega)) (sin.f64 (+.f64 f f))))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))) (if.f64 (<=.f64 omega #s(literal 6980579422424269/2251799813685248 binary64)) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))) #s(literal 3 binary64))) (*.f64 (fabs.f64 (sin.f64 i)) (cos.f64 i))))) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (/.f64 (*.f64 (*.f64 req (/.f64 req a)) J2) (*.f64 a #s(literal 2 binary64))) (/.f64 sgn (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (*.f64 (/.f64 (*.f64 (*.f64 req (/.f64 req a)) J2) (*.f64 a #s(literal 2 binary64))) (/.f64 sgn (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 omega omega)) (cos.f64 (+.f64 f f))) (*.f64 (sin.f64 (+.f64 omega omega)) (sin.f64 (+.f64 f f))))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f)))))))))))
(if.f64 (<=.f64 omega #s(literal -5237424972633827/6546781215792283740026379393655198304433284092086129578966582736192267592809349109766540184651808314301773368255120142018434513091770786106657055178752 binary64)) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req a)) J2) sgn) (*.f64 (*.f64 a #s(literal 2 binary64)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req a)) J2) sgn) (*.f64 (*.f64 a #s(literal 2 binary64)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 omega omega)) (cos.f64 (+.f64 f f))) (*.f64 (sin.f64 (+.f64 omega omega)) (sin.f64 (+.f64 f f))))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))) (if.f64 (<=.f64 omega #s(literal 3039929748475085/2251799813685248 binary64)) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))) #s(literal 3 binary64))) (*.f64 (fabs.f64 (sin.f64 i)) (cos.f64 i))))) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req a)) J2) sgn) (*.f64 (*.f64 a #s(literal 2 binary64)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req a)) J2) sgn) (*.f64 (*.f64 a #s(literal 2 binary64)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 omega omega)) (cos.f64 (+.f64 f f))) (*.f64 (sin.f64 (+.f64 omega omega)) (sin.f64 (+.f64 f f))))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f)))))))))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 0 binary64)) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req a)) J2) sgn) (*.f64 (*.f64 a #s(literal 2 binary64)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req a)) J2) sgn) (*.f64 (*.f64 a #s(literal 2 binary64)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (*.f64 (sin.f64 i) (sin.f64 i))) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))) (if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 9999999999999999071569656121801212080692814968920789464627446869617922299624001453201875281811380250249693879805812353226907091680705581859236698853640605134247712274342131878495422251008 binary64)) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))) #s(literal 3 binary64))) (*.f64 (fabs.f64 (sin.f64 i)) (cos.f64 i))))) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 J2 sgn) (/.f64 (*.f64 req req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 J2 sgn) (/.f64 (*.f64 req req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a))) (*.f64 #s(literal 2 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 omega omega)) (cos.f64 (+.f64 f f))) (*.f64 (sin.f64 (+.f64 omega omega)) (sin.f64 (+.f64 f f))))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f)))))))))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 0 binary64)) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req a)) J2) sgn) (*.f64 (*.f64 a #s(literal 2 binary64)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req a)) J2) sgn) (*.f64 (*.f64 a #s(literal 2 binary64)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (*.f64 (sin.f64 i) (sin.f64 i))) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))) (if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 9999999999999999529098585253973751145501342374646995204443699533752222309208135100774737254399069875964494058799026896824009283758441475916906799486389390443691279468658234350904109878520700943148057046794110173854458342872794765056233999682236635579342942941443126198272 binary64)) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))) #s(literal 3 binary64))) (*.f64 (fabs.f64 (sin.f64 i)) (cos.f64 i))))) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 J2 sgn) (*.f64 req req)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 J2 sgn) (*.f64 req req)) (*.f64 #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 omega omega)) (cos.f64 (+.f64 f f))) (*.f64 (sin.f64 (+.f64 omega omega)) (sin.f64 (+.f64 f f))))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f)))))))))))
(if.f64 (<=.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))) #s(literal 5000000000000000233009035874103487842025429049746884307104902290093413906615431497863838561070978561605169882979927449326586308330034490456803110487463217202937150636836581109497436029475276191632298678857801213921774796800 binary64)) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))) #s(literal 3 binary64))) (*.f64 (fabs.f64 (sin.f64 i)) (cos.f64 i))))) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 #s(literal 1/2 binary64) J2)) sgn) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 #s(literal 1/2 binary64) J2)) sgn) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 omega omega)) (cos.f64 (+.f64 f f))) (*.f64 (sin.f64 (+.f64 omega omega)) (sin.f64 (+.f64 f f))))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))))
(if.f64 (<=.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))) #s(literal +inf.0 binary64)) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (+.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))) #s(literal 3 binary64))) (*.f64 (fabs.f64 (sin.f64 i)) (cos.f64 i))))) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 sgn (*.f64 (*.f64 J2 #s(literal 1/2 binary64)) (/.f64 (/.f64 (*.f64 req req) (*.f64 a a)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (neg.f64 (sin.f64 i)) (cos.f64 (+.f64 i (PI.f64))))))) (*.f64 (/.f64 (*.f64 sgn (*.f64 (*.f64 J2 #s(literal 1/2 binary64)) (/.f64 (/.f64 (*.f64 req req) (*.f64 a a)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))))
(if.f64 (<=.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))) #s(literal +inf.0 binary64)) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (*.f64 (+.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))) #s(literal 3 binary64))) (cos.f64 i)) (fabs.f64 (sin.f64 i))))) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 sgn (*.f64 (*.f64 J2 #s(literal 1/2 binary64)) (/.f64 (/.f64 (*.f64 req req) (*.f64 a a)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (neg.f64 (sin.f64 i)) (cos.f64 (+.f64 i (PI.f64))))))) (*.f64 (/.f64 (*.f64 sgn (*.f64 (*.f64 J2 #s(literal 1/2 binary64)) (/.f64 (/.f64 (*.f64 req req) (*.f64 a a)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))))
(if.f64 (<=.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))) #s(literal +inf.0 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (cos.f64 i)) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) e) e) (/.f64 (*.f64 (*.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 11 binary64))) (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64)))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (tan.f64 i))))) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 sgn (*.f64 (*.f64 J2 #s(literal 1/2 binary64)) (/.f64 (/.f64 (*.f64 req req) (*.f64 a a)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (/.f64 (neg.f64 (sin.f64 i)) (cos.f64 (+.f64 i (PI.f64))))))) (*.f64 (/.f64 (*.f64 sgn (*.f64 (*.f64 J2 #s(literal 1/2 binary64)) (/.f64 (/.f64 (*.f64 req req) (*.f64 a a)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))))
(if.f64 (<=.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))) #s(literal 5000000000000000233009035874103487842025429049746884307104902290093413906615431497863838561070978561605169882979927449326586308330034490456803110487463217202937150636836581109497436029475276191632298678857801213921774796800 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (cos.f64 i)) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) e) e) (/.f64 (*.f64 (*.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 11 binary64))) (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64)))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (tan.f64 i))))) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req a)) J2) sgn) (*.f64 (*.f64 a #s(literal 2 binary64)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req a)) J2) sgn) (*.f64 (*.f64 a #s(literal 2 binary64)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (*.f64 (sin.f64 i) (sin.f64 i))) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))))
(if.f64 (<=.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))) #s(literal +inf.0 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (cos.f64 i)) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) e) e) (/.f64 (*.f64 (*.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 11 binary64))) (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64)))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (tan.f64 i))))) (-.f64 (*.f64 (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i)))))) (cos.f64 i)) (*.f64 (+.f64 (*.f64 (cos.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) (+.f64 omega omega))) e) (*.f64 #s(literal 3 binary64) (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e) (cos.f64 (*.f64 #s(literal -2 binary64) (+.f64 f omega)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 #s(literal 1/2 binary64) J2)) sgn)))) (/.f64 (*.f64 (*.f64 e (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 #s(literal 1/2 binary64) J2)) sgn)) e)) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i))))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i)))) #s(literal 11 binary64)) #s(literal 1 binary64)))) (sin.f64 (-.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) (+.f64 omega omega))))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (tan.f64 i)))))
(if.f64 (<=.f64 (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) (tan.f64 i)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))) (*.f64 (*.f64 #s(literal 3 binary64) e) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))) #s(literal +inf.0 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (cos.f64 i)) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) e) e) (/.f64 (*.f64 (*.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 11 binary64))) (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64)))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (tan.f64 i))))) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (*.f64 req req) (*.f64 (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))) (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (sin.f64 (+.f64 i (*.f64 (PI.f64) #s(literal 1/2 binary64))))) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 req req) (*.f64 (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))) (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) e) e) (/.f64 (*.f64 (*.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 11 binary64))) (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (sin.f64 (+.f64 i (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 4 binary64))) (-.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64)))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (tan.f64 i))))))
(-.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (cos.f64 i)) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) e) e) (/.f64 (*.f64 (*.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 11 binary64))) (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64)))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (tan.f64 i)))))
(-.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 req (/.f64 req (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (cos.f64 i)) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 req (/.f64 req (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) e) e) (/.f64 (*.f64 (*.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 11 binary64))) (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64)))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (tan.f64 i)))))
(-.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (cos.f64 i)) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 req req)) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn)) e) (*.f64 e (*.f64 (*.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64))) (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 binary64)) #s(literal 1 binary64)))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (/.f64 (cos.f64 (+.f64 omega omega)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (tan.f64 i)))))))
(-.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 req (/.f64 req (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (cos.f64 i)) (*.f64 (fabs.f64 (sin.f64 i)) (+.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 req req)) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn)) e) (*.f64 e (*.f64 (*.f64 (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64))) (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 binary64)) #s(literal 1 binary64)))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (/.f64 (cos.f64 (+.f64 omega omega)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (tan.f64 i)))))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 3019169939857233/15095849699286165408966218323953075563667684881665761713504825200982496649568595408344506900710635070165873500123055379599082338519699170530245737005730784174597581307904 binary64)) (*.f64 e (*.f64 (*.f64 req (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (*.f64 (*.f64 a (*.f64 #s(literal 8 binary64) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64)) #s(literal 1 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (cos.f64 (+.f64 omega omega))))) (if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 199999999999999993946624442502072331894900655091004725296483501900693696871108151068392676809412503736055024831947764816364271468736556969278770082094479755742047182133579963622363626612334257709776896 binary64)) (*.f64 J2 (*.f64 (*.f64 sgn (*.f64 (*.f64 (*.f64 (-.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal -3/2 binary64) (*.f64 #s(literal 5/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal -1 binary64)) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64))) (cos.f64 (+.f64 omega omega))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (/.f64 req (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a)) (*.f64 (/.f64 req (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a)) #s(literal 1/16 binary64))))) e)) (*.f64 (/.f64 req a) (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 a (*.f64 (*.f64 #s(literal 8 binary64) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) e) (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 5/2 binary64) (*.f64 #s(literal -5/2 binary64) (cos.f64 (+.f64 i i)))))) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64)) #s(literal 1 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (cos.f64 (+.f64 omega omega)))))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 2000000000000000145062872763058470252316748819293043911036420310958080 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 (*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) #s(literal -1 binary64))) sgn) (*.f64 #s(literal 8 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 a (*.f64 (*.f64 #s(literal 8 binary64) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) e)) a) (pow.f64 (sqrt.f64 (*.f64 (-.f64 e #s(literal -1 binary64)) (neg.f64 (-.f64 e #s(literal 1 binary64))))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 2000000000000000145062872763058470252316748819293043911036420310958080 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) #s(literal -1 binary64))) J2) sgn) (*.f64 #s(literal 8 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 a (*.f64 (*.f64 #s(literal 8 binary64) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) e)) a) (pow.f64 (sqrt.f64 (*.f64 (-.f64 e #s(literal -1 binary64)) (neg.f64 (-.f64 e #s(literal 1 binary64))))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 2000000000000000145062872763058470252316748819293043911036420310958080 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (*.f64 #s(literal 8 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 a (*.f64 (*.f64 #s(literal 8 binary64) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) e)) a) (pow.f64 (sqrt.f64 (*.f64 (-.f64 e #s(literal -1 binary64)) (neg.f64 (-.f64 e #s(literal 1 binary64))))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 2000000000000000145062872763058470252316748819293043911036420310958080 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) #s(literal -1 binary64))) J2) sgn) (*.f64 #s(literal 8 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) e) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 a (*.f64 (*.f64 #s(literal 8 binary64) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) e)) a) (pow.f64 (sqrt.f64 (*.f64 (-.f64 e #s(literal -1 binary64)) (neg.f64 (-.f64 e #s(literal 1 binary64))))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 9999999999999999438119489974413630815797154428513196965888 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) #s(literal -1 binary64))) J2) sgn) (*.f64 #s(literal 8 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) e) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 a (*.f64 (*.f64 #s(literal 8 binary64) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (/.f64 req a) (*.f64 e (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 9999999999999999438119489974413630815797154428513196965888 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (*.f64 #s(literal 8 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) e) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 a (*.f64 (*.f64 #s(literal 8 binary64) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (/.f64 req a) (*.f64 e (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 9999999999999999438119489974413630815797154428513196965888 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (*.f64 #s(literal 8 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) e) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 a (*.f64 (*.f64 #s(literal 8 binary64) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 e (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 10000000000000000102350670204085511496304388135324745728 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (*.f64 #s(literal 8 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) e) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64))) (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 binary64)) #s(literal 1 binary64))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 a (*.f64 (*.f64 #s(literal 8 binary64) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 e (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 10000000000000000102350670204085511496304388135324745728 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (*.f64 #s(literal 8 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) e) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64))) (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (/.f64 #s(literal 1 binary64) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 binary64)) #s(literal 1 binary64))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 req a) (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 a (*.f64 (*.f64 #s(literal 8 binary64) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) e) (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 5/2 binary64) (*.f64 #s(literal -5/2 binary64) (cos.f64 (+.f64 i i)))))) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64)) #s(literal 1 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (cos.f64 (+.f64 omega omega))))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 10000000000000000102350670204085511496304388135324745728 binary64)) (*.f64 (/.f64 req a) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) #s(literal 1/8 binary64)) e) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64)) #s(literal 1 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (cos.f64 (+.f64 omega omega))))) (*.f64 (/.f64 req a) (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 a (*.f64 (*.f64 #s(literal 8 binary64) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) e) (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 5/2 binary64) (*.f64 #s(literal -5/2 binary64) (cos.f64 (+.f64 i i)))))) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64)) #s(literal 1 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (cos.f64 (+.f64 omega omega))))))
(if.f64 (<=.f64 (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) #s(literal 49999999999999999884518512257185400348306273996201919460278431983048793274064838238955966239342592 binary64)) (*.f64 e (/.f64 (*.f64 (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64)) #s(literal 1 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (cos.f64 (+.f64 omega omega))) (*.f64 (*.f64 (*.f64 J2 sgn) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a))) (/.f64 req (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a)))) #s(literal -16 binary64))) (*.f64 (cos.f64 (+.f64 omega omega)) (*.f64 (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64)) #s(literal 1 binary64))) (/.f64 (*.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.f64 e (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (*.f64 a (*.f64 #s(literal 8 binary64) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))))
(if.f64 (<=.f64 (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) #s(literal 49999999999999999884518512257185400348306273996201919460278431983048793274064838238955966239342592 binary64)) (*.f64 e (/.f64 (*.f64 (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64)) #s(literal 1 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (cos.f64 (+.f64 omega omega))) (*.f64 (*.f64 (*.f64 J2 sgn) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a))) (/.f64 req (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a)))) #s(literal -16 binary64))) (*.f64 (cos.f64 (+.f64 omega omega)) (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 5/2 binary64) (*.f64 #s(literal -5/2 binary64) (cos.f64 (+.f64 i i)))))) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64)) #s(literal 1 binary64))) (/.f64 (*.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.f64 e (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 a (*.f64 (*.f64 #s(literal 8 binary64) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (-.f64 (*.f64 e e) #s(literal 1 binary64))))))))
(if.f64 (<=.f64 (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) #s(literal +inf.0 binary64)) (*.f64 e (/.f64 (*.f64 (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64)) #s(literal 1 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (cos.f64 (+.f64 omega omega))) (*.f64 (*.f64 (*.f64 J2 sgn) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a))) (/.f64 req (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a)))) #s(literal -16 binary64))) (*.f64 J2 (*.f64 (*.f64 sgn (*.f64 (*.f64 (*.f64 (*.f64 (-.f64 (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 #s(literal 5/2 binary64) (cos.f64 (+.f64 i i))) #s(literal -3/2 binary64))) #s(literal -1 binary64)) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal 1/16 binary64))) (/.f64 req (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a))) (/.f64 req (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a)))) e)))
(if.f64 (<=.f64 (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) #s(literal +inf.0 binary64)) (*.f64 e (/.f64 (*.f64 (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (-.f64 #s(literal 5/2 binary64) (*.f64 #s(literal -5/2 binary64) (cos.f64 (+.f64 i i)))))) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64)) #s(literal 1 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (cos.f64 (+.f64 omega omega))) (*.f64 (*.f64 (*.f64 J2 sgn) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a))) (/.f64 req (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a)))) #s(literal -16 binary64))) (*.f64 J2 (*.f64 (*.f64 sgn (*.f64 (*.f64 (*.f64 (*.f64 (-.f64 (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 #s(literal 5/2 binary64) (cos.f64 (+.f64 i i))) #s(literal -3/2 binary64))) #s(literal -1 binary64)) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal 1/16 binary64))) (/.f64 req (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a))) (/.f64 req (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a)))) e)))
(*.f64 J2 (*.f64 (*.f64 sgn (*.f64 (*.f64 (*.f64 (*.f64 (-.f64 (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 #s(literal 5/2 binary64) (cos.f64 (+.f64 i i))) #s(literal -3/2 binary64))) #s(literal -1 binary64)) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal 1/16 binary64))) (/.f64 req (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a))) (/.f64 req (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a)))) e))
(*.f64 J2 (*.f64 (*.f64 sgn (*.f64 (*.f64 (*.f64 (-.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal -3/2 binary64) (*.f64 #s(literal 5/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal -1 binary64)) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64))) (cos.f64 (+.f64 omega omega))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (/.f64 req (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a)) (*.f64 (/.f64 req (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a)) #s(literal 1/16 binary64))))) e))
(*.f64 J2 (*.f64 (*.f64 sgn (*.f64 (*.f64 (*.f64 (-.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal -3/2 binary64) (*.f64 #s(literal 5/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal -1 binary64)) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64))) (cos.f64 (+.f64 omega omega))) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (/.f64 #s(literal 1/16 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) req)))) e))
(*.f64 J2 (*.f64 (*.f64 sgn (*.f64 (*.f64 (*.f64 (*.f64 (-.f64 (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 #s(literal 5/2 binary64) (cos.f64 (+.f64 i i))) #s(literal -3/2 binary64))) #s(literal -1 binary64)) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal 1/16 binary64))) req) (/.f64 req (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) a) a) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) e))
(if.f64 (<=.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) #s(literal +inf.0 binary64)) (+.f64 (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 i (/.f64 (PI.f64) #s(literal 2 binary64))))))))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 i (/.f64 (PI.f64) #s(literal 2 binary64)))))))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (+.f64 (+.f64 (+.f64 (*.f64 e (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) (/.f64 e (+.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))))) (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) e) (pow.f64 (cos.f64 f) #s(literal 2 binary64))))) (*.f64 (pow.f64 e #s(literal 2 binary64)) (pow.f64 (cos.f64 f) #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (/.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (sin.f64 i) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 6 binary64))) (+.f64 (+.f64 e (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) e) (pow.f64 (cos.f64 f) #s(literal 2 binary64))))) (*.f64 (pow.f64 e #s(literal 2 binary64)) (pow.f64 (cos.f64 f) #s(literal 3 binary64))))) (-.f64 (*.f64 (cos.f64 (+.f64 omega omega)) (cos.f64 (+.f64 f f))) (*.f64 (sin.f64 (+.f64 omega omega)) (sin.f64 (+.f64 f f))))))))) (+.f64 (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 a a)) sgn) (*.f64 J2 #s(literal 1/2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 a a)) sgn) (*.f64 J2 #s(literal 1/2 binary64))) (+.f64 (+.f64 (+.f64 (*.f64 e (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) (/.f64 e (+.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))))) (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) e) (pow.f64 (cos.f64 f) #s(literal 2 binary64))))) (*.f64 (pow.f64 e #s(literal 2 binary64)) (pow.f64 (cos.f64 f) #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 a a)) sgn) (*.f64 J2 #s(literal 1/2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (/.f64 (*.f64 #s(literal 3 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 6 binary64))) (+.f64 (+.f64 e (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) e) (pow.f64 (cos.f64 f) #s(literal 2 binary64))))) (*.f64 (pow.f64 e #s(literal 2 binary64)) (pow.f64 (cos.f64 f) #s(literal 3 binary64))))) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))))))))
(if.f64 (<=.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) #s(literal +inf.0 binary64)) (+.f64 (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (+.f64 (+.f64 (+.f64 (*.f64 e (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (/.f64 e (+.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) e) (pow.f64 (cos.f64 f) #s(literal 2 binary64))))) (*.f64 (*.f64 e e) (pow.f64 (cos.f64 f) #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 4 binary64))) (*.f64 (*.f64 (/.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (sin.f64 i) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 6 binary64))) (+.f64 (+.f64 e (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) e) (pow.f64 (cos.f64 f) #s(literal 2 binary64))))) (*.f64 (*.f64 e e) (pow.f64 (cos.f64 f) #s(literal 3 binary64))))) (-.f64 (*.f64 (cos.f64 (+.f64 omega omega)) (cos.f64 (+.f64 f f))) (*.f64 (sin.f64 (+.f64 omega omega)) (sin.f64 (+.f64 f f))))))))) (+.f64 (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 a a)) sgn) (*.f64 J2 #s(literal 1/2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 a a)) sgn) (*.f64 J2 #s(literal 1/2 binary64))) (+.f64 (+.f64 (+.f64 (*.f64 e (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) (/.f64 e (+.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))))) (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) e) (pow.f64 (cos.f64 f) #s(literal 2 binary64))))) (*.f64 (pow.f64 e #s(literal 2 binary64)) (pow.f64 (cos.f64 f) #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 a a)) sgn) (*.f64 J2 #s(literal 1/2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (/.f64 (*.f64 #s(literal 3 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 6 binary64))) (+.f64 (+.f64 e (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) e) (pow.f64 (cos.f64 f) #s(literal 2 binary64))))) (*.f64 (pow.f64 e #s(literal 2 binary64)) (pow.f64 (cos.f64 f) #s(literal 3 binary64))))) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))))))))
(+.f64 (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (+.f64 (+.f64 (+.f64 (*.f64 e (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (/.f64 e (+.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) e) (pow.f64 (cos.f64 f) #s(literal 2 binary64))))) (*.f64 (*.f64 e e) (pow.f64 (cos.f64 f) #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 4 binary64))) (*.f64 (*.f64 (/.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (sin.f64 i) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 6 binary64))) (+.f64 (+.f64 e (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) e) (pow.f64 (cos.f64 f) #s(literal 2 binary64))))) (*.f64 (*.f64 e e) (pow.f64 (cos.f64 f) #s(literal 3 binary64))))) (-.f64 (*.f64 (cos.f64 (+.f64 omega omega)) (cos.f64 (+.f64 f f))) (*.f64 (sin.f64 (+.f64 omega omega)) (sin.f64 (+.f64 f f)))))))))
(+.f64 (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (+.f64 (+.f64 (+.f64 (*.f64 e (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) (/.f64 e (+.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))))) (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) e) (pow.f64 (cos.f64 f) #s(literal 2 binary64))))) (*.f64 (pow.f64 e #s(literal 2 binary64)) (pow.f64 (cos.f64 f) #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))) (*.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal -3 binary64)) #s(literal 3 binary64)) (*.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (+.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) #s(literal -1 binary64)) e) (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64))))))))))
(-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (/.f64 req a) (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (*.f64 #s(literal 8 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (cos.f64 (+.f64 omega omega))) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i))))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i)))) #s(literal 11 binary64)) #s(literal 1 binary64)))) (*.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (cos.f64 (*.f64 #s(literal -2 binary64) (+.f64 f omega)))) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) e) e) (*.f64 #s(literal 3 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 f f)))) e) (cos.f64 f)))) (*.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i))))) (*.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal -3 binary64)))))) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) e) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) e)) (+.f64 (*.f64 #s(literal 3 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 f f)))) e) (cos.f64 f))) (/.f64 e (-.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1 binary64))))) (*.f64 (/.f64 req a) (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))
(if.f64 (<=.f64 (+.f64 (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (+.f64 (+.f64 (+.f64 (*.f64 e (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) (/.f64 e (+.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))))) (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) e) (pow.f64 (cos.f64 f) #s(literal 2 binary64))))) (*.f64 (pow.f64 e #s(literal 2 binary64)) (pow.f64 (cos.f64 f) #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (/.f64 (*.f64 #s(literal 3 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 6 binary64))) (+.f64 (+.f64 e (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) e) (pow.f64 (cos.f64 f) #s(literal 2 binary64))))) (*.f64 (pow.f64 e #s(literal 2 binary64)) (pow.f64 (cos.f64 f) #s(literal 3 binary64))))) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))))))) #s(literal +inf.0 binary64)) (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 req a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (*.f64 #s(literal 8 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (cos.f64 (+.f64 omega omega))) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i))))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i)))) #s(literal 11 binary64)) #s(literal 1 binary64)))) (*.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 req a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (cos.f64 (*.f64 #s(literal -2 binary64) (+.f64 f omega)))) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) e) e) (*.f64 #s(literal 3 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 f f)))) e) (cos.f64 f)))) (*.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i))))) (*.f64 #s(literal 3 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal -3 binary64)))))) (*.f64 (/.f64 req a) (*.f64 (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn)) (+.f64 (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)) (/.f64 e (-.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1 binary64)))) (*.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) e))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (*.f64 (*.f64 a a) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/8 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (-.f64 (/.f64 (*.f64 (pow.f64 (sin.f64 (+.f64 i (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 11 binary64)) #s(literal 1 binary64)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (*.f64 (*.f64 a a) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal -3 binary64)) #s(literal 3 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (+.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) #s(literal -1 binary64)) e) (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 a a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (+.f64 (*.f64 e (+.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)) (/.f64 e (-.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1 binary64))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 e e))))))
(if.f64 (<=.f64 (+.f64 (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (+.f64 (+.f64 (+.f64 (*.f64 e (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) (/.f64 e (+.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))))) (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) e) (pow.f64 (cos.f64 f) #s(literal 2 binary64))))) (*.f64 (pow.f64 e #s(literal 2 binary64)) (pow.f64 (cos.f64 f) #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (/.f64 (*.f64 #s(literal 3 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 6 binary64))) (+.f64 (+.f64 e (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) e) (pow.f64 (cos.f64 f) #s(literal 2 binary64))))) (*.f64 (pow.f64 e #s(literal 2 binary64)) (pow.f64 (cos.f64 f) #s(literal 3 binary64))))) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))))))) #s(literal +inf.0 binary64)) (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 req a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (*.f64 #s(literal 8 binary64) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (cos.f64 (+.f64 omega omega))) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i))))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i)))) #s(literal 11 binary64)) #s(literal 1 binary64)))) (*.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 req a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (cos.f64 (*.f64 #s(literal -2 binary64) (+.f64 f omega)))) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) e) e) (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64))) (*.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal -3 binary64)) #s(literal 3 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))))) (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) e) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) e)) (+.f64 (*.f64 #s(literal 3 binary64) (+.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 f f)))) e) (cos.f64 f))) (/.f64 e (-.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1 binary64))))) (*.f64 (*.f64 (/.f64 req a) (/.f64 req a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (*.f64 (*.f64 a a) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/8 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (-.f64 (/.f64 (*.f64 (pow.f64 (sin.f64 (+.f64 i (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 11 binary64)) #s(literal 1 binary64)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (*.f64 (*.f64 a a) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal -3 binary64)) #s(literal 3 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (+.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) #s(literal -1 binary64)) e) (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 a a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (+.f64 (*.f64 e (+.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)) (/.f64 e (-.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1 binary64))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 e e))))))
(if.f64 (<=.f64 (+.f64 (*.f64 (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) e) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) (*.f64 (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64)) #s(literal 2 binary64)) (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (+.f64 (+.f64 (+.f64 (*.f64 e (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))) (/.f64 e (+.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64))))))) (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) e) (pow.f64 (cos.f64 f) #s(literal 2 binary64))))) (*.f64 (pow.f64 e #s(literal 2 binary64)) (pow.f64 (cos.f64 f) #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) (*.f64 (*.f64 (/.f64 (*.f64 #s(literal 3 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 6 binary64))) (+.f64 (+.f64 e (+.f64 (*.f64 #s(literal 3 binary64) (cos.f64 f)) (*.f64 (*.f64 #s(literal 3 binary64) e) (pow.f64 (cos.f64 f) #s(literal 2 binary64))))) (*.f64 (pow.f64 e #s(literal 2 binary64)) (pow.f64 (cos.f64 f) #s(literal 3 binary64))))) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))))))) #s(literal +inf.0 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (-.f64 (*.f64 e e) #s(literal 1 binary64))) (/.f64 (*.f64 (/.f64 (/.f64 req a) a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 11 binary64)) #s(literal 1 binary64)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (-.f64 (*.f64 e e) #s(literal 1 binary64))) (/.f64 (*.f64 (/.f64 (/.f64 req a) a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal -3 binary64)) #s(literal 3 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (+.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) #s(literal -1 binary64)) e) (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 req (/.f64 (/.f64 req a) a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (+.f64 (*.f64 e (+.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)) (/.f64 e (-.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1 binary64))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (*.f64 (*.f64 a a) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/8 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (-.f64 (/.f64 (*.f64 (pow.f64 (sin.f64 (+.f64 i (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 11 binary64)) #s(literal 1 binary64)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (*.f64 (*.f64 a a) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal -3 binary64)) #s(literal 3 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (+.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) #s(literal -1 binary64)) e) (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 a a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (+.f64 (*.f64 e (+.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)) (/.f64 e (-.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1 binary64))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 e e))))))
(if.f64 (<=.f64 a #s(literal -1162941958872971/11629419588729710248789180926208072549658261770997088964503843186890228609814366773219056811420217048972200345700258846936553626057834496 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (-.f64 (*.f64 e e) #s(literal 1 binary64))) (/.f64 (*.f64 (/.f64 req (*.f64 a a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 11 binary64)) #s(literal 1 binary64)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (-.f64 (*.f64 e e) #s(literal 1 binary64))) (/.f64 (*.f64 (/.f64 req (*.f64 a a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal -3 binary64)) #s(literal 3 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (+.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) #s(literal -1 binary64)) e) (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64))))) (*.f64 (/.f64 req a) (*.f64 (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn)) (+.f64 (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)) (/.f64 e (-.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1 binary64)))) (*.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) e))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (-.f64 (*.f64 e e) #s(literal 1 binary64))) (/.f64 (*.f64 (/.f64 (/.f64 req a) a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 11 binary64)) #s(literal 1 binary64)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (-.f64 (*.f64 e e) #s(literal 1 binary64))) (/.f64 (*.f64 (/.f64 (/.f64 req a) a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal -3 binary64)) #s(literal 3 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (+.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) #s(literal -1 binary64)) e) (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 req (/.f64 (/.f64 req a) a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (+.f64 (*.f64 e (+.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)) (/.f64 e (-.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1 binary64))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 e e))))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 9999999999999999529098585253973751145501342374646995204443699533752222309208135100774737254399069875964494058799026896824009283758441475916906799486389390443691279468658234350904109878520700943148057046794110173854458342872794765056233999682236635579342942941443126198272 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (-.f64 (*.f64 e e) #s(literal 1 binary64))) (/.f64 (*.f64 (/.f64 req (*.f64 a a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 11 binary64)) #s(literal 1 binary64)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (-.f64 (*.f64 e e) #s(literal 1 binary64))) (/.f64 (*.f64 (/.f64 req (*.f64 a a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal -3 binary64)) #s(literal 3 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (+.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) #s(literal -1 binary64)) e) (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 req a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (+.f64 (*.f64 e (+.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)) (/.f64 e (-.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1 binary64))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (*.f64 (*.f64 a a) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/8 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 11 binary64)) #s(literal 1 binary64)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (*.f64 (*.f64 a a) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal -3 binary64)) #s(literal 3 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (+.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) #s(literal -1 binary64)) e) (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64))))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) req) req) a) (/.f64 (+.f64 (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)) (/.f64 e (-.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1 binary64)))) (*.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) e)) a))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 e e))))))
(-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (-.f64 (*.f64 e e) #s(literal 1 binary64))) (/.f64 (*.f64 (/.f64 req (*.f64 a a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 11 binary64)) #s(literal 1 binary64)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (-.f64 (*.f64 e e) #s(literal 1 binary64))) (/.f64 (*.f64 (/.f64 req (*.f64 a a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal -3 binary64)) #s(literal 3 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (+.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) #s(literal -1 binary64)) e) (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64))))) (*.f64 (/.f64 req a) (*.f64 (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn)) (+.f64 (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)) (/.f64 e (-.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1 binary64)))) (*.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) e))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 9999999999999999529098585253973751145501342374646995204443699533752222309208135100774737254399069875964494058799026896824009283758441475916906799486389390443691279468658234350904109878520700943148057046794110173854458342872794765056233999682236635579342942941443126198272 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 req (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) req) (*.f64 (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))) (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) #s(literal 1/8 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 11 binary64)) #s(literal 1 binary64)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 req (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) req) (*.f64 (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))) (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) (*.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal -3 binary64)) #s(literal 3 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (+.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) #s(literal -1 binary64)) e) (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 a a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (+.f64 (*.f64 e (+.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)) (/.f64 e (-.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1 binary64))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (*.f64 (*.f64 a a) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/8 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 11 binary64)) #s(literal 1 binary64)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (*.f64 (*.f64 a a) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal -3 binary64)) #s(literal 3 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (+.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) #s(literal -1 binary64)) e) (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64))))) (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) req) req) (+.f64 (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)) (/.f64 e (-.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1 binary64)))) (*.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) e))) (*.f64 a a))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 e e))))))
(-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (*.f64 (*.f64 a a) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/8 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 11 binary64)) #s(literal 1 binary64)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (*.f64 (*.f64 a a) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal -3 binary64)) #s(literal 3 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (+.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) #s(literal -1 binary64)) e) (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64))))) (*.f64 (/.f64 req a) (*.f64 (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn)) (+.f64 (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)) (/.f64 e (-.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1 binary64)))) (*.f64 (+.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) e))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))
(-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 req (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) req) (*.f64 (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))) (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) #s(literal 1/8 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)) #s(literal 1 binary64))) (-.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 11 binary64)) #s(literal 1 binary64)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 req (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) req) (*.f64 (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))) (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) (*.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) #s(literal -3 binary64)) #s(literal 3 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))))) (*.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (+.f64 (*.f64 (-.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) #s(literal -1 binary64)) e) (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 a a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (+.f64 (*.f64 e (+.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (+.f64 (*.f64 (+.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 f f)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)) (/.f64 e (-.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1 binary64))))))) (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 4941461262385513/24707306311927565716857342128774085333197833223161879682238935306082805123046306993647507776054336486228891340858985829027076261887914242781617846672453431386903982455635542158748401823985988322905245077938567513252198179128990807936780194781391547404884040101606295111368825026273254703636026307207764436438929167613952 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))) (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 #s(literal 1/2 binary64) J2)) sgn) (*.f64 (sin.f64 (+.f64 omega omega)) (*.f64 (*.f64 (*.f64 (cos.f64 i) e) e) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64))) (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) #s(literal -2 binary64))))))) #s(literal 1/8 binary64)) (*.f64 (/.f64 req a) (*.f64 (/.f64 (*.f64 (*.f64 req #s(literal 1/2 binary64)) (*.f64 J2 sgn)) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))))) (cos.f64 i))))) (if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 1000000000000000013946113804119924437974165856986638331112094170909680489426130543638408513078605724209795153399497011464465488473637220910340574757582946907032347746826714825234078949864321840610832155574248213693581484614981956096327942144 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (/.f64 req a) (*.f64 (*.f64 (*.f64 (*.f64 req #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) a)) J2) sgn)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (cos.f64 i) (*.f64 e e)) (-.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) (/.f64 #s(literal 80 binary64) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))))))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64)))))) (*.f64 (*.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (*.f64 (*.f64 (*.f64 req #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) a)) J2) sgn)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (+.f64 (*.f64 (*.f64 #s(literal -3 binary64) e) (sin.f64 (+.f64 f (+.f64 omega omega)))) (*.f64 (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M) #s(literal 6 binary64))) (*.f64 (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64))) #s(literal 3 binary64))) (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e)))) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 J2 sgn)) (/.f64 (*.f64 req req) (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) (sin.f64 (+.f64 omega omega))) (*.f64 (cos.f64 i) e)) e) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))))) #s(literal -2 binary64))))) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))))))))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 4941461262385513/24707306311927565716857342128774085333197833223161879682238935306082805123046306993647507776054336486228891340858985829027076261887914242781617846672453431386903982455635542158748401823985988322905245077938567513252198179128990807936780194781391547404884040101606295111368825026273254703636026307207764436438929167613952 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))) (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 #s(literal 1/2 binary64) J2)) sgn) (*.f64 (sin.f64 (+.f64 omega omega)) (*.f64 (*.f64 (*.f64 (cos.f64 i) e) e) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64))) (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) #s(literal -2 binary64))))))) #s(literal 1/8 binary64)) (*.f64 (/.f64 req a) (*.f64 (/.f64 (*.f64 (*.f64 req #s(literal 1/2 binary64)) (*.f64 J2 sgn)) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))))) (cos.f64 i))))) (if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 1000000000000000013946113804119924437974165856986638331112094170909680489426130543638408513078605724209795153399497011464465488473637220910340574757582946907032347746826714825234078949864321840610832155574248213693581484614981956096327942144 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (/.f64 req a) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (cos.f64 i) (*.f64 e e)) (-.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) (/.f64 #s(literal 80 binary64) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))))))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64)))))) (*.f64 (*.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))))))) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 J2 sgn)) (/.f64 (*.f64 req req) (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) (sin.f64 (+.f64 omega omega))) (*.f64 (cos.f64 i) e)) e) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))))) #s(literal -2 binary64))))) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))))))))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 4941461262385513/24707306311927565716857342128774085333197833223161879682238935306082805123046306993647507776054336486228891340858985829027076261887914242781617846672453431386903982455635542158748401823985988322905245077938567513252198179128990807936780194781391547404884040101606295111368825026273254703636026307207764436438929167613952 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))) (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 #s(literal 1/2 binary64) J2)) sgn) (*.f64 (sin.f64 (+.f64 omega omega)) (*.f64 (*.f64 (*.f64 (cos.f64 i) e) e) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64))) (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) #s(literal -2 binary64))))))) #s(literal 1/8 binary64)) (*.f64 (/.f64 req a) (*.f64 (/.f64 (*.f64 (*.f64 req #s(literal 1/2 binary64)) (*.f64 J2 sgn)) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))))) (cos.f64 i))))) (if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 1000000000000000013946113804119924437974165856986638331112094170909680489426130543638408513078605724209795153399497011464465488473637220910340574757582946907032347746826714825234078949864321840610832155574248213693581484614981956096327942144 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 (/.f64 req a) (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2)) sgn) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (cos.f64 i) (*.f64 e e)) (-.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) (/.f64 #s(literal 80 binary64) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))))))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64)))))) (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (/.f64 req a) (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2)) sgn) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))))))) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 J2 sgn)) (/.f64 (*.f64 req req) (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) (sin.f64 (+.f64 omega omega))) (*.f64 (cos.f64 i) e)) e) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))))) #s(literal -2 binary64))))) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))))))))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 696173189944793/69617318994479297159441705409245167921344429126717528237597542082203295398081625160307507496908132931192662194421301381083506846944815643283884602656894137393981852330936660004926669193216 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (/.f64 req a) (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (cos.f64 i) (*.f64 e e)) (-.f64 (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) (/.f64 #s(literal 80 binary64) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))))))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64)))))) (*.f64 (/.f64 req a) (*.f64 (/.f64 (*.f64 (*.f64 req #s(literal 1/2 binary64)) (*.f64 J2 sgn)) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))))) (cos.f64 i))))) (if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 100000000000000004675381888545612798918960543133041028684136487274401643939455589461036825818030333693907688813404495028932616818466243033147431327741697981638738927986463793558699752023835231102266007829372867138519293326106230343475263802678137754874196788463928344576 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (cos.f64 i) e) e)) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))))) #s(literal -2 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))))))) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 J2 sgn)) (/.f64 (*.f64 req req) (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) (sin.f64 (+.f64 omega omega))) (*.f64 (cos.f64 i) e)) e) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))))) #s(literal -2 binary64))))) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))))))))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 283625966735417/567251933470833993071770667324028228809837418235547813055332893110634100784456014078204465673887768016738404766156377048665842149942362101665813667717893457711399398974403333260607303556174368618102720559063506014277553065062667880308951927318061097340410272771508755807405604864 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))) (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 #s(literal 1/2 binary64) J2)) sgn) (*.f64 (sin.f64 (+.f64 omega omega)) (*.f64 (*.f64 (*.f64 (cos.f64 i) e) e) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64))) (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) #s(literal -2 binary64))))))) #s(literal 1/8 binary64)) (*.f64 (/.f64 req a) (*.f64 (/.f64 (*.f64 (*.f64 req #s(literal 1/2 binary64)) (*.f64 J2 sgn)) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))))) (cos.f64 i))))) (if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 100000000000000004675381888545612798918960543133041028684136487274401643939455589461036825818030333693907688813404495028932616818466243033147431327741697981638738927986463793558699752023835231102266007829372867138519293326106230343475263802678137754874196788463928344576 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (cos.f64 i) e) e)) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))))) #s(literal -2 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (/.f64 req (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))))))) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 J2 sgn)) (/.f64 (*.f64 req req) (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) (sin.f64 (+.f64 omega omega))) (*.f64 (cos.f64 i) e)) e) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))))) #s(literal -2 binary64))))) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))))))))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 2338706809970789/271942652322184754529069161754863937192751676276240344678115398758606622648756348282451201159797394262471336696958208519857448620878186106577674229128492724195241610667721328144244801536 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))) (*.f64 a (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 #s(literal 1/2 binary64) J2)) sgn) (*.f64 (sin.f64 (+.f64 omega omega)) (*.f64 (*.f64 (*.f64 (cos.f64 i) e) e) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) #s(literal 1 binary64))) (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)))) #s(literal -2 binary64))))))) #s(literal 1/8 binary64)) (*.f64 (/.f64 req a) (*.f64 (/.f64 (*.f64 (*.f64 req #s(literal 1/2 binary64)) (*.f64 J2 sgn)) (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))))) (cos.f64 i))))) (if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 100000000000000004675381888545612798918960543133041028684136487274401643939455589461036825818030333693907688813404495028932616818466243033147431327741697981638738927986463793558699752023835231102266007829372867138519293326106230343475263802678137754874196788463928344576 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 req (/.f64 req (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))))))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (cos.f64 i) e) e)) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))))) #s(literal -2 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))))))) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 J2 sgn)) (/.f64 (*.f64 req req) (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) (sin.f64 (+.f64 omega omega))) (*.f64 (cos.f64 i) e)) e) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))))) #s(literal -2 binary64))))) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))))))))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 4941461262385513/24707306311927565716857342128774085333197833223161879682238935306082805123046306993647507776054336486228891340858985829027076261887914242781617846672453431386903982455635542158748401823985988322905245077938567513252198179128990807936780194781391547404884040101606295111368825026273254703636026307207764436438929167613952 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (/.f64 (*.f64 req req) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (cos.f64 i) e) e)) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))))) #s(literal -2 binary64))))) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (/.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))))))) (if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 100000000000000004675381888545612798918960543133041028684136487274401643939455589461036825818030333693907688813404495028932616818466243033147431327741697981638738927986463793558699752023835231102266007829372867138519293326106230343475263802678137754874196788463928344576 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 req (/.f64 req (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))))))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (cos.f64 i) e) e)) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))))) #s(literal -2 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))))))) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 J2 sgn)) (/.f64 (*.f64 req req) (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) (sin.f64 (+.f64 omega omega))) (*.f64 (cos.f64 i) e)) e) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))))) #s(literal -2 binary64))))) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))))))))))
(if.f64 (<=.f64 (-.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) (*.f64 (*.f64 (pow.f64 e #s(literal 2 binary64)) (*.f64 (cos.f64 i) (+.f64 (+.f64 #s(literal 11 binary64) (/.f64 (*.f64 #s(literal 80 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal 200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sin.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (+.f64 (+.f64 (+.f64 (*.f64 #s(literal 6 binary64) (+.f64 (-.f64 f M) (*.f64 e (sin.f64 f)))) (neg.f64 (*.f64 #s(literal 3 binary64) (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f)))))) (neg.f64 (*.f64 (*.f64 #s(literal 3 binary64) e) (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f))))) (neg.f64 (*.f64 e (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f))))))))) #s(literal +inf.0 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 req (/.f64 req (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))))))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (cos.f64 i) e) e)) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))))) #s(literal -2 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))))))) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 J2 sgn)) (/.f64 (*.f64 req req) (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) (sin.f64 (+.f64 omega omega))) (*.f64 (cos.f64 i) e)) e) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))))) #s(literal -2 binary64))))) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))))))))
(-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 J2 sgn)) (/.f64 (*.f64 req req) (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) (sin.f64 (+.f64 omega omega))) (*.f64 (cos.f64 i) e)) e) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal -80 binary64) (*.f64 #s(literal 1/2 binary64) (-.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 2 binary64)))) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (*.f64 #s(literal 1/2 binary64) (-.f64 #s(literal 2 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))))) #s(literal -2 binary64))))) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))))))))
(-.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/16 binary64) (*.f64 J2 sgn)) (/.f64 (*.f64 req req) (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (*.f64 (cos.f64 i) e) e) (-.f64 (-.f64 (*.f64 (/.f64 #s(literal 160 binary64) (-.f64 #s(literal 2 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5 binary64)))) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 1/2 binary64))) #s(literal -11 binary64)) (*.f64 (pow.f64 (*.f64 (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5 binary64)) #s(literal 2 binary64)) #s(literal -1/2 binary64)) #s(literal -2 binary64)) (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))))))) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req req) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) (*.f64 #s(literal -6 binary64) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M))) (*.f64 e (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) #s(literal 3 binary64)) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))))))))
(-.f64 (*.f64 (sin.f64 Omega) (-.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) di) (cos.f64 (*.f64 #s(literal -1/2 binary64) i))) (sin.f64 (*.f64 #s(literal -1/2 binary64) i)))) (*.f64 (*.f64 (cos.f64 Omega) (sin.f64 (*.f64 #s(literal -1/2 binary64) i))) dOmega))
(if.f64 (<=.f64 i #s(literal 3849559271118727/142576269300693600582536612678134103902913390851517497830599766184352348975271168328309775353667856243082572174174825228459022022542982437445395666241319193382874833573758279690089818507706368 binary64)) (+.f64 a (*.f64 a (*.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (+.f64 (*.f64 (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))) #s(literal 1 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 3 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 (cos.f64 (+.f64 (neg.f64 i) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (cos.f64 (+.f64 (neg.f64 i) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) (*.f64 (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 3 binary64)) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f))))))))) (+.f64 a (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (-.f64 (*.f64 (cos.f64 (+.f64 f f)) (cos.f64 (+.f64 omega omega))) (*.f64 (sin.f64 (+.f64 f f)) (sin.f64 (+.f64 omega omega))))) (pow.f64 (sin.f64 i) #s(literal 2 binary64))) #s(literal 3 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (-.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))))))) (/.f64 req a)) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)))))
(+.f64 a (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (-.f64 (*.f64 (cos.f64 (+.f64 f f)) (cos.f64 (+.f64 omega omega))) (*.f64 (sin.f64 (+.f64 f f)) (sin.f64 (+.f64 omega omega))))) (pow.f64 (sin.f64 i) #s(literal 2 binary64))) #s(literal 3 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (-.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))))))) (/.f64 req a)) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn))))
(if.f64 (<=.f64 (pow.f64 (cos.f64 i) #s(literal 2 binary64)) #s(literal 8745990476353503/9007199254740992 binary64)) (+.f64 a (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (-.f64 (*.f64 (cos.f64 (+.f64 f f)) (cos.f64 (+.f64 omega omega))) (*.f64 (sin.f64 (+.f64 f f)) (sin.f64 (+.f64 omega omega))))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (*.f64 (-.f64 (pow.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 3 binary64)) (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 3/2 binary64))))) (/.f64 req a)) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)))) (+.f64 a (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64)))) (pow.f64 (sin.f64 i) #s(literal 2 binary64))) #s(literal 3 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (-.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))))))) (/.f64 req a)) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)))))
(+.f64 a (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (sin.f64 i) (*.f64 (sin.f64 i) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64)))))) #s(literal 3 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (-.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))))))) (/.f64 req a)) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn))))
(+.f64 a (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64)))) (pow.f64 (sin.f64 i) #s(literal 2 binary64))) #s(literal 3 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 3 binary64))) (-.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))))))) (/.f64 req a)) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn))))
(if.f64 (<=.f64 (pow.f64 (cos.f64 i) #s(literal 2 binary64)) #s(literal 8990626008112269/9007199254740992 binary64)) (+.f64 a (*.f64 (*.f64 (/.f64 req a) a) (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 3 binary64)) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (*.f64 (-.f64 (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (pow.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 3 binary64))) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 3/2 binary64)) #s(literal 1 binary64)))) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)))) (+.f64 a (*.f64 (*.f64 (*.f64 (*.f64 a (/.f64 req a)) (-.f64 (*.f64 (*.f64 (pow.f64 (sin.f64 i) #s(literal 2 binary64)) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64))))) #s(literal 3 binary64)) (*.f64 (-.f64 (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64))) (-.f64 (*.f64 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1 binary64))))) (*.f64 #s(literal 1/2 binary64) (/.f64 req a))) (*.f64 J2 sgn))))
(+.f64 a (*.f64 (*.f64 (/.f64 req a) a) (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 3 binary64)) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (*.f64 (-.f64 (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (pow.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal 3 binary64))) (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 3/2 binary64)) #s(literal 1 binary64)))) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn))))
(+.f64 a (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (*.f64 (*.f64 a (/.f64 req a)) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64))))) #s(literal 3 binary64)) (*.f64 (-.f64 (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64))) (-.f64 (*.f64 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1 binary64)))))))
(+.f64 a (*.f64 a (*.f64 (/.f64 req a) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64))))) #s(literal 3 binary64)) (*.f64 (-.f64 (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64))) (-.f64 (*.f64 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1 binary64)))) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)))))
(if.f64 (<=.f64 (+.f64 a (*.f64 a (*.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) (+.f64 (*.f64 (-.f64 (*.f64 #s(literal 3 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))) #s(literal 1 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 3 binary64)) (/.f64 #s(literal 1 binary64) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 #s(literal 3 binary64) (-.f64 #s(literal 1 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (*.f64 (pow.f64 (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 e (cos.f64 f))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 2 binary64))) #s(literal 3 binary64)) (cos.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) f))))))))) #s(literal 4999999999999999643869202601833787684383696604057883061158907403507350476772637470038731707205691382212371948847737817627161465582505612835893571796906113885524272303729023396898222485216041336918158235836889309742729449874044809349717855383877140544617447424 binary64)) (+.f64 a (*.f64 a (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) (*.f64 (*.f64 J2 sgn) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64))))) #s(literal 3 binary64)) (*.f64 (-.f64 (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64))) (-.f64 (*.f64 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1 binary64)))) (/.f64 req a)))))) (+.f64 a (*.f64 a (*.f64 sgn (*.f64 (*.f64 J2 #s(literal 1/2 binary64)) (/.f64 (/.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64))))) #s(literal 3 binary64)) (*.f64 (-.f64 (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64))) (-.f64 (*.f64 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1 binary64)))) req) req) a) a))))))
(if.f64 (<=.f64 req #s(literal -200000000000000008675459394923837214658058664990387862358354757867223362577936222188264751104 binary64)) (-.f64 a (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) a) (*.f64 req (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (-.f64 (*.f64 (-.f64 (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64))) (-.f64 (*.f64 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1 binary64))) (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64))))) #s(literal 3 binary64))))) (if.f64 (<=.f64 req #s(literal 50000000000000001010943956357797349428804816160717887056888842810400200249908215467934891376640 binary64)) (+.f64 a (*.f64 a (*.f64 sgn (/.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64))))) #s(literal 3 binary64)) (*.f64 (-.f64 (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64))) (-.f64 (*.f64 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1 binary64)))) (/.f64 (*.f64 req req) a)) (*.f64 #s(literal 1/2 binary64) J2)) a)))) (*.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64))))) #s(literal 3 binary64)) (*.f64 (-.f64 (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64))) (-.f64 (*.f64 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1 binary64)))) req) (*.f64 (*.f64 (/.f64 req (*.f64 a a)) (*.f64 #s(literal 1/2 binary64) J2)) sgn)) #s(literal 1 binary64)) a)))
(if.f64 (<=.f64 a #s(literal 1361730492884795/52374249726338269920211035149241586435466272736689036631732661889538140742474792878132321477214466514414186946040961136147476104734166288853256441430016 binary64)) (+.f64 a (*.f64 a (*.f64 sgn (*.f64 (*.f64 J2 #s(literal 1/2 binary64)) (/.f64 (/.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64))))) #s(literal 3 binary64)) (*.f64 (-.f64 (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64))) (-.f64 (*.f64 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1 binary64)))) req) req) a) a))))) (*.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64))))) #s(literal 3 binary64)) (*.f64 (-.f64 (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64))) (-.f64 (*.f64 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1 binary64)))) req) (*.f64 (*.f64 (/.f64 req (*.f64 a a)) (*.f64 #s(literal 1/2 binary64) J2)) sgn)) #s(literal 1 binary64)) a))
(*.f64 (+.f64 (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))) (*.f64 (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64)) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64))))) #s(literal 3 binary64)) (*.f64 (-.f64 (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (pow.f64 (/.f64 (-.f64 #s(literal -1 binary64) (*.f64 (cos.f64 f) e)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) #s(literal 3 binary64))) (-.f64 (*.f64 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1 binary64)))) req) (*.f64 (*.f64 (/.f64 req (*.f64 a a)) (*.f64 #s(literal 1/2 binary64) J2)) sgn)) #s(literal 1 binary64)) a)
(if.f64 (<=.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) #s(literal +inf.0 binary64)) (+.f64 (+.f64 (+.f64 M omega) Omega) (+.f64 (-.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 (*.f64 J2 sgn) #s(literal 1/2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) (*.f64 (*.f64 (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 3 binary64)) (+.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 11 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (neg.f64 (/.f64 (*.f64 #s(literal 40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))))))) (sin.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 (*.f64 J2 sgn) #s(literal 1/2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 16 binary64)) (*.f64 (+.f64 (+.f64 (+.f64 #s(literal 2 binary64) (pow.f64 e #s(literal 2 binary64))) (neg.f64 (*.f64 (*.f64 #s(literal 11 binary64) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 3 binary64) (pow.f64 e #s(literal 2 binary64))))) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))) (neg.f64 (-.f64 (/.f64 (*.f64 (*.f64 #s(literal 40 binary64) (+.f64 #s(literal 2 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 e #s(literal 2 binary64))))) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))))) (/.f64 (*.f64 (*.f64 #s(literal 400 binary64) (pow.f64 e #s(literal 2 binary64))) (pow.f64 (cos.f64 i) #s(literal 6 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sin.f64 (*.f64 #s(literal 2 binary64) omega))))) (*.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 (*.f64 J2 sgn) #s(literal 1/2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 4 binary64)) (*.f64 (*.f64 (neg.f64 (*.f64 #s(literal 6 binary64) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))))) (+.f64 (-.f64 f M) (*.f64 e (sin.f64 f)))) (*.f64 (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) (+.f64 (+.f64 (*.f64 #s(literal 3 binary64) (+.f64 (*.f64 (sin.f64 (+.f64 omega omega)) (cos.f64 (+.f64 f f))) (*.f64 (cos.f64 (+.f64 omega omega)) (sin.f64 (+.f64 f f))))) (*.f64 (*.f64 #s(literal 3 binary64) e) (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f)))) (*.f64 e (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f)))))))) (-.f64 (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 (*.f64 J2 sgn) #s(literal 1/2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 8 binary64)) (*.f64 (*.f64 (pow.f64 e #s(literal 2 binary64)) (*.f64 (cos.f64 i) (+.f64 (+.f64 #s(literal 11 binary64) (/.f64 (*.f64 #s(literal 80 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))))) (/.f64 (*.f64 #s(literal 200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (pow.f64 (cos.f64 i) #s(literal 2 binary64)))) #s(literal 2 binary64)))))) (sin.f64 (*.f64 #s(literal 2 binary64) omega)))) (*.f64 (/.f64 (/.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 (*.f64 J2 sgn) #s(literal 1/2 binary64)))) (pow.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (pow.f64 e #s(literal 2 binary64)))) #s(literal 4 binary64))) #s(literal 2 binary64)) (*.f64 (cos.f64 i) (+.f64 (+.f64 (+.f64 (*.f64 #s(literal 6 binary64) (+.f64 (-.f64 f M) (*.f64 e (sin.f64 f)))) (neg.f64 (*.f64 #s(literal 3 binary64) (+.f64 (*.f64 (sin.f64 (+.f64 omega omega)) (cos.f64 (+.f64 f f))) (*.f64 (cos.f64 (+.f64 omega omega)) (sin.f64 (+.f64 f f))))))) (neg.f64 (*.f64 (*.f64 #s(literal 3 binary64) e) (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) f))))) (neg.f64 (*.f64 e (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 3 binary64) f)))))))))))) (+.f64 (-.f64 Omega (-.f64 (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64))) (*.f64 (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal -6 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/4 binary64)) (cos.f64 i)) (-.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal 6 binary64)) (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 e e) (cos.f64 i)) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (-.f64 #s(literal 11 binary64) (+.f64 (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64))) (/.f64 (*.f64 #s(literal -80 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (sin.f64 (+.f64 omega omega)))))) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64)) #s(literal 1 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (-.f64 (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 e e) #s(literal 200 binary64)) #s(literal -80 binary64)) (/.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))))) (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64)) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e)))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/32 binary64)))) (sin.f64 (+.f64 omega omega))))) (+.f64 omega M)))
(if.f64 (<=.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) #s(literal +inf.0 binary64)) (+.f64 (+.f64 omega M) (-.f64 Omega (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.f64 req a))) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal 6 binary64)) (*.f64 #s(literal 3 binary64) (+.f64 (*.f64 e (sin.f64 (+.f64 f (+.f64 omega omega)))) (+.f64 (*.f64 (sin.f64 (+.f64 f f)) (cos.f64 (+.f64 omega omega))) (*.f64 (cos.f64 (+.f64 f f)) (sin.f64 (+.f64 omega omega))))))) (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e))) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.f64 req a))) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/8 binary64)) (*.f64 (*.f64 e e) (cos.f64 i))) (-.f64 #s(literal 11 binary64) (+.f64 (/.f64 (*.f64 #s(literal -80 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i))))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 5/2 binary64) (*.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal 5 binary64))))) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 5/2 binary64) (*.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal 5 binary64)))) #s(literal -2 binary64)))))) (sin.f64 (+.f64 omega omega)))) (*.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal -6 binary64)) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 5/2 binary64) (*.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal 5 binary64))))) (-.f64 #s(literal 3 binary64) (+.f64 #s(literal 5/2 binary64) (*.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal 5 binary64))))) (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 #s(literal 3 binary64) (+.f64 (*.f64 e (sin.f64 (+.f64 f (+.f64 omega omega)))) (+.f64 (*.f64 (sin.f64 (+.f64 f f)) (cos.f64 (+.f64 omega omega))) (*.f64 (cos.f64 (+.f64 f f)) (sin.f64 (+.f64 omega omega))))))) (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.f64 req a))) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/4 binary64))))) (*.f64 (sin.f64 (+.f64 omega omega)) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.f64 req a))) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/8 binary64)) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 5/2 binary64) (*.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal 5 binary64))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i)))) #s(literal 11 binary64)) #s(literal 1 binary64)))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.f64 req a))) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/16 binary64)) (+.f64 (-.f64 (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (+.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal 22 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i)))))) (/.f64 (*.f64 (+.f64 (*.f64 #s(literal 200 binary64) (*.f64 e e)) #s(literal 80 binary64)) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 5/2 binary64) (*.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal 5 binary64)))))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) (*.f64 e e)) (pow.f64 (-.f64 #s(literal 1 binary64) (+.f64 #s(literal 5/2 binary64) (*.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal 5 binary64)))) #s(literal -2 binary64)))))))))) (+.f64 (-.f64 Omega (-.f64 (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64))) (*.f64 (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal -6 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/4 binary64)) (cos.f64 i)) (-.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal 6 binary64)) (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 e e) (cos.f64 i)) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (-.f64 #s(literal 11 binary64) (+.f64 (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64))) (/.f64 (*.f64 #s(literal -80 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (sin.f64 (+.f64 omega omega)))))) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64)) #s(literal 1 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (-.f64 (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 e e) #s(literal 200 binary64)) #s(literal -80 binary64)) (/.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))))) (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64)) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e)))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/32 binary64)))) (sin.f64 (+.f64 omega omega))))) (+.f64 omega M)))
(if.f64 (<=.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) #s(literal +inf.0 binary64)) (+.f64 (+.f64 omega M) (-.f64 Omega (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.f64 req a))) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal 6 binary64)) (*.f64 (+.f64 (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64))) (*.f64 (sin.f64 (+.f64 (+.f64 f omega) omega)) e)) #s(literal 3 binary64))) (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e))) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.f64 req a))) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/8 binary64)) (*.f64 (*.f64 e e) (cos.f64 i))) (-.f64 #s(literal 11 binary64) (+.f64 (/.f64 (*.f64 #s(literal -80 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i))))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i))))))) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i)))))) #s(literal -2 binary64)))))) (sin.f64 (+.f64 omega omega)))) (*.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal -6 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i))))))) (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i))))))) (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 #s(literal 3 binary64) (+.f64 (*.f64 e (sin.f64 (+.f64 f (+.f64 omega omega)))) (+.f64 (*.f64 (sin.f64 (+.f64 f f)) (cos.f64 (+.f64 omega omega))) (*.f64 (cos.f64 (+.f64 f f)) (sin.f64 (+.f64 omega omega))))))) (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.f64 req a))) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/4 binary64))))) (*.f64 (sin.f64 (+.f64 omega omega)) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.f64 req a))) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/8 binary64)) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i))))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i)))) #s(literal 11 binary64)) #s(literal 1 binary64)))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.f64 req a))) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/16 binary64)) (+.f64 (-.f64 (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (+.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal 22 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i)))))) (/.f64 (*.f64 (+.f64 (*.f64 #s(literal 200 binary64) (*.f64 e e)) #s(literal 80 binary64)) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i)))))))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) (*.f64 e e)) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i)))))) #s(literal -2 binary64)))))))))) (+.f64 (-.f64 Omega (-.f64 (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64))) (*.f64 (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal -6 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/4 binary64)) (cos.f64 i)) (-.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal 6 binary64)) (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 e e) (cos.f64 i)) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (-.f64 #s(literal 11 binary64) (+.f64 (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64))) (/.f64 (*.f64 #s(literal -80 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (sin.f64 (+.f64 omega omega)))))) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64)) #s(literal 1 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (-.f64 (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 e e) #s(literal 200 binary64)) #s(literal -80 binary64)) (/.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))))) (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64)) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e)))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/32 binary64)))) (sin.f64 (+.f64 omega omega))))) (+.f64 omega M)))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 178220336625867/8911016831293350036408538292383381493932086928219843614412485386522021810954448020519360959604241015192660760885926576778688876408936402340337229140082449586429677098359892480630613656731648 binary64)) (+.f64 (-.f64 Omega (-.f64 (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64))) (*.f64 (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal -6 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/4 binary64)) (cos.f64 i)) (-.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal 6 binary64)) (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 e e) (cos.f64 i)) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (-.f64 #s(literal 11 binary64) (+.f64 (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64))) (/.f64 (*.f64 #s(literal -80 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (sin.f64 (+.f64 omega omega)))))) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64)) #s(literal 1 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (-.f64 (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 e e) #s(literal 200 binary64)) #s(literal -80 binary64)) (/.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))))) (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64)) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e)))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/32 binary64)))) (sin.f64 (+.f64 omega omega))))) (+.f64 omega M)) (+.f64 (+.f64 omega M) (-.f64 Omega (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) req) (/.f64 req a)) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal 6 binary64)) (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e)) (*.f64 (+.f64 (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64))) (*.f64 (sin.f64 (+.f64 (+.f64 f omega) omega)) e)) #s(literal 3 binary64)))) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) req) (/.f64 req a)) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64)) (*.f64 (*.f64 e e) (cos.f64 i))) (*.f64 (-.f64 #s(literal 11 binary64) (+.f64 (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal -1/2 binary64))) #s(literal 5 binary64))) #s(literal -2 binary64)) (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64)))) (/.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal -1/2 binary64))) #s(literal -80 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal -1/2 binary64))) #s(literal 5 binary64)))))) (sin.f64 (+.f64 omega omega))))) (*.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal -6 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i))))))) (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i))))))) (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 #s(literal 3 binary64) (+.f64 (*.f64 e (sin.f64 (+.f64 f (+.f64 omega omega)))) (+.f64 (*.f64 (sin.f64 (+.f64 f f)) (cos.f64 (+.f64 omega omega))) (*.f64 (cos.f64 (+.f64 f f)) (sin.f64 (+.f64 omega omega))))))) (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.f64 req a))) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/4 binary64))))) (*.f64 (sin.f64 (+.f64 omega omega)) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.f64 req a))) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/8 binary64)) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i))))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i)))) #s(literal 11 binary64)) #s(literal 1 binary64)))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.f64 req a))) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/16 binary64)) (+.f64 (-.f64 (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (+.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal 22 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i)))))) (/.f64 (*.f64 (+.f64 (*.f64 #s(literal 200 binary64) (*.f64 e e)) #s(literal 80 binary64)) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i)))))))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) (*.f64 e e)) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) i)))))) #s(literal -2 binary64)))))))))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 0 binary64)) (+.f64 (-.f64 Omega (-.f64 (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64))) (*.f64 (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal -6 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/4 binary64)) (cos.f64 i)) (-.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal 6 binary64)) (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 e e) (cos.f64 i)) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (-.f64 #s(literal 11 binary64) (+.f64 (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64))) (/.f64 (*.f64 #s(literal -80 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (sin.f64 (+.f64 omega omega)))))) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64)) #s(literal 1 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (-.f64 (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 e e) #s(literal 200 binary64)) #s(literal -80 binary64)) (/.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))))) (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64)) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e)))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/32 binary64)))) (sin.f64 (+.f64 omega omega))))) (+.f64 omega M)) (+.f64 (+.f64 omega M) (-.f64 Omega (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.f64 req a))) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (-.f64 (-.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal 6 binary64)) (*.f64 #s(literal 3 binary64) (+.f64 (*.f64 e (sin.f64 (+.f64 f (+.f64 omega omega)))) (sin.f64 (*.f64 #s(literal 2 binary64) (+.f64 f omega)))))) (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e))) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.f64 req a))) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/8 binary64)) (*.f64 (*.f64 e e) (cos.f64 i))) (-.f64 #s(literal 11 binary64) (+.f64 (/.f64 (*.f64 #s(literal -80 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal -1/2 binary64)))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal -1/2 binary64)))))) (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal -1/2 binary64))))) #s(literal -2 binary64)))))) (sin.f64 (+.f64 omega omega)))) (*.f64 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal -6 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal -1/2 binary64)))))) (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal -1/2 binary64)))))) (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 #s(literal 3 binary64) (+.f64 (*.f64 e (sin.f64 (+.f64 f (+.f64 omega omega)))) (sin.f64 (*.f64 #s(literal 2 binary64) (+.f64 f omega)))))) (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.f64 req a))) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/4 binary64))))) (*.f64 (sin.f64 (+.f64 omega omega)) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.f64 req a))) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/8 binary64)) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal -1/2 binary64)))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal -1/2 binary64))) #s(literal 11 binary64)) #s(literal 1 binary64)))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.f64 req a))) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/16 binary64)) (+.f64 (-.f64 (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (+.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal 22 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal -1/2 binary64))))) (/.f64 (*.f64 (+.f64 (*.f64 #s(literal 200 binary64) (*.f64 e e)) #s(literal 80 binary64)) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal -1/2 binary64))))))) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) (*.f64 e e)) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal -1/2 binary64))))) #s(literal -2 binary64)))))))))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 213598703592091/1067993517960455041197510853084776057301352261178326384973520803911109862890320275011481043468288 binary64)) (+.f64 (-.f64 Omega (-.f64 (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) req) J2) sgn) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64))) (*.f64 (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal -6 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) req) J2) sgn) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/4 binary64)) (cos.f64 i)) (-.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal 6 binary64)) (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 e e) (cos.f64 i)) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) req) J2) sgn) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (-.f64 #s(literal 11 binary64) (+.f64 (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64))) (/.f64 (*.f64 #s(literal -80 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (sin.f64 (+.f64 omega omega)))))) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64)) #s(literal 1 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) req) J2) sgn) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (-.f64 (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 e e) #s(literal 200 binary64)) #s(literal -80 binary64)) (/.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))))) (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64)) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e)))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) req) J2) sgn) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/32 binary64)))) (sin.f64 (+.f64 omega omega))))) (+.f64 omega M)) (+.f64 (-.f64 Omega (-.f64 (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 req a) (/.f64 (*.f64 J2 sgn) a))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64))) (*.f64 (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal -6 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 req a) (/.f64 (*.f64 J2 sgn) a))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/4 binary64)) (cos.f64 i)) (-.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal 6 binary64)) (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 e e) (cos.f64 i)) (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 req a) (/.f64 (*.f64 J2 sgn) a))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (-.f64 #s(literal 11 binary64) (+.f64 (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64))) (/.f64 (*.f64 #s(literal -80 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (sin.f64 (+.f64 omega omega)))))) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64)) #s(literal 1 binary64))) (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 req a) (/.f64 (*.f64 J2 sgn) a))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (-.f64 (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 e e) #s(literal 200 binary64)) #s(literal -80 binary64)) (/.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))))) (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64)) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e)))) (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 req a) (/.f64 (*.f64 J2 sgn) a))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/32 binary64)))) (sin.f64 (+.f64 omega omega))))) (+.f64 omega M)))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 7378697629483821/147573952589676412928 binary64)) (+.f64 (-.f64 Omega (-.f64 (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) req) J2) sgn) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64))) (*.f64 (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal -6 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) req) J2) sgn) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/4 binary64)) (cos.f64 i)) (-.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal 6 binary64)) (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 e e) (cos.f64 i)) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) req) J2) sgn) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (-.f64 #s(literal 11 binary64) (+.f64 (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64))) (/.f64 (*.f64 #s(literal -80 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (sin.f64 (+.f64 omega omega)))))) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64)) #s(literal 1 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) req) J2) sgn) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (-.f64 (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 e e) #s(literal 200 binary64)) #s(literal -80 binary64)) (/.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))))) (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64)) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e)))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) req) J2) sgn) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/32 binary64)))) (sin.f64 (+.f64 omega omega))))) (+.f64 omega M)) (+.f64 (-.f64 Omega (-.f64 (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (/.f64 (*.f64 req (/.f64 (*.f64 req (*.f64 J2 sgn)) (*.f64 a a))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64))) (*.f64 (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal -6 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (/.f64 (*.f64 req (*.f64 J2 sgn)) (*.f64 a a))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/4 binary64)) (cos.f64 i)) (-.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal 6 binary64)) (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 e e) (cos.f64 i)) (*.f64 (/.f64 (*.f64 req (/.f64 (*.f64 req (*.f64 J2 sgn)) (*.f64 a a))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (-.f64 #s(literal 11 binary64) (+.f64 (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64))) (/.f64 (*.f64 #s(literal -80 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (sin.f64 (+.f64 omega omega)))))) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64)) #s(literal 1 binary64))) (*.f64 (/.f64 (*.f64 req (/.f64 (*.f64 req (*.f64 J2 sgn)) (*.f64 a a))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (-.f64 (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 e e) #s(literal 200 binary64)) #s(literal -80 binary64)) (/.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))))) (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64)) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e)))) (*.f64 (/.f64 (*.f64 req (/.f64 (*.f64 req (*.f64 J2 sgn)) (*.f64 a a))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/32 binary64)))) (sin.f64 (+.f64 omega omega))))) (+.f64 omega M)))
(+.f64 (-.f64 Omega (-.f64 (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64))) (*.f64 (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal -6 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/4 binary64)) (cos.f64 i)) (-.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal 6 binary64)) (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 e e) (cos.f64 i)) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (-.f64 #s(literal 11 binary64) (+.f64 (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64))) (/.f64 (*.f64 #s(literal -80 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (sin.f64 (+.f64 omega omega)))))) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64)) #s(literal 1 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (-.f64 (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 e e) #s(literal 200 binary64)) #s(literal -80 binary64)) (/.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))))) (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64)) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e)))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req (*.f64 a a)) J2) sgn) req) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/32 binary64)))) (sin.f64 (+.f64 omega omega))))) (+.f64 omega M))
(+.f64 (-.f64 Omega (-.f64 (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 req (*.f64 a a)) (*.f64 J2 sgn))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64))) (*.f64 (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal -1/2 binary64))) #s(literal 5 binary64))) #s(literal -6 binary64))))) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 req (*.f64 a a)) (*.f64 J2 sgn))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/4 binary64)) (cos.f64 i)) (-.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal 6 binary64)) (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 e e) (cos.f64 i)) (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 req (*.f64 a a)) (*.f64 J2 sgn))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (-.f64 #s(literal 11 binary64) (+.f64 (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64))) (/.f64 (*.f64 #s(literal -80 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (sin.f64 (+.f64 omega omega)))))) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64)) #s(literal 1 binary64))) (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 req (*.f64 a a)) (*.f64 J2 sgn))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (-.f64 (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 e e) #s(literal 200 binary64)) #s(literal -80 binary64)) (/.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))))) (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64)) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e)))) (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 req (*.f64 a a)) (*.f64 J2 sgn))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/32 binary64)))) (sin.f64 (+.f64 omega omega))))) (+.f64 omega M))
(+.f64 (-.f64 Omega (-.f64 (*.f64 (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))) (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 req (*.f64 a a)) (*.f64 J2 sgn))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64))) (*.f64 (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (*.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal -6 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (-.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 req (*.f64 a a)) (*.f64 J2 sgn))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/4 binary64)) (cos.f64 i)) (-.f64 (*.f64 (-.f64 (*.f64 (sin.f64 f) e) (-.f64 M f)) #s(literal 6 binary64)) (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 f omega) #s(literal 2 binary64)))) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 e e) (cos.f64 i)) (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 req (*.f64 a a)) (*.f64 J2 sgn))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (-.f64 #s(literal 11 binary64) (+.f64 (*.f64 (*.f64 #s(literal -200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64))) (/.f64 (*.f64 #s(literal -80 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))))) (sin.f64 (+.f64 omega omega)))))) (*.f64 (-.f64 (*.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i))))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))) #s(literal 11 binary64)) #s(literal 1 binary64))) (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 req (*.f64 a a)) (*.f64 J2 sgn))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/16 binary64))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (-.f64 (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) (-.f64 (*.f64 (-.f64 (*.f64 (*.f64 e e) #s(literal 200 binary64)) #s(literal -80 binary64)) (/.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))))) (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 i i)))))) #s(literal -2 binary64)) (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e)))) (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 req (*.f64 a a)) (*.f64 J2 sgn))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/32 binary64)))) (sin.f64 (+.f64 omega omega))))) (+.f64 omega M))
(pow.f64 #s(literal 10 binary64) (-.f64 #s(literal -503/40 binary64) (-.f64 (-.f64 (*.f64 #s(literal 23024/2928563 binary64) (-.f64 alt #s(literal 2634/5 binary64))) (*.f64 (pow.f64 (-.f64 (*.f64 alt #s(literal 10000/2928563 binary64)) #s(literal 5268000/2928563 binary64)) #s(literal 6 binary64)) #s(literal 34047/100000 binary64))) (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 alt #s(literal 10000/2928563 binary64)) #s(literal 5268000/2928563 binary64)) #s(literal 5 binary64)) #s(literal -5889/10000 binary64)) (-.f64 (*.f64 (pow.f64 (-.f64 (*.f64 alt #s(literal 10000/2928563 binary64)) #s(literal 5268000/2928563 binary64)) #s(literal 4 binary64)) #s(literal 5269/10000 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 100000000/8576481244969 binary64) (-.f64 alt #s(literal 2634/5 binary64))) (-.f64 alt #s(literal 2634/5 binary64))) (+.f64 #s(literal 60713/100000 binary64) (*.f64 (-.f64 #s(literal 2634/5 binary64) alt) #s(literal -10036/2928563 binary64)))))))))
(pow.f64 #s(literal 10 binary64) (-.f64 #s(literal -503/40 binary64) (-.f64 (-.f64 (*.f64 #s(literal 23024/2928563 binary64) (-.f64 alt #s(literal 2634/5 binary64))) (*.f64 (pow.f64 (*.f64 #s(literal 10000/2928563 binary64) (-.f64 alt #s(literal 2634/5 binary64))) #s(literal 6 binary64)) #s(literal 34047/100000 binary64))) (-.f64 (*.f64 (pow.f64 (*.f64 #s(literal 10000/2928563 binary64) (-.f64 alt #s(literal 2634/5 binary64))) #s(literal 5 binary64)) #s(literal -5889/10000 binary64)) (-.f64 (*.f64 (pow.f64 (*.f64 #s(literal 10000/2928563 binary64) (-.f64 alt #s(literal 2634/5 binary64))) #s(literal 4 binary64)) #s(literal 5269/10000 binary64)) (*.f64 (*.f64 (*.f64 #s(literal 100000000/8576481244969 binary64) (-.f64 alt #s(literal 2634/5 binary64))) (-.f64 alt #s(literal 2634/5 binary64))) (+.f64 #s(literal 60713/100000 binary64) (*.f64 (-.f64 #s(literal 2634/5 binary64) alt) #s(literal -10036/2928563 binary64)))))))))
(pow.f64 #s(literal 10 binary64) (-.f64 (-.f64 (*.f64 #s(literal 23024/2928563 binary64) (-.f64 #s(literal 2634/5 binary64) alt)) (-.f64 (*.f64 (pow.f64 (*.f64 #s(literal 10000/2928563 binary64) (-.f64 alt #s(literal 2634/5 binary64))) #s(literal 4 binary64)) #s(literal 5269/10000 binary64)) (+.f64 (-.f64 (*.f64 (pow.f64 (*.f64 #s(literal 10000/2928563 binary64) (-.f64 alt #s(literal 2634/5 binary64))) #s(literal 5 binary64)) #s(literal -5889/10000 binary64)) (*.f64 #s(literal -34047/100000 binary64) (pow.f64 (*.f64 #s(literal 10000/2928563 binary64) (-.f64 alt #s(literal 2634/5 binary64))) #s(literal 6 binary64)))) (*.f64 #s(literal -100000000/8576481244969 binary64) (*.f64 (*.f64 (-.f64 #s(literal 2634/5 binary64) alt) (-.f64 #s(literal 2634/5 binary64) alt)) (-.f64 (*.f64 #s(literal -10036/2928563 binary64) alt) #s(literal -350894634581/292856300000 binary64))))))) #s(literal 503/40 binary64)))
(pow.f64 #s(literal 10 binary64) (-.f64 (*.f64 #s(literal 23024/2928563 binary64) (-.f64 #s(literal 2634/5 binary64) alt)) (-.f64 (-.f64 (*.f64 (pow.f64 (*.f64 #s(literal 10000/2928563 binary64) (-.f64 alt #s(literal 2634/5 binary64))) #s(literal 4 binary64)) #s(literal 5269/10000 binary64)) (+.f64 (-.f64 (*.f64 (pow.f64 (*.f64 #s(literal 10000/2928563 binary64) (-.f64 alt #s(literal 2634/5 binary64))) #s(literal 5 binary64)) #s(literal -5889/10000 binary64)) (*.f64 #s(literal -34047/100000 binary64) (pow.f64 (*.f64 #s(literal 10000/2928563 binary64) (-.f64 alt #s(literal 2634/5 binary64))) #s(literal 6 binary64)))) (*.f64 #s(literal -100000000/8576481244969 binary64) (*.f64 (*.f64 (-.f64 #s(literal 2634/5 binary64) alt) (-.f64 #s(literal 2634/5 binary64) alt)) (-.f64 (*.f64 #s(literal -10036/2928563 binary64) alt) #s(literal -350894634581/292856300000 binary64)))))) #s(literal -503/40 binary64))))
(*.f64 (sqrt.f64 (fabs.f64 p)) (sqrt.f64 (fabs.f64 mu)))
(sqrt.f64 (*.f64 mu p))
(/.f64 (+.f64 (neg.f64 N) (-.f64 (-.f64 N (*.f64 (-.f64 (*.f64 (/.f64 #s(literal 1/2 binary64) (exp.f64 N)) e) (*.f64 (*.f64 #s(literal -1/2 binary64) (exp.f64 N)) e)) N)) (-.f64 N (*.f64 (sinh.f64 N) e)))) (-.f64 #s(literal 1 binary64) (-.f64 (*.f64 (/.f64 #s(literal 1/2 binary64) (exp.f64 N)) e) (*.f64 (*.f64 #s(literal -1/2 binary64) (exp.f64 N)) e))))
(/.f64 (+.f64 (neg.f64 N) (-.f64 (-.f64 N (*.f64 (*.f64 (cosh.f64 N) e) N)) (-.f64 N (*.f64 (sinh.f64 N) e)))) (-.f64 (-.f64 #s(literal 1 binary64) (*.f64 (/.f64 #s(literal 1/2 binary64) (exp.f64 N)) e)) (*.f64 (*.f64 (exp.f64 N) #s(literal 1/2 binary64)) e)))
(/.f64 (+.f64 (neg.f64 N) (-.f64 (-.f64 N (*.f64 (*.f64 (cosh.f64 N) e) N)) (-.f64 N (*.f64 (sinh.f64 N) e)))) (-.f64 #s(literal 1 binary64) (*.f64 (cosh.f64 N) e)))
(/.f64 (+.f64 (neg.f64 N) (+.f64 (-.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (cosh.f64 N) e)) N) N) (*.f64 (sinh.f64 N) e))) (-.f64 #s(literal 1 binary64) (*.f64 (cosh.f64 N) e)))
(/.f64 (+.f64 N (-.f64 (*.f64 (-.f64 (*.f64 (cosh.f64 N) e) #s(literal 1 binary64)) N) (-.f64 (*.f64 (sinh.f64 N) e) N))) (-.f64 (*.f64 (cosh.f64 N) e) #s(literal 1 binary64)))
(-.f64 N (/.f64 (-.f64 (*.f64 (sinh.f64 N) e) (+.f64 N N)) (-.f64 (*.f64 e (cosh.f64 N)) #s(literal 1 binary64))))
(-.f64 M (*.f64 (/.f64 e (-.f64 (*.f64 (cos.f64 M) e) #s(literal 1 binary64))) (sin.f64 M)))
(*.f64 (atan.f64 (/.f64 (tanh.f64 (*.f64 #s(literal 1/2 binary64) H)) (sqrt.f64 (/.f64 (-.f64 #s(literal 1 binary64) e) (-.f64 #s(literal -1 binary64) e))))) #s(literal 2 binary64))
(*.f64 (atan.f64 (*.f64 (tanh.f64 (*.f64 #s(literal 1/2 binary64) H)) (sqrt.f64 (/.f64 (-.f64 #s(literal -1 binary64) e) (-.f64 #s(literal 1 binary64) e))))) #s(literal 2 binary64))
(-.f64 (*.f64 e (sinh.f64 H)) H)
(*.f64 (atan2.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) Ecc)) (sqrt.f64 (-.f64 e #s(literal -1 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) Ecc)) (sqrt.f64 (/.f64 #s(literal 1 binary64) (/.f64 #s(literal 1 binary64) (-.f64 #s(literal 1 binary64) e)))))) #s(literal 2 binary64))
(*.f64 #s(literal 2 binary64) (atan2.f64 (*.f64 (sqrt.f64 (+.f64 (+.f64 e #s(literal 1/2 binary64)) #s(literal 1/2 binary64))) (sin.f64 (*.f64 Ecc #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) e)) (cos.f64 (*.f64 Ecc #s(literal 1/2 binary64))))))
(*.f64 (atan2.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) Ecc)) (sqrt.f64 (-.f64 e #s(literal -1 binary64)))) (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) Ecc)) (sqrt.f64 (-.f64 #s(literal 1 binary64) e)))) #s(literal 2 binary64))
(-.f64 Ecc (*.f64 e (sin.f64 Ecc)))