(if.f64 (<=.f64 mu #s(literal 39999999999999998543585179860992 binary64)) (/.f64 (*.f64 mu (*.f64 (sin.f64 i) (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)))) h) (*.f64 (/.f64 (*.f64 (sin.f64 i) mu) h) (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta))))
(if.f64 (<=.f64 mu #s(literal 3821530487881633/41538374868278621028243970633760768 binary64)) (*.f64 (/.f64 (sin.f64 i) h) (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) mu)) (*.f64 (/.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) h) (*.f64 (sin.f64 i) mu)))
(if.f64 (<=.f64 mu #s(literal 2348542582773833/1174271291386916613944740298394668513687841274454159935353645485766104512557304221731849499192384351515967488 binary64)) (*.f64 (/.f64 (sin.f64 i) h) (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) mu)) (*.f64 (/.f64 (*.f64 (sin.f64 i) mu) h) (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta))))
(if.f64 (<=.f64 (neg.f64 (/.f64 mu h)) #s(literal -3334007216439927/833501804109981784259981473840157224643094790289488520049532226470504654727204008940179025108944286342866238824179155055736100206764920635045419506541353755761894697439251819807884785738976753091120627016985825247711343504684557661395484672 binary64)) (*.f64 (/.f64 mu h) (*.f64 (sin.f64 i) (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)))) (*.f64 (*.f64 (/.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) h) (sin.f64 i)) mu))
(if.f64 (<=.f64 (neg.f64 (/.f64 mu h)) #s(literal -3599131035634557/7198262071269114212496861612297570974191515389283066612961208916178940129074380592510465097766225371439873457013633432197133225688790879502413624289384262168215552 binary64)) (*.f64 (*.f64 (sin.f64 i) (/.f64 mu h)) (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta))) (*.f64 (*.f64 (/.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) h) mu) (sin.f64 i)))
(if.f64 (<=.f64 (neg.f64 (/.f64 mu h)) #s(literal -740298315191607/1480596630383213935040454376661779933220754639736839877261211431528140022932412039118650826290747144651878100106364319997951107067217649833149230265656644000248389221211290269422784124023054547143233298486439198256390425542656 binary64)) (*.f64 (*.f64 (sin.f64 i) (/.f64 mu h)) (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta))) (*.f64 (*.f64 (/.f64 (sin.f64 i) h) (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta))) mu))
(*.f64 (*.f64 (sin.f64 i) (/.f64 mu h)) (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)))
(if.f64 (<=.f64 h #s(literal 5902958103587057/1180591620717411303424 binary64)) (/.f64 (*.f64 (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (sin.f64 AN)) (+.f64 (*.f64 (*.f64 (cos.f64 theta) (cos.f64 AN)) (cos.f64 i)) (*.f64 (*.f64 (*.f64 (cos.f64 AN) e) (cos.f64 AP)) (cos.f64 i)))) (neg.f64 mu)) h) (*.f64 mu (-.f64 (*.f64 (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (cos.f64 AN)) (/.f64 (cos.f64 i) h)) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (/.f64 (sin.f64 AN) h)))))
(if.f64 (<=.f64 h #s(literal 5902958103587057/1180591620717411303424 binary64)) (/.f64 (*.f64 (-.f64 (/.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (/.f64 #s(literal 1 binary64) (*.f64 (cos.f64 i) (cos.f64 AN)))) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (sin.f64 AN))) mu) h) (*.f64 mu (-.f64 (*.f64 (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (cos.f64 AN)) (/.f64 (cos.f64 i) h)) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (/.f64 (sin.f64 AN) h)))))
(if.f64 (<=.f64 h #s(literal 1915619426082361/95780971304118053647396689196894323976171195136475136 binary64)) (*.f64 (/.f64 mu h) (-.f64 (-.f64 (*.f64 (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (cos.f64 AN)) (cos.f64 i)) (*.f64 (sin.f64 theta) (sin.f64 AN))) (*.f64 (*.f64 (sin.f64 AN) e) (sin.f64 AP)))) (*.f64 mu (-.f64 (*.f64 (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (cos.f64 AN)) (/.f64 (cos.f64 i) h)) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (/.f64 (sin.f64 AN) h)))))
(if.f64 (<=.f64 h #s(literal 5902958103587057/1180591620717411303424 binary64)) (/.f64 (*.f64 (-.f64 (*.f64 (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (cos.f64 AN)) (cos.f64 i)) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (sin.f64 AN))) mu) h) (*.f64 mu (-.f64 (*.f64 (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (cos.f64 AN)) (/.f64 (cos.f64 i) h)) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (/.f64 (sin.f64 AN) h)))))
(if.f64 (<=.f64 h #s(literal 5764607523034235/1152921504606846976 binary64)) (/.f64 (*.f64 (-.f64 (*.f64 (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (cos.f64 AN)) (cos.f64 i)) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (sin.f64 AN))) mu) h) (*.f64 mu (/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (cos.f64 AN)) (cos.f64 i)) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (sin.f64 AN))) h)))
(if.f64 (<=.f64 h #s(literal 1915619426082361/95780971304118053647396689196894323976171195136475136 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 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (cos.f64 AN)) (cos.f64 i)) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (sin.f64 AN))) h)))
(*.f64 mu (/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (cos.f64 AN)) (cos.f64 i)) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (sin.f64 AN))) h))
(if.f64 (<=.f64 (/.f64 mu h) #s(literal 4388899255034951/87777985100699018932094980018995348321190282174917313121792031815299158108154767154642811192581804697812555605405953787919330941803914366451585659491930724793831979211360100232569443164670944394264200660197756723065503262862530703844684136006263299396167241545208153437474241180898298976970388832824328192 binary64)) (*.f64 (neg.f64 mu) (/.f64 (+.f64 (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (*.f64 (sin.f64 AN) (cos.f64 i))) (*.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 (cos.f64 i) (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta))) (sin.f64 AN)))))
(*.f64 (neg.f64 mu) (/.f64 (+.f64 (*.f64 (+.f64 (*.f64 (cos.f64 AP) e) (cos.f64 theta)) (*.f64 (sin.f64 AN) (cos.f64 i))) (*.f64 (+.f64 (*.f64 (sin.f64 AP) e) (sin.f64 theta)) (cos.f64 AN))) h))
(*.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 (*.f64 a e) (neg.f64 e)) a)
(*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e)))
(*.f64 (*.f64 (sin.f64 theta) r) (sin.f64 i))
(*.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 (*.f64 r (cos.f64 AN)) (sin.f64 theta)) (cos.f64 i)))
(*.f64 r (+.f64 (*.f64 (sin.f64 AN) (cos.f64 theta)) (*.f64 (*.f64 (cos.f64 i) (cos.f64 AN)) (sin.f64 theta))))
(*.f64 r (+.f64 (*.f64 (sin.f64 AN) (cos.f64 theta)) (*.f64 (*.f64 (cos.f64 AN) (sin.f64 theta)) (cos.f64 i))))
(-.f64 (*.f64 (*.f64 r (cos.f64 theta)) (cos.f64 AN)) (*.f64 (*.f64 (*.f64 (cos.f64 i) r) (sin.f64 theta)) (sin.f64 AN)))
(-.f64 (*.f64 (*.f64 r (cos.f64 theta)) (cos.f64 AN)) (*.f64 (sin.f64 AN) (*.f64 (cos.f64 i) (*.f64 (sin.f64 theta) r))))
(*.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 #s(literal 1 binary64) (/.f64 (-.f64 e #s(literal -1 binary64)) (-.f64 e #s(literal 1 binary64))))))) #s(literal 2 binary64))
(*.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 (*.f64 (pow.f64 (-.f64 #s(literal 1 binary64) e) #s(literal 1/4 binary64)) (pow.f64 (-.f64 #s(literal 1 binary64) e) #s(literal 1/4 binary64))) (sin.f64 (/.f64 f #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) e)) (cos.f64 (/.f64 f #s(literal 2 binary64))))))
(*.f64 #s(literal 2 binary64) (atan2.f64 (*.f64 (*.f64 (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) e))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) e)))) (sin.f64 (/.f64 f #s(literal 2 binary64)))) (*.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) e)) (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) (/.f64 #s(literal 1 binary64) (-.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))
(*.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 (neg.f64 #s(literal 1/2 binary64)) density) (/.f64 (*.f64 Cd A) m)) #s(literal -inf.0 binary64)) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1000 binary64) v) A) (*.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) density) Cd) v)) m) (if.f64 (<=.f64 (*.f64 (*.f64 (neg.f64 #s(literal 1/2 binary64)) density) (/.f64 (*.f64 Cd A) m)) #s(literal -2247116418577895/44942328371557897693232629769725618340449424473557664318357520289433168951375240783177119330601884005280028469967848339414697442203604155623211857659868531094441973356216371319075554900311523529863270738021251442209537670585615720368478277635206809290837627671146574559986811484619929076208839082406056034304 binary64)) (*.f64 v (*.f64 (*.f64 #s(literal 1000000 binary64) v) (*.f64 #s(literal -1/2000 binary64) (*.f64 (/.f64 (*.f64 A Cd) m) density)))) (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) density) v) #s(literal 1000 binary64)) A) (*.f64 v Cd)) m)))
(if.f64 (<=.f64 (*.f64 (*.f64 (neg.f64 #s(literal 1/2 binary64)) density) (/.f64 (*.f64 Cd A) m)) #s(literal -inf.0 binary64)) (*.f64 A (*.f64 (/.f64 v m) (*.f64 (*.f64 (*.f64 #s(literal 1000 binary64) v) Cd) (*.f64 #s(literal -1/2 binary64) density)))) (if.f64 (<=.f64 (*.f64 (*.f64 (neg.f64 #s(literal 1/2 binary64)) density) (/.f64 (*.f64 Cd A) m)) #s(literal -6386688990511103/319334449525555169865019634085894170570792201669673206640407558789953902699034250525593274478821712174294791495070799239035590078142974985718267487725573027251200907672173708242806035431098077949224537079127027838932929672819339262222216842951687065201139345100120966662777359236855041588461568 binary64)) (*.f64 v (*.f64 (*.f64 #s(literal 1000000 binary64) v) (*.f64 #s(literal -1/2000 binary64) (*.f64 (/.f64 (*.f64 A Cd) m) density)))) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal 1000 binary64) v) Cd) m) (*.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) density) v) A))))
(if.f64 (<=.f64 (*.f64 (*.f64 (neg.f64 #s(literal 1/2 binary64)) density) (/.f64 (*.f64 Cd A) m)) #s(literal -inf.0 binary64)) (*.f64 A (*.f64 (/.f64 v m) (*.f64 (*.f64 (*.f64 #s(literal 1000 binary64) v) Cd) (*.f64 #s(literal -1/2 binary64) density)))) (if.f64 (<=.f64 (*.f64 (*.f64 (neg.f64 #s(literal 1/2 binary64)) density) (/.f64 (*.f64 Cd A) m)) #s(literal -6828046779268971/3414023389634485388328884116849283992138116261025744978122883999623187065762627620618973286846235796860380114223837819108295066446909114921146038298793384983600720680711175453933096082386848780661230088261573940214625662995187948181075905216512 binary64)) (*.f64 v (*.f64 (*.f64 #s(literal 1000000 binary64) v) (*.f64 #s(literal -1/2000 binary64) (*.f64 (/.f64 (*.f64 A Cd) m) density)))) (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) density) v) m) A) (*.f64 (*.f64 #s(literal 1000 binary64) v) Cd))))
(if.f64 (<=.f64 (*.f64 (*.f64 (neg.f64 #s(literal 1/2 binary64)) density) (/.f64 (*.f64 Cd A) m)) #s(literal -inf.0 binary64)) (*.f64 A (*.f64 (/.f64 v m) (*.f64 (*.f64 (*.f64 #s(literal 1000 binary64) v) Cd) (*.f64 #s(literal -1/2 binary64) density)))) (if.f64 (<=.f64 (*.f64 (*.f64 (neg.f64 #s(literal 1/2 binary64)) density) (/.f64 (*.f64 Cd A) m)) #s(literal -6032057205060441/3016028602530220424421062271578867838525126125874252890898307532480811172246863646685486789069132871854112712507200418582406770249989531589552959798883475511096677545853948017425342019529539590198394174553047792145043723038206885734470238620775335376572758801465612196212014773714996912064944617579072807182486470656 binary64)) (*.f64 v (*.f64 (*.f64 #s(literal 1000000 binary64) v) (*.f64 #s(literal -1/2000 binary64) (*.f64 (/.f64 (*.f64 A Cd) m) density)))) (*.f64 A (*.f64 (*.f64 (*.f64 #s(literal 1000 binary64) v) Cd) (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) density) v) m)))))
(if.f64 (<=.f64 v #s(literal 7673845534663173/295147905179352825856 binary64)) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 v A) #s(literal 1000 binary64)) Cd) v) m) (*.f64 density #s(literal -1/2 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal 1000 binary64) v) Cd) m) (*.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) density) v) A)))
(if.f64 (<=.f64 Cd #s(literal 200000000000000000053219729416734553074804802362401618196263954906979517832626176 binary64)) (*.f64 A (*.f64 (*.f64 (*.f64 #s(literal 1000 binary64) v) Cd) (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) density) v) m))) (*.f64 A (*.f64 (/.f64 v m) (*.f64 (*.f64 (*.f64 #s(literal 1000 binary64) v) Cd) (*.f64 #s(literal -1/2 binary64) density)))))
(*.f64 A (*.f64 (*.f64 (*.f64 #s(literal 1000 binary64) v) Cd) (/.f64 (*.f64 (*.f64 #s(literal -1/2 binary64) density) v) m)))
(+.f64 (+.f64 (*.f64 (*.f64 (sin.f64 Omega) (sin.f64 (*.f64 #s(literal -1/2 binary64) i))) dOmega) (*.f64 (*.f64 (*.f64 (cos.f64 Omega) di) #s(literal 1/2 binary64)) (cos.f64 (*.f64 #s(literal -1/2 binary64) i)))) (*.f64 (cos.f64 Omega) (sin.f64 (*.f64 #s(literal 1/2 binary64) i))))
(+.f64 (+.f64 (*.f64 (*.f64 (sin.f64 Omega) (sin.f64 (*.f64 #s(literal -1/2 binary64) i))) dOmega) (*.f64 (cos.f64 Omega) (*.f64 (*.f64 #s(literal 1/2 binary64) di) (cos.f64 (*.f64 #s(literal -1/2 binary64) i))))) (*.f64 (cos.f64 Omega) (sin.f64 (*.f64 #s(literal 1/2 binary64) i))))
(-.f64 (*.f64 (*.f64 (sin.f64 Omega) (sin.f64 (*.f64 #s(literal -1/2 binary64) i))) dOmega) (*.f64 (-.f64 (sin.f64 (*.f64 #s(literal -1/2 binary64) i)) (*.f64 (*.f64 #s(literal 1/2 binary64) di) (cos.f64 (*.f64 #s(literal -1/2 binary64) i)))) (cos.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))))
(-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (/.f64 req 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 1 binary64) (*.f64 e e)) e) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (-.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 11 binary64))) (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 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)))))))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (/.f64 req a)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/4 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 (-.f64 (/.f64 (-.f64 (*.f64 (cos.f64 f) e) #s(literal -1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1/3 binary64)) (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))) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))) (*.f64 (sin.f64 (+.f64 (+.f64 omega omega) 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 #s(literal 1 binary64) (*.f64 e e))) #s(literal 1 binary64))))) (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (*.f64 (sin.f64 f) (*.f64 #s(literal 2 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)) #s(literal 1 binary64)) (+.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)))))))))
(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 +inf.0 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 e (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.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))))))) (sin.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 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 #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 (*.f64 e (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.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)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))))) (sin.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) (sin.f64 (+.f64 (+.f64 i i) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (+.f64 i i) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 11 binary64)) #s(literal 1 binary64)))) (*.f64 (+.f64 (*.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) (*.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))) (sin.f64 f)) (*.f64 (*.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) (*.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))) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))) (*.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 #s(literal 1 binary64) (*.f64 e e))) #s(literal 1 binary64))) (sin.f64 (+.f64 (+.f64 omega omega) f)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (*.f64 (*.f64 (*.f64 (/.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))))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) #s(literal 1/4 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.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 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 +inf.0 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 e (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.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))))) (sin.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 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 #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 (*.f64 e (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.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)))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))))) (sin.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) (sin.f64 (+.f64 (+.f64 i i) (*.f64 (PI.f64) #s(literal 1/2 binary64))))))))) (-.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (sin.f64 (+.f64 (+.f64 i i) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) #s(literal 11 binary64)) #s(literal 1 binary64)))) (*.f64 (+.f64 (*.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) (*.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))) (sin.f64 f)) (*.f64 (*.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) (*.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))) (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f)))) (*.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 #s(literal 1 binary64) (*.f64 e e))) #s(literal 1 binary64))) (sin.f64 (+.f64 (+.f64 omega omega) f)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (*.f64 (*.f64 (*.f64 (/.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))))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) #s(literal 1/4 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.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 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 +inf.0 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 e (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.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))))) (sin.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 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 #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 (*.f64 e (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 #s(literal 1/8 binary64) (*.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) (*.f64 J2 sgn))))) (sin.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) (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) i)))))))) (-.f64 (*.f64 (-.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (*.f64 #s(literal 2 binary64) (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) i))))) #s(literal 11 binary64)) #s(literal 1 binary64)))) (*.f64 (+.f64 (*.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) (*.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 (cos.f64 (+.f64 i i)) #s(literal -1/2 binary64))) #s(literal 3 binary64)) #s(literal 1 binary64))) (sin.f64 f)) (*.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 (+.f64 omega omega) 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 #s(literal 1 binary64) (*.f64 e e))) #s(literal 1 binary64)))) (*.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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) #s(literal 3 binary64))) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req 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))) #s(literal 1/4 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.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 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 +inf.0 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 e (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.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))))) (sin.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 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 #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 (*.f64 e (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 #s(literal 1/8 binary64) (*.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))))) (sin.f64 (+.f64 omega omega))) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) 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 #s(literal 1/4 binary64) (*.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 (-.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 +inf.0 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 e (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.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))))) (sin.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 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 #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 (*.f64 e (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 #s(literal 1/8 binary64) (*.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))))) (sin.f64 (+.f64 omega omega))) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) 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 #s(literal 1/4 binary64) (*.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 (-.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 +inf.0 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 e (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.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)))))) (sin.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 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 #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))))))) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 e (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 #s(literal 1/8 binary64) (*.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))))) (sin.f64 (+.f64 omega omega))) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) 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 #s(literal 1/4 binary64) (*.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 (-.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 (*.f64 e (-.f64 #s(literal 1 binary64) (*.f64 e e))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.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)))))) (sin.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 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 #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 50000000000000003762608676247009359680713540241291819259627219853176217150773285501269553819831059961969610458775763570700520984086102794838510643846931101957819443487143599535802327035633384549613035605948983170368441251455495172717176776840351126669214318337732342424653859009670938624 binary64)) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.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 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 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 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (*.f64 (sqrt.f64 (fabs.f64 (sin.f64 i))) (sqrt.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 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (*.f64 (fabs.f64 (sin.f64 i)) (cos.f64 i)) (+.f64 (*.f64 (cos.f64 (+.f64 (+.f64 f f) (+.f64 omega omega))) #s(literal 3 binary64)) (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) (*.f64 #s(literal 3 binary64) e)) (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e))))) #s(literal 1/2 binary64)) (*.f64 (neg.f64 e) (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.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 e (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal 1 binary64))) (-.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)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 i))))))
(if.f64 (<=.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) #s(literal -19999999999999998575476810407335150737534786416231532244635629614029401907090549880154926828822765528849487795390951270508645862330022451343574287187624455542097089214916093587592889940864165347672632943347557238970917799496179237398871421535508562178469789696 binary64)) (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (*.f64 (fabs.f64 (sin.f64 i)) (cos.f64 i)) (+.f64 (*.f64 (cos.f64 (+.f64 (+.f64 f f) (+.f64 omega omega))) #s(literal 3 binary64)) (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) (*.f64 #s(literal 3 binary64) e)) (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e))))) #s(literal 1/2 binary64)) (*.f64 (neg.f64 e) (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.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 e (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal 1 binary64))) (-.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)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 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 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.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 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 1/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 1/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 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 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (*.f64 (sin.f64 i) (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 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (*.f64 (fabs.f64 (sin.f64 i)) (cos.f64 i)) (+.f64 (*.f64 (cos.f64 (+.f64 (+.f64 f f) (+.f64 omega omega))) #s(literal 3 binary64)) (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) (*.f64 #s(literal 3 binary64) e)) (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e))))) #s(literal 1/2 binary64)) (*.f64 (neg.f64 e) (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.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 e (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal 1 binary64))) (-.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)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 i)))))))
(+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (/.f64 req a) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (-.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 req a) (/.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (-.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) (-.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 req a) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) 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 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 req a) (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) 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 (sqrt.f64 (*.f64 (sin.f64 i) (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 50000000000000003762608676247009359680713540241291819259627219853176217150773285501269553819831059961969610458775763570700520984086102794838510643846931101957819443487143599535802327035633384549613035605948983170368441251455495172717176776840351126669214318337732342424653859009670938624 binary64)) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.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 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 req a) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/2 binary64))) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (*.f64 (sin.f64 i) (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 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (*.f64 (fabs.f64 (sin.f64 i)) (cos.f64 i)) (+.f64 (*.f64 (cos.f64 (+.f64 (+.f64 f f) (+.f64 omega omega))) #s(literal 3 binary64)) (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) (*.f64 #s(literal 3 binary64) e)) (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e))))) #s(literal 1/2 binary64)) (*.f64 (neg.f64 e) (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.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 e (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal 1 binary64))) (-.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)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (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 50000000000000003762608676247009359680713540241291819259627219853176217150773285501269553819831059961969610458775763570700520984086102794838510643846931101957819443487143599535802327035633384549613035605948983170368441251455495172717176776840351126669214318337732342424653859009670938624 binary64)) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.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) (-.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 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 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (*.f64 (sin.f64 i) (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 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (*.f64 (fabs.f64 (sin.f64 i)) (cos.f64 i)) (+.f64 (*.f64 (cos.f64 (+.f64 (+.f64 f f) (+.f64 omega omega))) #s(literal 3 binary64)) (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) (*.f64 #s(literal 3 binary64) e)) (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e))))) #s(literal 1/2 binary64)) (*.f64 (neg.f64 e) (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.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 e (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal 1 binary64))) (-.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)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 i))))))
(if.f64 (<=.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) #s(literal 5000000000000000000000 binary64)) (+.f64 (/.f64 (*.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.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 e (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (*.f64 (cos.f64 (+.f64 omega omega)) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal 1 binary64))) (-.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))))) (neg.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 i)))) (*.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 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (*.f64 (sin.f64 i) (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 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) #s(literal 100000000000000007525217352494018719361427080482583638519254439706352434301546571002539107639662119923939220917551527141401041968172205589677021287693862203915638886974287199071604654071266769099226071211897966340736882502910990345434353553680702253338428636675464684849307718019341877248 binary64)) (+.f64 (neg.f64 (/.f64 (*.f64 (neg.f64 e) (*.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 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 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 2 binary64)) (*.f64 (*.f64 (+.f64 (*.f64 (cos.f64 (+.f64 (+.f64 f f) (+.f64 omega omega))) #s(literal 3 binary64)) (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) (*.f64 #s(literal 3 binary64) e)) (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e))) (fabs.f64 (sin.f64 i))) (cos.f64 i)))) (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (*.f64 (fabs.f64 (sin.f64 i)) (cos.f64 i)) (+.f64 (*.f64 (cos.f64 (+.f64 (+.f64 f f) (+.f64 omega omega))) #s(literal 3 binary64)) (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) (*.f64 #s(literal 3 binary64) e)) (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e))))) #s(literal 1/2 binary64)) (*.f64 (neg.f64 e) (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.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 e (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal 1 binary64))) (-.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)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 i)))))))
(if.f64 (<=.f64 (*.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) #s(literal 399999999999999987453464431671902208 binary64)) (+.f64 (/.f64 (*.f64 (*.f64 (neg.f64 e) (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.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 e (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (*.f64 (cos.f64 (+.f64 omega omega)) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal 1 binary64))) (-.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))))) (neg.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 i)))) (*.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 2 binary64)) (*.f64 (cos.f64 i) (*.f64 (sqrt.f64 (*.f64 (sin.f64 i) (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 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) (pow.f64 (/.f64 req a) #s(literal 2 binary64))) #s(literal 100000000000000007525217352494018719361427080482583638519254439706352434301546571002539107639662119923939220917551527141401041968172205589677021287693862203915638886974287199071604654071266769099226071211897966340736882502910990345434353553680702253338428636675464684849307718019341877248 binary64)) (-.f64 (*.f64 (fabs.f64 (sin.f64 i)) (*.f64 (/.f64 (*.f64 (*.f64 (/.f64 req a) (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (+.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 (*.f64 (*.f64 (/.f64 req a) (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn))) (*.f64 #s(literal 1/8 binary64) e)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) e) (*.f64 (cos.f64 (+.f64 omega omega)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 (-.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 11 binary64)) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 5 binary64)))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 i)))) (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (*.f64 (fabs.f64 (sin.f64 i)) (cos.f64 i)) (+.f64 (*.f64 (cos.f64 (+.f64 (+.f64 f f) (+.f64 omega omega))) #s(literal 3 binary64)) (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) (*.f64 #s(literal 3 binary64) e)) (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e))))) #s(literal 1/2 binary64)) (*.f64 (neg.f64 e) (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.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 e (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal 1 binary64))) (-.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)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 i)))))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 1552518092300709/776259046150354467574489744231251277628443008558348305569526019013025476343188443165439204414323238975243865348565536603085790022057407195722143637520590569602227488010424952775132642815799222412631499596858234375446423426908028928 binary64)) (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (*.f64 (fabs.f64 (sin.f64 i)) (cos.f64 i)) (+.f64 (*.f64 (cos.f64 (+.f64 (+.f64 f f) (+.f64 omega omega))) #s(literal 3 binary64)) (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) (*.f64 #s(literal 3 binary64) e)) (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e))))) #s(literal 1/2 binary64)) (*.f64 (neg.f64 e) (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.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 e (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal 1 binary64))) (-.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)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 i))))) (if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 10000000000000000972062404885344653449756728480474941855847657639911300522221339234388177506516007760792756678147673846152604340428430285295728914471221362369950308146488642846313231335560438561636352 binary64)) (-.f64 (*.f64 (*.f64 (fabs.f64 (sin.f64 i)) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 i)) (*.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) J2)) sgn))) (-.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 #s(literal -3 binary64) (+.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e))))) (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) e) (*.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) J2)) sgn)) (*.f64 e (*.f64 (cos.f64 (+.f64 omega omega)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (/.f64 (-.f64 (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64)) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 binary64))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 i))))) (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (*.f64 (fabs.f64 (sin.f64 i)) (cos.f64 i)) (+.f64 (*.f64 (cos.f64 (+.f64 (+.f64 f f) (+.f64 omega omega))) #s(literal 3 binary64)) (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) (*.f64 #s(literal 3 binary64) e)) (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e))))) #s(literal 1/2 binary64)) (*.f64 (neg.f64 e) (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.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 e (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal 1 binary64))) (-.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)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (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 50000000000000003762608676247009359680713540241291819259627219853176217150773285501269553819831059961969610458775763570700520984086102794838510643846931101957819443487143599535802327035633384549613035605948983170368441251455495172717176776840351126669214318337732342424653859009670938624 binary64)) (-.f64 (*.f64 (fabs.f64 (sin.f64 i)) (*.f64 (/.f64 (*.f64 (*.f64 (/.f64 req a) (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (+.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 (*.f64 (*.f64 (/.f64 req a) (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn))) (*.f64 #s(literal 1/8 binary64) e)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) e) (*.f64 (cos.f64 (+.f64 omega omega)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 (-.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 11 binary64)) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 5 binary64)))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 i)))) (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (*.f64 (fabs.f64 (sin.f64 i)) (cos.f64 i)) (+.f64 (*.f64 (cos.f64 (+.f64 (+.f64 f f) (+.f64 omega omega))) #s(literal 3 binary64)) (+.f64 (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) (*.f64 #s(literal 3 binary64) e)) (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e))))) #s(literal 1/2 binary64)) (*.f64 (neg.f64 e) (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn)) (*.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 e (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 (/.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 4 binary64)) #s(literal 40 binary64)) (-.f64 (*.f64 #s(literal 5 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))) #s(literal 1 binary64))) (-.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)))) (cos.f64 (+.f64 omega omega))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (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 (fabs.f64 (sin.f64 i)) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 i)) (*.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) J2)) sgn))) (-.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 #s(literal -3 binary64) (+.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e))))) (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) e) (*.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) J2)) sgn)) (*.f64 e (*.f64 (cos.f64 (+.f64 omega omega)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (/.f64 (-.f64 (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64)) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 binary64))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 i))))) (-.f64 (*.f64 (*.f64 (fabs.f64 (sin.f64 i)) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 i)) (*.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 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 #s(literal -3 binary64) (+.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e))))) (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) e) (*.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 e (*.f64 (cos.f64 (+.f64 omega omega)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (/.f64 (-.f64 (-.f64 (*.f64 (-.f64 (sin.f64 (+.f64 (+.f64 i i) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 11/2 binary64)) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (sin.f64 (+.f64 (+.f64 i i) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal -1 binary64)) #s(literal 5/2 binary64))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 i))))))
(-.f64 (*.f64 (*.f64 (fabs.f64 (sin.f64 i)) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 i)) (*.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) J2)) sgn))) (-.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 #s(literal -3 binary64) (+.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e))))) (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) e) (*.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) J2)) sgn)) (*.f64 e (*.f64 (cos.f64 (+.f64 omega omega)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (/.f64 (-.f64 (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64)) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 binary64))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 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 (fabs.f64 (sin.f64 i)) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) req) (/.f64 req (*.f64 a a))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (+.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 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) req) (/.f64 req (*.f64 a a))) (*.f64 #s(literal 1/8 binary64) e)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) e) (*.f64 (cos.f64 (+.f64 omega omega)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64)) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 binary64)))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 i)))) (-.f64 (*.f64 (*.f64 (fabs.f64 (sin.f64 i)) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 i)) (*.f64 (*.f64 (*.f64 (*.f64 req req) (*.f64 #s(literal 1/2 binary64) J2)) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) sgn))) (-.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 #s(literal -3 binary64) (+.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e))))) (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) e) (*.f64 (*.f64 (*.f64 (*.f64 req req) (*.f64 #s(literal 1/2 binary64) J2)) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) sgn)) (*.f64 e (*.f64 (cos.f64 (+.f64 omega omega)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (/.f64 (-.f64 (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64)) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 binary64))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 i))))))
(-.f64 (*.f64 (*.f64 (fabs.f64 (sin.f64 i)) (*.f64 (*.f64 #s(literal 1/2 binary64) (cos.f64 i)) (*.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) J2)) sgn))) (-.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 #s(literal -3 binary64) (+.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e))))) (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) e) (*.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) J2)) sgn)) (*.f64 e (*.f64 (cos.f64 (+.f64 omega omega)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (/.f64 (-.f64 (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64)) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 binary64))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 i)))))
(-.f64 (*.f64 (fabs.f64 (sin.f64 i)) (*.f64 (*.f64 (*.f64 (/.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))))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (+.f64 (*.f64 (cos.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e) (*.f64 (+.f64 (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))) (*.f64 (cos.f64 (+.f64 f (+.f64 omega omega))) e)) #s(literal 3 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) e) (*.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 e (*.f64 (cos.f64 (+.f64 omega omega)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (/.f64 (-.f64 (-.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 11/2 binary64)) #s(literal 1 binary64)) (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 binary64))))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (tan.f64 i)))))
(if.f64 (<=.f64 sgn #s(literal -7482888383134223/374144419156711147060143317175368453031918731001856 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 (*.f64 (/.f64 req (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) J2) (*.f64 (*.f64 sgn (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (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 -3/2 binary64) (*.f64 #s(literal 5/2 binary64) (cos.f64 (+.f64 i i))))) #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)))) #s(literal 1/8 binary64)) (*.f64 (*.f64 (/.f64 req a) (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn) req) (*.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 #s(literal 1 binary64) (*.f64 e 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 sgn #s(literal -7482888383134223/374144419156711147060143317175368453031918731001856 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 (*.f64 (/.f64 req (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) J2) (*.f64 (*.f64 sgn (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (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 -3/2 binary64) (*.f64 #s(literal 5/2 binary64) (cos.f64 (+.f64 i i))))) #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)))) #s(literal 1/8 binary64)) (*.f64 (*.f64 (/.f64 req a) (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn) req) (*.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 #s(literal 1 binary64) (*.f64 e e)) 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 binary64) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i))))))) #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))) (cos.f64 (*.f64 #s(literal 2 binary64) omega)))))
(if.f64 (<=.f64 sgn #s(literal -7482888383134223/374144419156711147060143317175368453031918731001856 binary64)) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 (*.f64 (/.f64 req (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) J2) (*.f64 (*.f64 sgn (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (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 -3/2 binary64) (*.f64 #s(literal 5/2 binary64) (cos.f64 (+.f64 i i))))) #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)))) #s(literal 1/8 binary64)) (*.f64 (/.f64 req a) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn) req) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64)) e) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (cos.f64 (+.f64 omega omega))) (-.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))) (*.f64 #s(literal 11/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))) #s(literal -1 binary64))))))
(if.f64 (<=.f64 (/.f64 req a) #s(literal 500000000000000006643777536 binary64)) (*.f64 (*.f64 sgn (*.f64 (*.f64 (/.f64 req (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) J2)) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e) (cos.f64 (+.f64 omega omega))) (-.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))) (*.f64 #s(literal 11/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))) #s(literal -1 binary64))))) #s(literal 1/8 binary64)) (*.f64 (/.f64 req a) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn) req) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) #s(literal 1/8 binary64)) e) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (cos.f64 (+.f64 omega omega))) (-.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))) (*.f64 #s(literal 11/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))) #s(literal -1 binary64))))))
(if.f64 (<=.f64 req #s(literal 5226737155905615/696898287454081973172991196020261297061888 binary64)) (*.f64 J2 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) req) sgn) (*.f64 (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e) (*.f64 (*.f64 #s(literal 8 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (cos.f64 (+.f64 omega omega))) (-.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))))) (-.f64 #s(literal -1 binary64) (*.f64 (-.f64 #s(literal -1 binary64) (cos.f64 (+.f64 i i))) #s(literal 11/2 binary64))))))) (if.f64 (<=.f64 req #s(literal 57999999999999998617537551594587793839619687224629069408202128862254625631988755763372978594018161690656040731325841512857114135306746448247169147899638560012032098139373568 binary64)) (*.f64 (*.f64 sgn (*.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) req) (/.f64 J2 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e) (cos.f64 (+.f64 omega omega))) (-.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))) (*.f64 #s(literal 11/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))) #s(literal -1 binary64))))) #s(literal 1/8 binary64)) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn) req) (*.f64 (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 req e)) #s(literal 1/8 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (cos.f64 (+.f64 omega omega))) (-.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))) (*.f64 #s(literal 11/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))) #s(literal -1 binary64))))))
(if.f64 (<=.f64 req #s(literal 3205732122288777/2787593149816327892691964784081045188247552 binary64)) (*.f64 J2 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) req) sgn) (*.f64 (*.f64 (/.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e) (*.f64 (*.f64 #s(literal 8 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (cos.f64 (+.f64 omega omega))) (-.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))))) (-.f64 #s(literal -1 binary64) (*.f64 (-.f64 #s(literal -1 binary64) (cos.f64 (+.f64 i i))) #s(literal 11/2 binary64))))))) (*.f64 (*.f64 sgn (*.f64 (*.f64 (/.f64 req (*.f64 (*.f64 a (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) J2)) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e) (cos.f64 (+.f64 omega omega))) (-.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))) (*.f64 #s(literal 11/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))) #s(literal -1 binary64))))) #s(literal 1/8 binary64)))
(if.f64 (<=.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) #s(literal -10000000000000000509610295637002728139855252735311366616309601643306774209564163318419090863889067021760658106681756277614179911327452208591182514380241927357631043882428148314438094801465785761804352561506118922744139467759619125060885807104 binary64)) (*.f64 (*.f64 sgn (*.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) req) (/.f64 J2 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e) (cos.f64 (+.f64 omega omega))) (-.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))) (*.f64 #s(literal 11/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))) #s(literal -1 binary64))))) #s(literal 1/8 binary64)) (if.f64 (<=.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) #s(literal 10000000000000000525047602552044202487044685811081591549158541155118024579889081957863713750804478640437044438328838781769425232353604305756447921847867069828483872009265758037378302337947880900593689532349707999450811190389676408800746527427801424945792587888200568428381156694721963868654594005401600 binary64)) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn) req) (*.f64 (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 req e)) #s(literal 1/8 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (cos.f64 (+.f64 omega omega))) (-.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))) (*.f64 #s(literal 11/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))) #s(literal -1 binary64)))) (*.f64 (*.f64 (*.f64 J2 (*.f64 (/.f64 (*.f64 (*.f64 req req) #s(literal 1/2 binary64)) (*.f64 (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 (*.f64 sgn (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e)) (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 -3/2 binary64) (*.f64 #s(literal 5/2 binary64) (cos.f64 (+.f64 i i))))) #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)))) #s(literal 1/8 binary64))))
(if.f64 (<=.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) #s(literal -10000000000000000509610295637002728139855252735311366616309601643306774209564163318419090863889067021760658106681756277614179911327452208591182514380241927357631043882428148314438094801465785761804352561506118922744139467759619125060885807104 binary64)) (*.f64 (*.f64 sgn (*.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) req) (/.f64 J2 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e) (cos.f64 (+.f64 omega omega))) (-.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))) (*.f64 #s(literal 11/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))) #s(literal -1 binary64))))) #s(literal 1/8 binary64)) (if.f64 (<=.f64 (/.f64 (*.f64 sgn J2) #s(literal 2 binary64)) #s(literal 10000000000000000525047602552044202487044685811081591549158541155118024579889081957863713750804478640437044438328838781769425232353604305756447921847867069828483872009265758037378302337947880900593689532349707999450811190389676408800746527427801424945792587888200568428381156694721963868654594005401600 binary64)) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn) req) (*.f64 (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 req e)) #s(literal 1/8 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (cos.f64 (+.f64 omega omega))) (-.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))) (*.f64 #s(literal 11/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))) #s(literal -1 binary64)))) (*.f64 (*.f64 sgn (*.f64 (*.f64 J2 (*.f64 (*.f64 (*.f64 req req) #s(literal 1/2 binary64)) (/.f64 #s(literal 1 binary64) (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e) (cos.f64 (+.f64 omega omega))) (-.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))) (*.f64 #s(literal 11/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))) #s(literal -1 binary64))))) #s(literal 1/8 binary64))))
(if.f64 (<=.f64 sgn #s(literal -105000000000000002034053983817115595715187597450835249588155221678628467342503827964585988327473152 binary64)) (*.f64 (*.f64 sgn (*.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) req) (/.f64 J2 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e) (cos.f64 (+.f64 omega omega))) (-.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))) (*.f64 #s(literal 11/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))) #s(literal -1 binary64))))) #s(literal 1/8 binary64)) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn) req) (*.f64 (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 req e)) #s(literal 1/8 binary64)) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (cos.f64 (+.f64 omega omega))) (-.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))) (*.f64 #s(literal 11/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))) #s(literal -1 binary64)))))
(if.f64 (<=.f64 a #s(literal 379596049073481/6901746346790563787434755862277025452451108972170386555162524223799296 binary64)) (*.f64 (*.f64 sgn (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 req req) #s(literal 1/2 binary64)) J2) (*.f64 (*.f64 a (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e) (cos.f64 (+.f64 omega omega))) (-.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))) (+.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 11/2 binary64)) #s(literal 11/2 binary64))) #s(literal -1 binary64))))) #s(literal 1/8 binary64)) (*.f64 (*.f64 sgn (*.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) req) (/.f64 J2 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e) (cos.f64 (+.f64 omega omega))) (-.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))) (*.f64 #s(literal 11/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))) #s(literal -1 binary64))))) #s(literal 1/8 binary64)))
(*.f64 (*.f64 sgn (*.f64 (*.f64 req (*.f64 (*.f64 #s(literal 1/2 binary64) req) (/.f64 J2 (*.f64 (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) a) a) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) e) (cos.f64 (+.f64 omega omega))) (-.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))) (*.f64 #s(literal 11/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))) #s(literal -1 binary64))))) #s(literal 1/8 binary64))
(if.f64 (<=.f64 (/.f64 req a) #s(literal 10000000000000000301276599001405425028904865397746951288321079799032741333776462328211123562691457635682438430171727828179669341366863773446884995019955719986278664561744213800260397056562295560224215930269510378288141352402853119916429412464176397346144256 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) (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 (*.f64 (*.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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) #s(literal 3 binary64)) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.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 #s(literal -40 binary64) (pow.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) i)) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 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 (/.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))))) (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn)) (*.f64 #s(literal 1/8 binary64) e)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (cos.f64 (+.f64 omega omega))))) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 a a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (+.f64 (+.f64 (*.f64 e (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e))) (*.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 f f)) #s(literal 1 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 (*.f64 (/.f64 #s(literal -3 binary64) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) (+.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 binary64)) #s(literal 1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.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))))))) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))))))))
(if.f64 (<=.f64 (/.f64 req a) #s(literal 10000000000000000301276599001405425028904865397746951288321079799032741333776462328211123562691457635682438430171727828179669341366863773446884995019955719986278664561744213800260397056562295560224215930269510378288141352402853119916429412464176397346144256 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 (+.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 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64))) #s(literal 3 binary64))) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.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 #s(literal -40 binary64) (pow.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) i)) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 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 (/.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))))) (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn)) (*.f64 #s(literal 1/8 binary64) e)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (cos.f64 (+.f64 omega omega))))) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 a a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (+.f64 (+.f64 (*.f64 e (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e))) (*.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 f f)) #s(literal 1 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 (*.f64 (/.f64 #s(literal -3 binary64) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) (+.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 binary64)) #s(literal 1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.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))))))) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))))))))
(-.f64 (*.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)))) (*.f64 #s(literal 1/8 binary64) 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 e e) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) e) (+.f64 (/.f64 e (-.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1 binary64))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 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 req a) (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn)))) (*.f64 (/.f64 (*.f64 (*.f64 (/.f64 req a) (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn))) (*.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))))) #s(literal 3 binary64)))) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.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)))))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 5/101201126653655309176247673359458653524778324882071059178450679013715169783997673445980191850718562247593538932158405955694904368692896738433506699970369254960758712138283180682233453871046608170619883839236372534281003741712346349309051677824579778170405028256179384776166707307615251266093163754323003131653853870546747392 binary64)) (-.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 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 (/.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))))) (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn)) (*.f64 #s(literal 1/8 binary64) e)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (cos.f64 (+.f64 omega omega))))) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn))) a) (+.f64 (+.f64 (*.f64 e (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e))) (*.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 f f)) #s(literal 1 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 (*.f64 (/.f64 #s(literal -3 binary64) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) (+.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 binary64)) #s(literal 1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.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))))))) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))))))) (if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 49999999999999997990838700394884966306179965866660791642559438972038274233224047478954738152480007945403339428690378003153531301288658660066937768081850142259483599048726809116347987831785023273225189328871239835991361038587494628380365594466675565382886953520237123630792704 binary64)) (-.f64 (*.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)))) (*.f64 #s(literal 1/8 binary64) 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 e e) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) e) (+.f64 (/.f64 e (-.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1 binary64))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 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 (/.f64 req a) (/.f64 req a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 req a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.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))))) #s(literal 3 binary64)))) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.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 #s(literal -40 binary64) (pow.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) i)) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 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 (/.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))))) (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn)) (*.f64 #s(literal 1/8 binary64) e)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (cos.f64 (+.f64 omega omega))))) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 a a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (+.f64 (+.f64 (*.f64 e (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e))) (*.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 f f)) #s(literal 1 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 (*.f64 (/.f64 #s(literal -3 binary64) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) (+.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 binary64)) #s(literal 1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.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))))))) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))))))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 5/101201126653655309176247673359458653524778324882071059178450679013715169783997673445980191850718562247593538932158405955694904368692896738433506699970369254960758712138283180682233453871046608170619883839236372534281003741712346349309051677824579778170405028256179384776166707307615251266093163754323003131653853870546747392 binary64)) (-.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 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 (/.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))))) (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn)) (*.f64 #s(literal 1/8 binary64) e)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (cos.f64 (+.f64 omega omega))))) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn))) a) (+.f64 (+.f64 (*.f64 e (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e))) (*.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 f f)) #s(literal 1 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 (*.f64 (/.f64 #s(literal -3 binary64) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) (+.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 binary64)) #s(literal 1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.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))))))) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))))))) (if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 49999999999999997990838700394884966306179965866660791642559438972038274233224047478954738152480007945403339428690378003153531301288658660066937768081850142259483599048726809116347987831785023273225189328871239835991361038587494628380365594466675565382886953520237123630792704 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.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)))) #s(literal 1/8 binary64)) 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 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 5 binary64)))) (-.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 11 binary64)) #s(literal 1 binary64)))) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 a a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (+.f64 (+.f64 (*.f64 e (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e))) (*.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 f f)) #s(literal 1 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 (*.f64 (/.f64 #s(literal -3 binary64) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) (+.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 binary64)) #s(literal 1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)))) (*.f64 (*.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))))) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))))))) (-.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) i)) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 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 (/.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))))) (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn)) (*.f64 #s(literal 1/8 binary64) e)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (cos.f64 (+.f64 omega omega))))) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 a a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (+.f64 (+.f64 (*.f64 e (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e))) (*.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 f f)) #s(literal 1 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 (*.f64 (/.f64 #s(literal -3 binary64) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) (+.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 binary64)) #s(literal 1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.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))))))) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))))))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 5/101201126653655309176247673359458653524778324882071059178450679013715169783997673445980191850718562247593538932158405955694904368692896738433506699970369254960758712138283180682233453871046608170619883839236372534281003741712346349309051677824579778170405028256179384776166707307615251266093163754323003131653853870546747392 binary64)) (-.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 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 (/.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))))) (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn)) (*.f64 #s(literal 1/8 binary64) e)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (cos.f64 (+.f64 omega omega))))) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn))) a) (+.f64 (+.f64 (*.f64 e (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e))) (*.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 f f)) #s(literal 1 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 (*.f64 (/.f64 #s(literal -3 binary64) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) (+.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 binary64)) #s(literal 1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.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))))))) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))))))) (if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 49999999999999997990838700394884966306179965866660791642559438972038274233224047478954738152480007945403339428690378003153531301288658660066937768081850142259483599048726809116347987831785023273225189328871239835991361038587494628380365594466675565382886953520237123630792704 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.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))))))) #s(literal 1/8 binary64)) 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 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 5 binary64)))) (-.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 i i)) #s(literal 1 binary64)) #s(literal 1/2 binary64)) #s(literal 11 binary64)) #s(literal 1 binary64)))) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 a a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (+.f64 (+.f64 (*.f64 e (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e))) (*.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 f f)) #s(literal 1 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 (*.f64 (/.f64 #s(literal -3 binary64) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) (+.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 binary64)) #s(literal 1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)))) (*.f64 (*.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)))))))) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))))))) (-.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) i)) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 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 (/.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))))) (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn)) (*.f64 #s(literal 1/8 binary64) e)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (cos.f64 (+.f64 omega omega))))) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 a a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (+.f64 (+.f64 (*.f64 e (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e))) (*.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 f f)) #s(literal 1 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 (*.f64 (/.f64 #s(literal -3 binary64) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) (+.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 binary64)) #s(literal 1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.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))))))) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))))))))
(-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (*.f64 (/.f64 req (*.f64 a a)) (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 #s(literal 1/8 binary64) 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 e e) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (+.f64 (+.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e) e) (+.f64 (/.f64 e (-.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) #s(literal -1 binary64))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 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 req (*.f64 (/.f64 req (*.f64 a a)) (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn)))) (*.f64 (/.f64 (*.f64 (*.f64 req (*.f64 (/.f64 req (*.f64 a a)) (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn))) (*.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))))) #s(literal 3 binary64)))) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.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)))))))
(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 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 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 (/.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))))) (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn)) (*.f64 #s(literal 1/8 binary64) e)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (cos.f64 (+.f64 omega omega))))) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (*.f64 (/.f64 req a) (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn))) (+.f64 (+.f64 (*.f64 e (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e))) (*.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 f f)) #s(literal 1 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 (*.f64 (/.f64 #s(literal -3 binary64) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) (+.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 binary64)) #s(literal 1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.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))))))) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))))))) (-.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (sin.f64 (+.f64 (*.f64 (PI.f64) #s(literal 1/2 binary64)) i)) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 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 (/.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))))) (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn)) (*.f64 #s(literal 1/8 binary64) e)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (cos.f64 (+.f64 omega omega))))) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 a a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (+.f64 (+.f64 (*.f64 e (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e))) (*.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 f f)) #s(literal 1 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 (*.f64 (/.f64 #s(literal -3 binary64) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) (+.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 binary64)) #s(literal 1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.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))))))) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64))))))))
(-.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 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 (/.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))))) (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn)) (*.f64 #s(literal 1/8 binary64) e)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (cos.f64 (+.f64 omega omega))))) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (*.f64 (/.f64 req a) (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) (*.f64 J2 sgn))) (+.f64 (+.f64 (*.f64 e (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e))) (*.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 f f)) #s(literal 1 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 (*.f64 (/.f64 #s(literal -3 binary64) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) (+.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 binary64)) #s(literal 1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.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))))))) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))))))
(-.f64 (*.f64 (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 5/2 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 (/.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))))) (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn)) (*.f64 #s(literal 1/8 binary64) e)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (cos.f64 (+.f64 omega omega))))) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) #s(literal 1/2 binary64)) (-.f64 (*.f64 (*.f64 req (*.f64 (/.f64 req (*.f64 a a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (+.f64 (+.f64 (*.f64 e (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (*.f64 (pow.f64 (cos.f64 f) #s(literal 3 binary64)) e))) (*.f64 (+.f64 (*.f64 (*.f64 (+.f64 (cos.f64 (+.f64 f f)) #s(literal 1 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 (*.f64 (/.f64 #s(literal -3 binary64) (*.f64 (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)))) (+.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 binary64)) #s(literal 1/2 binary64)) e) (cos.f64 f)) #s(literal 3 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) (/.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))))))) (cos.f64 (*.f64 (+.f64 f omega) #s(literal -2 binary64)))))))
(-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 (/.f64 req a) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (/.f64 req a) J2)) sgn)) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (cos.f64 i) (*.f64 e e)) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #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 #s(literal 1/2 binary64) (*.f64 (/.f64 req a) J2)) sgn)) (*.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 #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 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (/.f64 req a)) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (sin.f64 (+.f64 omega omega))) (*.f64 (-.f64 (-.f64 (/.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal -40 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1/2 binary64)) #s(literal 1 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 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1/2 binary64))) #s(literal -2 binary64)))) (*.f64 (*.f64 (cos.f64 i) e) e))) (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (/.f64 req a)) (*.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 req a) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) req) (*.f64 a (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) #s(literal 1/8 binary64))) (sin.f64 (+.f64 omega omega))) (*.f64 (*.f64 (cos.f64 i) (*.f64 e e)) (-.f64 (-.f64 (/.f64 (*.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal 1/2 binary64) (cos.f64 (+.f64 i i)))) #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 (*.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 #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))))
(if.f64 (<=.f64 a #s(literal 2506146922733055/14742040721959145907193572581985425355144223517251720423344555860334469384344331453461432520225229560708860839963921269139728846210643721220943102544658968920505450496 binary64)) (-.f64 (*.f64 (*.f64 (/.f64 (*.f64 req (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) req) (*.f64 a (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) a) #s(literal 1/8 binary64)) (*.f64 (sin.f64 (+.f64 omega omega)) (*.f64 (*.f64 (*.f64 (cos.f64 i) e) e) (-.f64 (-.f64 (/.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal -40 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1/2 binary64)) #s(literal 1 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 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1/2 binary64))) #s(literal -2 binary64))))))) (*.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)))) (*.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 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) req) (/.f64 req (*.f64 a a))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (sin.f64 (+.f64 omega omega))) (*.f64 (-.f64 (-.f64 (/.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal -40 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1/2 binary64)) #s(literal 1 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 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1/2 binary64))) #s(literal -2 binary64)))) (*.f64 (*.f64 (cos.f64 i) e) e))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (/.f64 req a)) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.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)))))
(if.f64 (<=.f64 a #s(literal 7371020360979573/14742040721959145907193572581985425355144223517251720423344555860334469384344331453461432520225229560708860839963921269139728846210643721220943102544658968920505450496 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) req) (*.f64 a (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (/.f64 req a))) (sin.f64 (+.f64 omega omega))) (*.f64 (-.f64 (-.f64 (/.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal -40 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1/2 binary64)) #s(literal 1 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 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1/2 binary64))) #s(literal -2 binary64)))) (*.f64 (*.f64 (cos.f64 i) e) e))) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) req) (*.f64 a (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (/.f64 req a)) (*.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 #s(literal 1/8 binary64) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) req) (/.f64 req (*.f64 a a))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (sin.f64 (+.f64 omega omega))) (*.f64 (-.f64 (-.f64 (/.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal -40 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1/2 binary64)) #s(literal 1 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 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1/2 binary64))) #s(literal -2 binary64)))) (*.f64 (*.f64 (cos.f64 i) e) e))) (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (/.f64 req a)) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.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 #s(literal 1/8 binary64) (*.f64 (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) req) (*.f64 a (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (/.f64 req a))) (sin.f64 (+.f64 omega omega))) (*.f64 (-.f64 (-.f64 (/.f64 (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal -40 binary64)) (-.f64 (*.f64 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1/2 binary64)) #s(literal 1 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 (*.f64 #s(literal 5 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1/2 binary64))) #s(literal -2 binary64)))) (*.f64 (*.f64 (cos.f64 i) e) e))) (*.f64 (*.f64 (*.f64 (/.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)) req) (*.f64 a (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (-.f64 #s(literal 1 binary64) (*.f64 e e))))) (/.f64 req a)) (*.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 (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 3860956584171391/11031304526203974597457456414861827591216226218170224705794538792432397774848431640257320003887617175667569787102671861633294128382337464639166223001902133228245297232354359845986844033174623155170927185464197384241152 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 req a) (*.f64 (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) J2)) sgn)) (+.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 (sin.f64 i) (sin.f64 i))) (*.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 (*.f64 (cos.f64 (+.f64 f f)) (cos.f64 (+.f64 omega omega))) (*.f64 (sin.f64 (+.f64 f f)) (sin.f64 (+.f64 omega omega)))))))))))
(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 +inf.0 binary64)) (+.f64 a (*.f64 a (*.f64 (*.f64 (/.f64 req a) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn)))) (+.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 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))))) (-.f64 (*.f64 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))) #s(literal 1 binary64))) (*.f64 (*.f64 #s(literal 3 binary64) (*.f64 (sin.f64 i) (sin.f64 i))) (*.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 (*.f64 (cos.f64 (+.f64 f f)) (cos.f64 (+.f64 omega omega))) (*.f64 (sin.f64 (+.f64 f f)) (sin.f64 (+.f64 omega omega)))))))))) (+.f64 a (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64))) (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 (sin.f64 i) #s(literal 3 binary64))) (sin.f64 i)) (*.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 #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 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))))) (/.f64 req a)) (*.f64 (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) J2) sgn)))))
(if.f64 (<=.f64 (pow.f64 (cos.f64 i) #s(literal 2 binary64)) #s(literal 8286623314361713/9007199254740992 binary64)) (+.f64 a (*.f64 a (*.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 #s(literal 3/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 i i))))) (-.f64 (*.f64 (cos.f64 (+.f64 f f)) (cos.f64 (+.f64 omega omega))) (*.f64 (sin.f64 (+.f64 f f)) (sin.f64 (+.f64 omega omega))))) (*.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 #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 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))))) (/.f64 req a)) (*.f64 (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) J2) sgn)))) (+.f64 a (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64))) (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 (sin.f64 i) #s(literal 3 binary64))) (sin.f64 i)) (*.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 #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 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))))) (/.f64 req a)) (*.f64 (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) 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 +inf.0 binary64)) (+.f64 a (*.f64 (*.f64 (*.f64 (*.f64 a (/.f64 req a)) (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 omega f) #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)) #s(literal 3/2 binary64))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 i i)))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 3/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)) (/.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/2 binary64) (*.f64 J2 sgn))) (/.f64 req a))) (+.f64 a (*.f64 a (*.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64))) (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 (sin.f64 i) #s(literal 3 binary64))) (sin.f64 i)) (*.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 #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 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))))) (/.f64 req a)) (*.f64 (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) 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 +inf.0 binary64)) (+.f64 a (*.f64 (*.f64 (*.f64 (*.f64 a (/.f64 req a)) (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 omega f) #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)) #s(literal 3/2 binary64))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 i i)))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 3/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)) (/.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/2 binary64) (*.f64 J2 sgn))) (/.f64 req a))) (+.f64 a (*.f64 a (*.f64 sgn (*.f64 (*.f64 J2 #s(literal 1/2 binary64)) (*.f64 req (/.f64 (*.f64 req (-.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 (sin.f64 i) #s(literal 3 binary64)) (sin.f64 i))) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64)))) (*.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 #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 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))))))) (*.f64 a a))))))))
(+.f64 a (*.f64 (*.f64 (*.f64 (*.f64 a (/.f64 req a)) (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 omega f) #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)) #s(literal 3/2 binary64))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 i i)))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 3/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)) (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))))))) sgn) (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2)))
(+.f64 a (*.f64 (*.f64 a (/.f64 req a)) (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) J2) sgn) (-.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 #s(literal 3/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 i i))))) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64)))) (*.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 #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 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))))))))
(+.f64 a (*.f64 a (*.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)) #s(literal 3/2 binary64)) (*.f64 (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 i i))) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64))))) (*.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 #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 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))))) (/.f64 req a)) (*.f64 (*.f64 (*.f64 (/.f64 req a) #s(literal 1/2 binary64)) J2) sgn))))
(+.f64 a (*.f64 a (*.f64 sgn (*.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 #s(literal 3/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 i i))))) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64)))) (*.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 #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 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))))) (/.f64 req a)) (*.f64 (/.f64 req a) (*.f64 #s(literal 1/2 binary64) J2))))))
(if.f64 (<=.f64 req #s(literal 41999999999999997878054753177429707985447675807835485507893819726356324973975335856414489103746672433461323836464259515618211021556365118488444928 binary64)) (+.f64 a (*.f64 a (*.f64 sgn (*.f64 (*.f64 J2 #s(literal 1/2 binary64)) (/.f64 (/.f64 (*.f64 (*.f64 req req) (-.f64 (*.f64 (*.f64 (cos.f64 (*.f64 (+.f64 omega f) #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)) #s(literal 3/2 binary64))) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 i i)))) (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)) #s(literal 3/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)) (/.f64 #s(literal -1 binary64) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))))))))) a) a))))) (+.f64 a (*.f64 a (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) J2) sgn) (*.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 #s(literal 3/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 i i))))) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64)))) (*.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 #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 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))))) (/.f64 req (*.f64 a a)))) req))))
(+.f64 a (*.f64 a (*.f64 sgn (*.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 #s(literal 3/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 i i))))) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64)))) (*.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 #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 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64)))))) (/.f64 req (*.f64 a a))) (*.f64 req (*.f64 #s(literal 1/2 binary64) J2))))))
(+.f64 a (*.f64 a (*.f64 sgn (*.f64 (*.f64 J2 #s(literal 1/2 binary64)) (*.f64 req (/.f64 (*.f64 req (-.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 #s(literal 3/2 binary64) (-.f64 #s(literal 1 binary64) (cos.f64 (+.f64 i i))))) (cos.f64 (*.f64 (+.f64 omega f) #s(literal -2 binary64)))) (*.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 #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 #s(literal 3/2 binary64) (-.f64 (cos.f64 (+.f64 i i)) #s(literal -1 binary64))))))) (*.f64 a a)))))))
(if.f64 (<=.f64 (+.f64 (+.f64 (+.f64 M omega) Omega) (+.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 (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 (*.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 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 (*.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 (*.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) (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) 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 (*.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 (*.f64 (*.f64 (/.f64 req a) (/.f64 req a)) (/.f64 (*.f64 #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 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 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)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))) #s(literal 2 binary64))) (-.f64 (/.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 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (/.f64 req a) (/.f64 req a)) (/.f64 (*.f64 #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)))))))) (sin.f64 (+.f64 omega omega))) (+.f64 Omega (+.f64 omega M))) (*.f64 (-.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 req a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (-.f64 (*.f64 (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M) #s(literal 6 binary64)) (-.f64 (*.f64 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (+.f64 (*.f64 (sin.f64 (+.f64 omega omega)) (cos.f64 (+.f64 f f))) (*.f64 (cos.f64 (+.f64 omega omega)) (sin.f64 (+.f64 f f))))) #s(literal 3 binary64)) (*.f64 e (sin.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) (+.f64 omega omega))))))) (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 req a)) (/.f64 (*.f64 #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))))) (sin.f64 (+.f64 omega omega)))) (*.f64 (*.f64 (cos.f64 i) e) e)) (+.f64 (/.f64 (*.f64 #s(literal 200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))) #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 80 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) #s(literal -11 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (/.f64 req a) (/.f64 req a)) (/.f64 (*.f64 #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 (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (+.f64 (*.f64 (sin.f64 (+.f64 omega omega)) (cos.f64 (+.f64 f f))) (*.f64 (cos.f64 (+.f64 omega omega)) (sin.f64 (+.f64 f f))))) #s(literal 3 binary64)) (*.f64 e (sin.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) (+.f64 omega omega)))))) (-.f64 #s(literal 3 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) (*.f64 (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M) #s(literal -6 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) (-.f64 (+.f64 (+.f64 Omega (+.f64 omega M)) (*.f64 (sin.f64 (+.f64 omega omega)) (-.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))))) (*.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e))) (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (sin.f64 (+.f64 (neg.f64 i) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 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)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 (pow.f64 (sin.f64 (+.f64 (neg.f64 i) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 6 binary64)) #s(literal 400 binary64)) (*.f64 e e)) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 (+.f64 (*.f64 #s(literal 200 binary64) (*.f64 e e)) #s(literal 80 binary64)) (pow.f64 (sin.f64 (+.f64 (neg.f64 i) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))))) (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (+.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal 22 binary64)) (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))))) (*.f64 #s(literal 1/16 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))))))))) (*.f64 (-.f64 (*.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) (sin.f64 (+.f64 (neg.f64 i) (*.f64 (PI.f64) #s(literal 1/2 binary64)))))) (-.f64 (*.f64 (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M) #s(literal 6 binary64)) (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 #s(literal 3 binary64) (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 omega f) #s(literal 2 binary64)))))))) (*.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 (sin.f64 (+.f64 (neg.f64 i) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) (*.f64 e e)) (+.f64 (/.f64 (*.f64 #s(literal 200 binary64) (pow.f64 (sin.f64 (+.f64 (neg.f64 i) (*.f64 (PI.f64) #s(literal 1/2 binary64)))) #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/2 binary64)) #s(literal -1/2 binary64)))) #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 #s(literal 80 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64))))) #s(literal -11 binary64)))))) (*.f64 (*.f64 (*.f64 #s(literal 1/4 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))))) (*.f64 (+.f64 (*.f64 (sin.f64 (-.f64 (+.f64 omega omega) (*.f64 #s(literal -3 binary64) f))) e) (*.f64 #s(literal 3 binary64) (+.f64 (*.f64 (sin.f64 (+.f64 f (+.f64 omega omega))) e) (sin.f64 (*.f64 (+.f64 omega f) #s(literal 2 binary64)))))) (-.f64 #s(literal 3 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))))) (*.f64 (*.f64 (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M) #s(literal -6 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 #s(literal 5 binary64) (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))))))))
(-.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))))) (-.f64 (/.f64 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 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)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))) #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 (-.f64 (*.f64 (*.f64 e e) #s(literal 200 binary64)) #s(literal -80 binary64)) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))))) (sin.f64 (+.f64 omega omega))) (+.f64 (+.f64 omega M) Omega)) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (*.f64 (*.f64 (-.f64 (*.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 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e)) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M)) (-.f64 #s(literal 3 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (*.f64 #s(literal -6 binary64) (-.f64 #s(literal 1 binary64) (*.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/4 binary64)) (-.f64 (*.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) #s(literal 1/2 binary64)) (cos.f64 i)) (-.f64 (-.f64 (*.f64 (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M) #s(literal 6 binary64)) (*.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 (cos.f64 i) e) e) (*.f64 (sin.f64 (+.f64 omega omega)) (*.f64 #s(literal 1/8 binary64) (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 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 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))) #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 80 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) #s(literal -11 binary64)))))))
(if.f64 (<=.f64 (+.f64 (+.f64 (+.f64 M omega) Omega) (+.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 (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 (*.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 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 (*.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 (*.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) (sin.f64 (+.f64 (*.f64 #s(literal 2 binary64) omega) (*.f64 #s(literal 2 binary64) 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 (*.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 (*.f64 (*.f64 (/.f64 req a) (/.f64 req a)) (/.f64 (*.f64 #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 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 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)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))) #s(literal 2 binary64))) (-.f64 (/.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 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 (/.f64 req a) (/.f64 req a)) (/.f64 (*.f64 #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)))))))) (sin.f64 (+.f64 omega omega))) (+.f64 Omega (+.f64 omega M))) (*.f64 (-.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 req a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (-.f64 (*.f64 (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M) #s(literal 6 binary64)) (-.f64 (*.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 e (sin.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) (+.f64 omega omega))))))) (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 req a)) (/.f64 (*.f64 #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))))) (sin.f64 (+.f64 omega omega)))) (*.f64 (*.f64 (cos.f64 i) e) e)) (+.f64 (/.f64 (*.f64 #s(literal 200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))) #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 80 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) #s(literal -11 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 (/.f64 req a) (/.f64 req a)) (/.f64 (*.f64 #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 (+.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 e (sin.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) (+.f64 omega omega)))))) (-.f64 #s(literal 3 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) (*.f64 (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M) #s(literal -6 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) (-.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 #s(literal 1/8 binary64) (/.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 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 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)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))) #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 (-.f64 (*.f64 (*.f64 e e) #s(literal 200 binary64)) #s(literal -80 binary64)) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))))) (*.f64 #s(literal 1/16 binary64) (/.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)))))))) (sin.f64 (+.f64 omega omega))) (+.f64 (+.f64 omega M) 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 (-.f64 (*.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 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e)) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M)) (-.f64 #s(literal 3 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (*.f64 #s(literal -6 binary64) (-.f64 #s(literal 1 binary64) (*.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/4 binary64)) (-.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/2 binary64)) (cos.f64 i)) (-.f64 (-.f64 (*.f64 (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M) #s(literal 6 binary64)) (*.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 (cos.f64 i) e) e) (*.f64 (sin.f64 (+.f64 omega omega)) (*.f64 #s(literal 1/8 binary64) (/.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 (*.f64 #s(literal 200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))) #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 80 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) #s(literal -11 binary64))))))))
(-.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) 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 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 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)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))) #s(literal 2 binary64))) (-.f64 (/.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 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))))) (sin.f64 (+.f64 omega omega))) (+.f64 Omega (+.f64 omega M))) (*.f64 (-.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 (/.f64 req a) (/.f64 req a)) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (-.f64 (*.f64 (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M) #s(literal 6 binary64)) (-.f64 (*.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 e (sin.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) (+.f64 omega omega))))))) (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64))))) (sin.f64 (+.f64 omega omega)))) (*.f64 (*.f64 (cos.f64 i) e) e)) (+.f64 (/.f64 (*.f64 #s(literal 200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))) #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 80 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) #s(literal -11 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (/.f64 req a) (/.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 req a)) J2) sgn) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))))) (-.f64 (*.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 e (sin.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) (+.f64 omega omega)))))) (-.f64 #s(literal 3 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) (*.f64 (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M) #s(literal -6 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))))))
(if.f64 (<=.f64 (pow.f64 (/.f64 req a) #s(literal 2 binary64)) #s(literal 200000000000000006025531980028108500578097307954939025766421595980654826675529246564222471253829152713648768603434556563593386827337275468937699900399114399725573291234884276005207941131245911204484318605390207565762827048057062398328588249283527946922885120 binary64)) (-.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 a a))) (/.f64 (*.f64 #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 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 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)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))) #s(literal 2 binary64))) (-.f64 (/.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 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))))) (*.f64 #s(literal 1/16 binary64) (*.f64 (*.f64 req (/.f64 req (*.f64 a a))) (/.f64 (*.f64 #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)))))))) (sin.f64 (+.f64 omega omega))) (+.f64 Omega (+.f64 omega M))) (*.f64 (-.f64 (*.f64 (/.f64 (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 a a))) (*.f64 #s(literal 1/2 binary64) (*.f64 J2 sgn))) (*.f64 #s(literal 1/2 binary64) (cos.f64 i))) (*.f64 (-.f64 (*.f64 e e) #s(literal 1 binary64)) (-.f64 (*.f64 e e) #s(literal 1 binary64)))) (-.f64 (*.f64 (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M) #s(literal 6 binary64)) (-.f64 (*.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 e (sin.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) (+.f64 omega omega))))))) (*.f64 (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 req (/.f64 req (*.f64 a a))) (/.f64 (*.f64 #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))))) (sin.f64 (+.f64 omega omega)))) (*.f64 (*.f64 (cos.f64 i) e) e)) (+.f64 (/.f64 (*.f64 #s(literal 200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))) #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 80 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) #s(literal -11 binary64))))) (*.f64 (*.f64 (*.f64 (*.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 req (/.f64 req (*.f64 a a))) (/.f64 (*.f64 #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 (+.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 e (sin.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) (+.f64 omega omega)))))) (-.f64 #s(literal 3 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) (*.f64 (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M) #s(literal -6 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))))) (-.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 #s(literal 1/8 binary64) (/.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 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 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)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))) #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 (-.f64 (*.f64 (*.f64 e e) #s(literal 200 binary64)) #s(literal -80 binary64)) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))))) (*.f64 #s(literal 1/16 binary64) (/.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)))))))) (sin.f64 (+.f64 omega omega))) (+.f64 (+.f64 omega M) 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 (-.f64 (*.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 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e)) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M)) (-.f64 #s(literal 3 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (*.f64 #s(literal -6 binary64) (-.f64 #s(literal 1 binary64) (*.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/4 binary64)) (-.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/2 binary64)) (cos.f64 i)) (-.f64 (-.f64 (*.f64 (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M) #s(literal 6 binary64)) (*.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 (cos.f64 i) e) e) (*.f64 (sin.f64 (+.f64 omega omega)) (*.f64 #s(literal 1/8 binary64) (/.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 (*.f64 #s(literal 200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))) #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 80 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) #s(literal -11 binary64))))))))
(-.f64 (+.f64 (*.f64 (-.f64 (*.f64 (*.f64 (*.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)) (sqrt.f64 (-.f64 #s(literal 1 binary64) (*.f64 e e)))) (*.f64 #s(literal 1/8 binary64) (/.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 (*.f64 #s(literal -40 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 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)))) (*.f64 (-.f64 (/.f64 (*.f64 (*.f64 (*.f64 (pow.f64 (cos.f64 i) #s(literal 6 binary64)) #s(literal 400 binary64)) e) e) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))) #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 (-.f64 (*.f64 (*.f64 e e) #s(literal 200 binary64)) #s(literal -80 binary64)) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) (-.f64 (-.f64 (*.f64 e e) #s(literal -2 binary64)) (*.f64 (-.f64 (*.f64 #s(literal 33 binary64) (*.f64 e e)) #s(literal -22 binary64)) (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)))))) (*.f64 #s(literal 1/16 binary64) (/.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)))))))) (sin.f64 (+.f64 omega omega))) (+.f64 (+.f64 omega M) 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 (-.f64 (*.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 (sin.f64 (-.f64 (-.f64 (*.f64 #s(literal -3 binary64) f) omega) omega)) e)) (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M)) (-.f64 #s(literal 3 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))))) (*.f64 #s(literal -6 binary64) (-.f64 #s(literal 1 binary64) (*.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/4 binary64)) (-.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/2 binary64)) (cos.f64 i)) (-.f64 (-.f64 (*.f64 (-.f64 (+.f64 (*.f64 (sin.f64 f) e) f) M) #s(literal 6 binary64)) (*.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 (cos.f64 i) e) e) (*.f64 (sin.f64 (+.f64 omega omega)) (*.f64 #s(literal 1/8 binary64) (/.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 (*.f64 #s(literal 200 binary64) (pow.f64 (cos.f64 i) #s(literal 4 binary64))) (pow.f64 (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64))) #s(literal 2 binary64))) (-.f64 (/.f64 (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 80 binary64)) (-.f64 #s(literal 1 binary64) (*.f64 (-.f64 (*.f64 (cos.f64 (+.f64 i i)) #s(literal 1/2 binary64)) #s(literal -1/2 binary64)) #s(literal 5 binary64)))) #s(literal -11 binary64)))))))
(pow.f64 #s(literal 10 binary64) (+.f64 (-.f64 (-.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 #s(literal -34047/100000 binary64) (pow.f64 (-.f64 (*.f64 alt #s(literal 10000/2928563 binary64)) #s(literal 5268000/2928563 binary64)) #s(literal 6 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 (*.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)))) (*.f64 #s(literal 23024/2928563 binary64) (-.f64 alt #s(literal 2634/5 binary64)))))) #s(literal -503/40 binary64)))
(pow.f64 #s(literal 10 binary64) (-.f64 #s(literal -503/40 binary64) (-.f64 (*.f64 #s(literal 23024/2928563 binary64) (-.f64 alt #s(literal 2634/5 binary64))) (-.f64 (*.f64 (*.f64 (-.f64 #s(literal 2634/5 binary64) alt) (-.f64 #s(literal 2634/5 binary64) alt)) (-.f64 (*.f64 #s(literal 1003600000000/25116765644210149547 binary64) (-.f64 alt #s(literal 2634/5 binary64))) #s(literal -60713000/8576481244969 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 #s(literal -34047/100000 binary64) (pow.f64 (*.f64 #s(literal 10000/2928563 binary64) (-.f64 alt #s(literal 2634/5 binary64))) #s(literal 6 binary64)))))))))
(pow.f64 #s(literal 10 binary64) (+.f64 (-.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 (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 (-.f64 #s(literal 2634/5 binary64) alt) (-.f64 #s(literal 2634/5 binary64) alt)) (-.f64 (*.f64 #s(literal 1003600000000/25116765644210149547 binary64) (-.f64 alt #s(literal 2634/5 binary64))) #s(literal -60713000/8576481244969 binary64))) (-.f64 (*.f64 #s(literal 23024/2928563 binary64) alt) #s(literal -987905461/117142520 binary64)))))
(*.f64 (sqrt.f64 (fabs.f64 p)) (sqrt.f64 (fabs.f64 mu)))
(sqrt.f64 (*.f64 mu p))
(*.f64 (/.f64 #s(literal -1 binary64) (-.f64 #s(literal 1 binary64) (*.f64 (cosh.f64 N) e))) (-.f64 N (-.f64 (*.f64 (sinh.f64 N) e) (*.f64 (*.f64 (cosh.f64 N) e) N))))
(/.f64 (-.f64 (+.f64 N (*.f64 (*.f64 (cosh.f64 N) e) N)) (*.f64 (sinh.f64 N) e)) (-.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 (sin.f64 M) e) (-.f64 (*.f64 (cos.f64 M) e) #s(literal 1 binary64))))
(*.f64 (atan.f64 (/.f64 (tanh.f64 (*.f64 #s(literal 1/2 binary64) H)) (sqrt.f64 (-.f64 (/.f64 #s(literal -1 binary64) (-.f64 e #s(literal -1 binary64))) (/.f64 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 (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 #s(literal 2 binary64) (atan2.f64 (*.f64 (sqrt.f64 (+.f64 #s(literal 1 binary64) e)) (sin.f64 (/.f64 Ecc #s(literal 2 binary64)))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) e) #s(literal -1/4 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 (-.f64 #s(literal 1 binary64) e) #s(literal -1/4 binary64)))) (cos.f64 (/.f64 Ecc #s(literal 2 binary64))))))
(*.f64 (atan2.f64 (*.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) Ecc)) (sqrt.f64 (-.f64 e #s(literal -1 binary64)))) (*.f64 (*.f64 (cos.f64 (*.f64 #s(literal -1/2 binary64) Ecc)) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) e)))) (sqrt.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) e))))) #s(literal 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)))