math.sqrt on complex, real part
Time bar (total: 5.0s)
| 1× | search |
| Probability | Valid | Unknown | Precondition | Infinite | Domain | Can't | Iter |
|---|---|---|---|---|---|---|---|
| 0% | 0% | 99.9% | 0.1% | 0% | 0% | 0% | 0 |
| 0% | 0% | 99.9% | 0.1% | 0% | 0% | 0% | 1 |
| 50% | 50% | 50% | 0.1% | 0% | 0% | 0% | 2 |
| 50% | 50% | 50% | 0.1% | 0% | 0% | 0% | 3 |
| 50% | 50% | 50% | 0.1% | 0% | 0% | 0% | 4 |
| 62.5% | 62.4% | 37.5% | 0.1% | 0% | 0% | 0% | 5 |
| 62.5% | 62.4% | 37.5% | 0.1% | 0% | 0% | 0% | 6 |
| 68.8% | 68.7% | 31.2% | 0.1% | 0% | 0% | 0% | 7 |
| 68.8% | 68.7% | 31.2% | 0.1% | 0% | 0% | 0% | 8 |
| 71.9% | 71.8% | 28.1% | 0.1% | 0% | 0% | 0% | 9 |
| 71.9% | 71.8% | 28.1% | 0.1% | 0% | 0% | 0% | 10 |
| 73.4% | 73.4% | 26.5% | 0.1% | 0% | 0% | 0% | 11 |
| 73.4% | 73.4% | 26.5% | 0.1% | 0% | 0% | 0% | 12 |
Compiled 17 to 11 computations (35.3% saved)
| 448.0ms | 6 183× | 0 | valid |
| 206.0ms | 827× | 2 | valid |
| 161.0ms | 477× | 3 | valid |
| 95.0ms | 769× | 1 | valid |
ival-hypot: 304.0ms (49.9% of total)ival-mult!: 101.0ms (16.6% of total)ival-sqrt: 94.0ms (15.4% of total)adjust: 60.0ms (9.9% of total)ival-add!: 51.0ms (8.4% of total)| Ground Truth | Overpredictions | Example | Underpredictions | Example | Subexpression |
|---|---|---|---|---|---|
| 121 | 0 | - | 0 | - | (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) |
| 34 | 0 | - | 0 | - | (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))) |
| 25 | 0 | - | 0 | - | (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re) |
| 0 | 0 | - | 0 | - | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) |
| 0 | 0 | - | 0 | - | (*.f64 re re) |
| 0 | 0 | - | 0 | - | im |
| 0 | 0 | - | 0 | - | (+.f64 (*.f64 re re) (*.f64 im im)) |
| 0 | 0 | - | 0 | - | #s(literal 2 binary64) |
| 0 | 0 | - | 0 | - | (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)) |
| 0 | 0 | - | 0 | - | re |
| 0 | 0 | - | 0 | - | #s(literal 1/2 binary64) |
| 0 | 0 | - | 0 | - | (*.f64 im im) |
| Operator | Subexpression | Explanation | Count | |
|---|---|---|---|---|
sqrt.f64 | (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) | oflow-rescue | 105 | 0 |
| ↳ | (+.f64 (*.f64 re re) (*.f64 im im)) | overflow | 105 | |
| ↳ | (*.f64 re re) | overflow | 59 | |
| ↳ | (*.f64 im im) | overflow | 64 | |
sqrt.f64 | (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))) | uflow-rescue | 34 | 0 |
| ↳ | (+.f64 (*.f64 re re) (*.f64 im im)) | underflow | 16 | |
| ↳ | (*.f64 im im) | underflow | 78 | |
| ↳ | (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))) | underflow | 9 | |
| ↳ | (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)) | underflow | 43 | |
| ↳ | (*.f64 re re) | underflow | 57 | |
| ↳ | (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re) | underflow | 43 | |
+.f64 | (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re) | cancellation | 25 | 0 |
sqrt.f64 | (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) | uflow-rescue | 16 | 0 |
| ↳ | (+.f64 (*.f64 re re) (*.f64 im im)) | underflow | 16 | |
| ↳ | (*.f64 re re) | underflow | 57 | |
| ↳ | (*.f64 im im) | underflow | 78 |
| Predicted + | Predicted - | |
|---|---|---|
| + | 157 | 0 |
| - | 0 | 99 |
| Predicted + | Predicted Maybe | Predicted - | |
|---|---|---|---|
| + | 157 | 0 | 0 |
| - | 0 | 0 | 99 |
| number | freq |
|---|---|
| 0 | 99 |
| 1 | 134 |
| 2 | 23 |
| Predicted + | Predicted Maybe | Predicted - | |
|---|---|---|---|
| + | 1 | 0 | 0 |
| - | 0 | 0 | 0 |
| 31.0ms | 380× | 0 | valid |
| 16.0ms | 62× | 2 | valid |
| 15.0ms | 42× | 3 | valid |
| 5.0ms | 28× | 1 | valid |
Compiled 169 to 40 computations (76.3% saved)
ival-hypot: 17.0ms (37.5% of total)ival-mult!: 14.0ms (30.9% of total)adjust: 5.0ms (11% of total)ival-sqrt: 5.0ms (11% of total)ival-add!: 4.0ms (8.8% of total)Useful iterations: 2 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 36 | 92 |
| 1 | 117 | 92 |
| 2 | 257 | 90 |
| 3 | 448 | 90 |
| 4 | 935 | 90 |
| 5 | 3057 | 90 |
| 6 | 6611 | 90 |
| 1× | node-limit |
| Status | Accuracy | Program |
|---|---|---|
| ▶ | 42.3% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) |
(abs im)
Compiled 30 to 24 computations (20% saved)
| Inputs |
|---|
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) |
#s(literal 1/2 binary64) |
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))) |
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)) |
#s(literal 2 binary64) |
(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re) |
(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) |
(+.f64 (*.f64 re re) (*.f64 im im)) |
(*.f64 re re) |
re |
(*.f64 im im) |
im |
| Outputs |
|---|
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im)) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im))))))) |
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow im 2))) |
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (+ (pow im 2) (pow re 2)))) |
#s(approx (* re re) #s(hole binary64 (pow re 2))) |
#s(approx re #s(hole binary64 re)) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re)) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow re 2))) |
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx (* im im) #s(hole binary64 (pow im 2))) |
#s(approx im #s(hole binary64 im)) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))) |
6 calls:
| Time | Variable | Point | Expression | |
|---|---|---|---|---|
| 4.0ms | re | @ | -inf | ((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im) |
| 4.0ms | im | @ | 0 | ((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im) |
| 3.0ms | re | @ | inf | ((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im) |
| 3.0ms | im | @ | -inf | ((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im) |
| 3.0ms | im | @ | inf | ((* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) 2 (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (+ (* re re) (* im im)) (* re re) re (* im im) im) |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 635 | 4546 |
| 0 | 648 | 4088 |
| 1 | 3839 | 3962 |
| 0 | 8215 | 3217 |
| 1× | iter-limit |
| 1× | node-limit |
| 1× | iter-limit |
| Inputs |
|---|
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) |
#s(literal 1/2 binary64) |
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))) |
(*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)) |
#s(literal 2 binary64) |
(+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re) |
(sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) |
(+.f64 (*.f64 re re) (*.f64 im im)) |
(*.f64 re re) |
re |
(*.f64 im im) |
im |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im)) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im))))))) |
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow im 2))) |
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (+ (pow im 2) (pow re 2)))) |
#s(approx (* re re) #s(hole binary64 (pow re 2))) |
#s(approx re #s(hole binary64 re)) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re)) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (pow re 2))) |
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx (* im im) #s(hole binary64 (pow im 2))) |
#s(approx im #s(hole binary64 im)) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (+ (* re re) (* im im)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))) |
| Outputs |
|---|
(*.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)))) |
#s(literal 1/2 binary64) |
(*.f64 (sqrt.f64 (+.f64 (hypot.f64 im re) re)) (sqrt.f64 #s(literal 2 binary64))) |
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (hypot.f64 im re) re))) |
(pow.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1 binary64)) |
(pow.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) |
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal -1/2 binary64))) |
(sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) |
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
(*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) |
(*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 im re) re)) |
(/.f64 (fma.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 (hypot.f64 im re) re) (*.f64 (-.f64 (hypot.f64 im re) re) (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (-.f64 (hypot.f64 im re) re) (-.f64 (hypot.f64 im re) re))) |
(/.f64 (fma.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)) (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 im re) re))) (*.f64 (-.f64 (hypot.f64 im re) re) (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))))) (*.f64 (-.f64 (hypot.f64 im re) re) (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 im re) re))))) |
(/.f64 (fma.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (-.f64 (hypot.f64 im re) re) (*.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 im re) re))) (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 im re) re))) (-.f64 (hypot.f64 im re) re))) |
(/.f64 (fma.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 im re) re))) (*.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 im re) re))) (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))))) (*.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 im re) re))) (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 im re) re))))) |
(fma.f64 (hypot.f64 im re) #s(literal 2 binary64) (*.f64 re #s(literal 2 binary64))) |
(fma.f64 #s(literal 2 binary64) (hypot.f64 im re) (*.f64 re #s(literal 2 binary64))) |
(+.f64 (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re #s(literal 2 binary64))) |
(+.f64 (*.f64 #s(literal 2 binary64) (hypot.f64 im re)) (*.f64 re #s(literal 2 binary64))) |
(+.f64 (+.f64 (hypot.f64 im re) re) (+.f64 (hypot.f64 im re) re)) |
#s(literal 2 binary64) |
(/.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 (hypot.f64 im re) re)) |
(/.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 im re) re)))) |
(+.f64 (hypot.f64 im re) re) |
(+.f64 re (hypot.f64 im re)) |
(pow.f64 (hypot.f64 im re) #s(literal 1 binary64)) |
(pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) |
(/.f64 (sqrt.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (*.f64 im im) (*.f64 re re)))) |
(/.f64 (sqrt.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (*.f64 re re) (*.f64 im im)))) |
(/.f64 (hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (sqrt.f64 (+.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64)))))) |
(/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64)))))) |
(/.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal -1/2 binary64))) |
(sqrt.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) |
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 re))) |
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 (fabs.f64 re))) |
(hypot.f64 (neg.f64 (neg.f64 im)) (fabs.f64 (fabs.f64 re))) |
(hypot.f64 (neg.f64 (neg.f64 im)) (exp.f64 (log.f64 re))) |
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 re)) |
(hypot.f64 (neg.f64 (neg.f64 im)) (fabs.f64 re)) |
(hypot.f64 (neg.f64 (neg.f64 im)) re) |
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (neg.f64 re))) |
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re))) |
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 re))) |
(hypot.f64 (neg.f64 (fabs.f64 im)) (exp.f64 (log.f64 re))) |
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 re)) |
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 re)) |
(hypot.f64 (neg.f64 (fabs.f64 im)) re) |
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 im))) |
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 (fabs.f64 im))) |
(hypot.f64 (neg.f64 (neg.f64 re)) (fabs.f64 (fabs.f64 im))) |
(hypot.f64 (neg.f64 (neg.f64 re)) (exp.f64 (log.f64 im))) |
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 im)) |
(hypot.f64 (neg.f64 (neg.f64 re)) (fabs.f64 im)) |
(hypot.f64 (neg.f64 (neg.f64 re)) im) |
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (neg.f64 im))) |
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 im))) |
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 im))) |
(hypot.f64 (neg.f64 (fabs.f64 re)) (exp.f64 (log.f64 im))) |
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 im)) |
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 im)) |
(hypot.f64 (neg.f64 (fabs.f64 re)) im) |
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 (neg.f64 re))) |
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re))) |
(hypot.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 re))) |
(hypot.f64 (fabs.f64 (fabs.f64 im)) (exp.f64 (log.f64 re))) |
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 re)) |
(hypot.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 re)) |
(hypot.f64 (fabs.f64 (fabs.f64 im)) re) |
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 (neg.f64 im))) |
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 im))) |
(hypot.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 im))) |
(hypot.f64 (fabs.f64 (fabs.f64 re)) (exp.f64 (log.f64 im))) |
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 im)) |
(hypot.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 im)) |
(hypot.f64 (fabs.f64 (fabs.f64 re)) im) |
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 (neg.f64 re))) |
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 (fabs.f64 re))) |
(hypot.f64 (exp.f64 (log.f64 im)) (fabs.f64 (fabs.f64 re))) |
(hypot.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 re))) |
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 re)) |
(hypot.f64 (exp.f64 (log.f64 im)) (fabs.f64 re)) |
(hypot.f64 (exp.f64 (log.f64 im)) re) |
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 (neg.f64 im))) |
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 (fabs.f64 im))) |
(hypot.f64 (exp.f64 (log.f64 re)) (fabs.f64 (fabs.f64 im))) |
(hypot.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 im))) |
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 im)) |
(hypot.f64 (exp.f64 (log.f64 re)) (fabs.f64 im)) |
(hypot.f64 (exp.f64 (log.f64 re)) im) |
(hypot.f64 (neg.f64 re) (neg.f64 (neg.f64 im))) |
(hypot.f64 (neg.f64 re) (neg.f64 (fabs.f64 im))) |
(hypot.f64 (neg.f64 re) (fabs.f64 (fabs.f64 im))) |
(hypot.f64 (neg.f64 re) (exp.f64 (log.f64 im))) |
(hypot.f64 (neg.f64 re) (neg.f64 im)) |
(hypot.f64 (neg.f64 re) (fabs.f64 im)) |
(hypot.f64 (neg.f64 re) im) |
(hypot.f64 (neg.f64 im) (neg.f64 (neg.f64 re))) |
(hypot.f64 (neg.f64 im) (neg.f64 (fabs.f64 re))) |
(hypot.f64 (neg.f64 im) (fabs.f64 (fabs.f64 re))) |
(hypot.f64 (neg.f64 im) (exp.f64 (log.f64 re))) |
(hypot.f64 (neg.f64 im) (neg.f64 re)) |
(hypot.f64 (neg.f64 im) (fabs.f64 re)) |
(hypot.f64 (neg.f64 im) re) |
(hypot.f64 (fabs.f64 re) (neg.f64 (neg.f64 im))) |
(hypot.f64 (fabs.f64 re) (neg.f64 (fabs.f64 im))) |
(hypot.f64 (fabs.f64 re) (fabs.f64 (fabs.f64 im))) |
(hypot.f64 (fabs.f64 re) (exp.f64 (log.f64 im))) |
(hypot.f64 (fabs.f64 re) (neg.f64 im)) |
(hypot.f64 (fabs.f64 re) (fabs.f64 im)) |
(hypot.f64 (fabs.f64 re) im) |
(hypot.f64 (fabs.f64 im) (neg.f64 (neg.f64 re))) |
(hypot.f64 (fabs.f64 im) (neg.f64 (fabs.f64 re))) |
(hypot.f64 (fabs.f64 im) (fabs.f64 (fabs.f64 re))) |
(hypot.f64 (fabs.f64 im) (exp.f64 (log.f64 re))) |
(hypot.f64 (fabs.f64 im) (neg.f64 re)) |
(hypot.f64 (fabs.f64 im) (fabs.f64 re)) |
(hypot.f64 (fabs.f64 im) re) |
(hypot.f64 im (neg.f64 (neg.f64 re))) |
(hypot.f64 im (neg.f64 (fabs.f64 re))) |
(hypot.f64 im (fabs.f64 (fabs.f64 re))) |
(hypot.f64 im (exp.f64 (log.f64 re))) |
(hypot.f64 im (neg.f64 re)) |
(hypot.f64 im (fabs.f64 re)) |
(hypot.f64 im re) |
(hypot.f64 re (neg.f64 (neg.f64 im))) |
(hypot.f64 re (neg.f64 (fabs.f64 im))) |
(hypot.f64 re (fabs.f64 (fabs.f64 im))) |
(hypot.f64 re (exp.f64 (log.f64 im))) |
(hypot.f64 re (neg.f64 im)) |
(hypot.f64 re (fabs.f64 im)) |
(hypot.f64 re im) |
(exp.f64 (*.f64 (log.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
(*.f64 (neg.f64 (hypot.f64 im re)) (neg.f64 (hypot.f64 im re))) |
(*.f64 (fabs.f64 (hypot.f64 im re)) (fabs.f64 (hypot.f64 im re))) |
(*.f64 (hypot.f64 im re) (hypot.f64 im re)) |
(pow.f64 (*.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) |
(pow.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) #s(literal 1 binary64)) |
(/.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (-.f64 (*.f64 im im) (*.f64 re re))) |
(/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (-.f64 (*.f64 re re) (*.f64 im im))) |
(/.f64 (+.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) (+.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (*.f64 im re) #s(literal 2 binary64))))) |
(/.f64 (+.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64))))) |
(fma.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 im)) (*.f64 re re)) |
(fma.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im)) (*.f64 re re)) |
(fma.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 re)) (*.f64 im im)) |
(fma.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re)) (*.f64 im im)) |
(fma.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 im)) (*.f64 re re)) |
(fma.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 re)) (*.f64 im im)) |
(fma.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 im)) (*.f64 re re)) |
(fma.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 re)) (*.f64 im im)) |
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 im im)) |
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re)) |
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 im im)) |
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 re re)) |
(fma.f64 im im (*.f64 re re)) |
(fma.f64 re re (*.f64 im im)) |
(sqrt.f64 (*.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)))) |
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im)) |
(+.f64 (*.f64 im im) (*.f64 re re)) |
(+.f64 (*.f64 re re) (*.f64 im im)) |
(*.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 re))) |
(*.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 re))) |
(*.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 re))) |
(*.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 re))) |
(*.f64 (neg.f64 re) (neg.f64 re)) |
(*.f64 (fabs.f64 re) (fabs.f64 re)) |
(*.f64 re re) |
(pow.f64 (exp.f64 (log.f64 re)) #s(literal 2 binary64)) |
(pow.f64 (pow.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) |
(pow.f64 (neg.f64 re) #s(literal 2 binary64)) |
(pow.f64 (fabs.f64 re) #s(literal 2 binary64)) |
(pow.f64 (*.f64 re re) #s(literal 1 binary64)) |
(pow.f64 re #s(literal 2 binary64)) |
(/.f64 #s(literal 1 binary64) (pow.f64 re #s(literal -2 binary64))) |
(fabs.f64 (*.f64 re re)) |
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))) |
(+.f64 (cosh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 re) #s(literal 2 binary64)))) |
re |
(*.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 im))) |
(*.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im))) |
(*.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 im))) |
(*.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 im))) |
(*.f64 (neg.f64 im) (neg.f64 im)) |
(*.f64 (fabs.f64 im) (fabs.f64 im)) |
(*.f64 im im) |
(pow.f64 (exp.f64 (log.f64 im)) #s(literal 2 binary64)) |
(pow.f64 (pow.f64 im (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) |
(pow.f64 (neg.f64 im) #s(literal 2 binary64)) |
(pow.f64 (fabs.f64 im) #s(literal 2 binary64)) |
(pow.f64 (*.f64 im im) #s(literal 1 binary64)) |
(pow.f64 im #s(literal 2 binary64)) |
(/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal -2 binary64))) |
(fabs.f64 (*.f64 im im)) |
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) |
(+.f64 (cosh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))) |
im |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal -3/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re (*.f64 (sqrt.f64 (*.f64 im #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (sqrt.f64 (*.f64 im #s(literal 2 binary64)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 im #s(literal 2 binary64))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re (sqrt.f64 (*.f64 im #s(literal 2 binary64))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -3/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re (sqrt.f64 (*.f64 im #s(literal 2 binary64))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im #s(literal 2 binary64))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 im re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/4 binary64) (pow.f64 im #s(literal -1 binary64))) re #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im)) |
#s(approx (sqrt (+ (* re re) (* im im))) im) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im)) |
#s(approx (+ (* re re) (* im im)) (*.f64 im im)) |
#s(approx (+ (* re re) (* im im)) (pow.f64 (hypot.f64 im re) #s(literal 2 binary64))) |
#s(approx (* re re) (*.f64 re re)) |
#s(approx re re) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) re)) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) re)) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/64 binary64) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)) #s(literal 1/2 binary64))))) re)) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))) re)) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) re)) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/16 binary64) (fma.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/32 binary64) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))))) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) #s(literal 4 binary64)) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 re #s(literal 2 binary64))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64)) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 2 binary64)) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 2 binary64)) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) re) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)) re)) |
#s(approx (+ (* re re) (* im im)) (*.f64 re re)) |
#s(approx (+ (* re re) (* im im)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) (*.f64 re re))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64)))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64)) (neg.f64 (/.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -3/2 binary64)) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/64 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64)) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pow.f64 re #s(literal -3/2 binary64))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (pow.f64 re #s(literal -3/2 binary64)) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/64 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)) (neg.f64 (/.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -3/2 binary64)) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pow.f64 re #s(literal -3/2 binary64))) (*.f64 (*.f64 (pow.f64 re #s(literal -3/2 binary64)) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/32 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im))) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im)))) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re))) |
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -3/2 binary64)) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/4 binary64) (*.f64 (pow.f64 re #s(literal -3/2 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (pow.f64 re #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -1/2 binary64))) (fma.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (pow.f64 re #s(literal -3/2 binary64)) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -3/2 binary64)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -3/2 binary64)) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (pow.f64 re #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -1/2 binary64))) (fma.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (pow.f64 re #s(literal -3/2 binary64)) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/4 binary64) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im) (*.f64 #s(literal 4 binary64) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/8 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im) (*.f64 #s(literal 4 binary64) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) (*.f64 re #s(literal 2 binary64)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 re #s(literal 2 binary64)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 re #s(literal 2 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re)) |
#s(approx (* im im) (*.f64 im im)) |
#s(approx im im) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) im)) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64))))) im)) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))))) im)) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) im)) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) im)) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) (/.f64 (*.f64 re re) (*.f64 im im))) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)) im)) |
#s(approx (+ (* re re) (* im im)) (*.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) (*.f64 im im))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal -2 binary64)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (neg.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (neg.f64 (/.f64 (*.f64 re re) im))) im) #s(literal -1 binary64) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 re #s(literal 2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im) #s(literal -1 binary64) #s(literal 2 binary64)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im) re) im) #s(literal -1 binary64) #s(literal 1 binary64)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 im im)) #s(literal -1/8 binary64) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im) #s(literal -1 binary64) re) im) #s(literal -1 binary64) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)))) |
Compiled 7 399 to 1 871 computations (74.7% saved)
12 alts after pruning (12 fresh and 0 done)
| Pruned | Kept | Total | |
|---|---|---|---|
| New | 310 | 12 | 322 |
| Fresh | 0 | 0 | 0 |
| Picked | 1 | 0 | 1 |
| Done | 0 | 0 | 0 |
| Total | 311 | 12 | 323 |
| Status | Accuracy | Program |
|---|---|---|
| ▶ | 79.2% | (*.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
| 78.7% | (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (hypot.f64 im re) re)) (sqrt.f64 #s(literal 2 binary64)))) | |
| 26.0% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 (hypot.f64 im re) re))))) | |
| 42.3% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re)))) | |
| 7.1% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))) | |
| ▶ | 52.5% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))) |
| 49.6% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))) | |
| ▶ | 50.0% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64)))))) |
| 26.0% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))) | |
| ▶ | 26.9% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))) |
| ▶ | 14.1% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))))) |
| 73.8% | (*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
Compiled 422 to 320 computations (24.2% saved)
| Inputs |
|---|
(*.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) |
(*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) |
(+.f64 (hypot.f64 im re) re) |
(hypot.f64 im re) |
im |
re |
#s(literal 2 binary64) |
#s(literal 1/2 binary64) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))) |
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)) |
(*.f64 #s(literal 4 binary64) re) |
#s(literal 4 binary64) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))) |
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) |
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) |
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) |
#s(approx (sqrt (+ (* re re) (* im im))) im) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))))) |
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))) |
(neg.f64 (/.f64 (*.f64 im im) re)) |
(/.f64 (*.f64 im im) re) |
(*.f64 im im) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64)))))) |
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64)))) |
(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64))) |
(+.f64 (/.f64 re im) #s(literal 2 binary64)) |
(/.f64 re im) |
(*.f64 im #s(literal 2 binary64)) |
| Outputs |
|---|
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* 2 im))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im)))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 im)) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im re))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im)) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im))))))) |
#s(approx re #s(hole binary64 re)) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im)))))))) |
#s(approx (* 4 re) #s(hole binary64 (* 4 re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im)) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im))))))) |
#s(approx (neg (/ (* im im) re)) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (/ (* im im) re) #s(hole binary64 (/ (pow im 2) re))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* 2 im))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 2)) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (+ 2 (/ re im)))) |
#s(approx (/ re im) #s(hole binary64 (/ re im))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* 4 re))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2)))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* 2 re))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re)) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re)) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (/ (pow re 2) im))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re)))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re))))))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ re im))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (* re (+ (/ 1 im) (* 2 (/ 1 re)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re)))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re)))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re)))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx im #s(hole binary64 im)) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx (* im im) #s(hole binary64 (pow im 2))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ (+ re (* 2 im)) im))) |
#s(approx (* im 2) #s(hole binary64 (* 2 im))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (/ re im))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -2 im))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im))))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im))))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 im))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2))))) |
6 calls:
| Time | Variable | Point | Expression | |
|---|---|---|---|---|
| 27.0ms | im | @ | inf | ((* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 1/2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* 4 re) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* (+ (/ re im) 2) re) (* im 2)) (+ (/ re im) 2) (/ re im) (* im 2)) |
| 4.0ms | im | @ | 0 | ((* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 1/2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* 4 re) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* (+ (/ re im) 2) re) (* im 2)) (+ (/ re im) 2) (/ re im) (* im 2)) |
| 3.0ms | re | @ | -inf | ((* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 1/2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* 4 re) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* (+ (/ re im) 2) re) (* im 2)) (+ (/ re im) 2) (/ re im) (* im 2)) |
| 3.0ms | im | @ | -inf | ((* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 1/2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* 4 re) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* (+ (/ re im) 2) re) (* im 2)) (+ (/ re im) 2) (/ re im) (* im 2)) |
| 3.0ms | re | @ | inf | ((* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (* (+ (sqrt (+ (* im im) (* re re))) re) 2) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) im re 2 1/2 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (* 4 re) 4 (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (/ (* im im) re)) (/ (* im im) re) (* im im) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* (+ (/ re im) 2) re) (* im 2)) (+ (/ re im) 2) (/ re im) (* im 2)) |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 820 | 8944 |
| 0 | 849 | 7390 |
| 1 | 4302 | 7138 |
| 0 | 8956 | 6821 |
| 1× | iter-limit |
| 1× | node-limit |
| 1× | iter-limit |
| Inputs |
|---|
(*.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) |
(*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) |
(+.f64 (hypot.f64 im re) re) |
(hypot.f64 im re) |
im |
re |
#s(literal 2 binary64) |
#s(literal 1/2 binary64) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))) |
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)) |
(*.f64 #s(literal 4 binary64) re) |
#s(literal 4 binary64) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))) |
(sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) |
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) |
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) |
#s(approx (sqrt (+ (* re re) (* im im))) im) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))))) |
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))) |
(neg.f64 (/.f64 (*.f64 im im) re)) |
(/.f64 (*.f64 im im) re) |
(*.f64 im im) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64)))))) |
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64)))) |
(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64))) |
(+.f64 (/.f64 re im) #s(literal 2 binary64)) |
(/.f64 re im) |
(*.f64 im #s(literal 2 binary64)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* 2 im))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im)))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 im)) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im re))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im)) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im))))))) |
#s(approx re #s(hole binary64 re)) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im)))))))) |
#s(approx (* 4 re) #s(hole binary64 (* 4 re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im)) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im))))))) |
#s(approx (neg (/ (* im im) re)) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (/ (* im im) re) #s(hole binary64 (/ (pow im 2) re))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* 2 im))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 2)) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (+ 2 (/ re im)))) |
#s(approx (/ re im) #s(hole binary64 (/ re im))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* 4 re))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2)))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* 2 re))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re)) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re)) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (/ (pow re 2) im))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re)))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re))))))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ re im))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (* re (+ (/ 1 im) (* 2 (/ 1 re)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re)))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re)))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re)))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx im #s(hole binary64 im)) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx (* im im) #s(hole binary64 (pow im 2))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ (+ re (* 2 im)) im))) |
#s(approx (* im 2) #s(hole binary64 (* 2 im))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (/ re im))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -2 im))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im))))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im))))))) |
#s(approx (* (+ (sqrt (+ (* im im) (* re re))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 im))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2))))) |
| Outputs |
|---|
(*.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64)))) |
(*.f64 (sqrt.f64 (+.f64 (hypot.f64 re im) re)) (sqrt.f64 #s(literal 2 binary64))) |
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (hypot.f64 re im) re))) |
(pow.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1 binary64)) |
(pow.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) |
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64)) #s(literal -1/2 binary64))) |
(sqrt.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) |
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
(*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64)) |
(*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 re im) re)) |
(/.f64 (fma.f64 (-.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 (hypot.f64 re im) re) (*.f64 (-.f64 (hypot.f64 re im) re) (-.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (-.f64 (hypot.f64 re im) re) (-.f64 (hypot.f64 re im) re))) |
(/.f64 (fma.f64 (-.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) (*.f64 re re)) (+.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 re im) re))) (*.f64 (-.f64 (hypot.f64 re im) re) (+.f64 (pow.f64 (hypot.f64 re im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))))) (*.f64 (-.f64 (hypot.f64 re im) re) (+.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 re im) re))))) |
(/.f64 (fma.f64 (+.f64 (pow.f64 (hypot.f64 re im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (-.f64 (hypot.f64 re im) re) (*.f64 (+.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 re im) re))) (-.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (+.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 re im) re))) (-.f64 (hypot.f64 re im) re))) |
(/.f64 (fma.f64 (+.f64 (pow.f64 (hypot.f64 re im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (+.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 re im) re))) (*.f64 (+.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 re im) re))) (+.f64 (pow.f64 (hypot.f64 re im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))))) (*.f64 (+.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 re im) re))) (+.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 re im) re))))) |
(fma.f64 (hypot.f64 re im) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) re)) |
(fma.f64 #s(literal 2 binary64) (hypot.f64 re im) (*.f64 #s(literal 2 binary64) re)) |
(+.f64 (*.f64 (hypot.f64 re im) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) re)) |
(+.f64 (*.f64 #s(literal 2 binary64) (hypot.f64 re im)) (*.f64 #s(literal 2 binary64) re)) |
(+.f64 (+.f64 (hypot.f64 re im) re) (+.f64 (hypot.f64 re im) re)) |
(/.f64 (-.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 (hypot.f64 re im) re)) |
(/.f64 (+.f64 (pow.f64 (hypot.f64 re im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (+.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 re im) re)))) |
(+.f64 (hypot.f64 re im) re) |
(+.f64 re (hypot.f64 re im)) |
(pow.f64 (hypot.f64 re im) #s(literal 1 binary64)) |
(pow.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) #s(literal 1/2 binary64)) |
(/.f64 (sqrt.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (*.f64 re re) (*.f64 im im)))) |
(/.f64 (sqrt.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64)))) (sqrt.f64 (-.f64 (*.f64 im im) (*.f64 re re)))) |
(/.f64 (hypot.f64 (pow.f64 re #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64)))))) |
(/.f64 (hypot.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (sqrt.f64 (+.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 (*.f64 re im) #s(literal 2 binary64)))))) |
(/.f64 #s(literal 1 binary64) (pow.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) #s(literal -1/2 binary64))) |
(sqrt.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64))) |
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 (neg.f64 im))) |
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 (fabs.f64 im))) |
(hypot.f64 (neg.f64 (neg.f64 re)) (fabs.f64 (fabs.f64 im))) |
(hypot.f64 (neg.f64 (neg.f64 re)) (exp.f64 (log.f64 im))) |
(hypot.f64 (neg.f64 (neg.f64 re)) (neg.f64 im)) |
(hypot.f64 (neg.f64 (neg.f64 re)) (fabs.f64 im)) |
(hypot.f64 (neg.f64 (neg.f64 re)) im) |
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (neg.f64 im))) |
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 im))) |
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 im))) |
(hypot.f64 (neg.f64 (fabs.f64 re)) (exp.f64 (log.f64 im))) |
(hypot.f64 (neg.f64 (fabs.f64 re)) (neg.f64 im)) |
(hypot.f64 (neg.f64 (fabs.f64 re)) (fabs.f64 im)) |
(hypot.f64 (neg.f64 (fabs.f64 re)) im) |
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 re))) |
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 (fabs.f64 re))) |
(hypot.f64 (neg.f64 (neg.f64 im)) (fabs.f64 (fabs.f64 re))) |
(hypot.f64 (neg.f64 (neg.f64 im)) (exp.f64 (log.f64 re))) |
(hypot.f64 (neg.f64 (neg.f64 im)) (neg.f64 re)) |
(hypot.f64 (neg.f64 (neg.f64 im)) (fabs.f64 re)) |
(hypot.f64 (neg.f64 (neg.f64 im)) re) |
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (neg.f64 re))) |
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re))) |
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 re))) |
(hypot.f64 (neg.f64 (fabs.f64 im)) (exp.f64 (log.f64 re))) |
(hypot.f64 (neg.f64 (fabs.f64 im)) (neg.f64 re)) |
(hypot.f64 (neg.f64 (fabs.f64 im)) (fabs.f64 re)) |
(hypot.f64 (neg.f64 (fabs.f64 im)) re) |
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 (neg.f64 im))) |
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 (fabs.f64 im))) |
(hypot.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 (fabs.f64 im))) |
(hypot.f64 (fabs.f64 (fabs.f64 re)) (exp.f64 (log.f64 im))) |
(hypot.f64 (fabs.f64 (fabs.f64 re)) (neg.f64 im)) |
(hypot.f64 (fabs.f64 (fabs.f64 re)) (fabs.f64 im)) |
(hypot.f64 (fabs.f64 (fabs.f64 re)) im) |
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 (neg.f64 re))) |
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 re))) |
(hypot.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 re))) |
(hypot.f64 (fabs.f64 (fabs.f64 im)) (exp.f64 (log.f64 re))) |
(hypot.f64 (fabs.f64 (fabs.f64 im)) (neg.f64 re)) |
(hypot.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 re)) |
(hypot.f64 (fabs.f64 (fabs.f64 im)) re) |
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 (neg.f64 re))) |
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 (fabs.f64 re))) |
(hypot.f64 (exp.f64 (log.f64 im)) (fabs.f64 (fabs.f64 re))) |
(hypot.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 re))) |
(hypot.f64 (exp.f64 (log.f64 im)) (neg.f64 re)) |
(hypot.f64 (exp.f64 (log.f64 im)) (fabs.f64 re)) |
(hypot.f64 (exp.f64 (log.f64 im)) re) |
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 (neg.f64 im))) |
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 (fabs.f64 im))) |
(hypot.f64 (exp.f64 (log.f64 re)) (fabs.f64 (fabs.f64 im))) |
(hypot.f64 (exp.f64 (log.f64 re)) (exp.f64 (log.f64 im))) |
(hypot.f64 (exp.f64 (log.f64 re)) (neg.f64 im)) |
(hypot.f64 (exp.f64 (log.f64 re)) (fabs.f64 im)) |
(hypot.f64 (exp.f64 (log.f64 re)) im) |
(hypot.f64 (neg.f64 im) (neg.f64 (neg.f64 re))) |
(hypot.f64 (neg.f64 im) (neg.f64 (fabs.f64 re))) |
(hypot.f64 (neg.f64 im) (fabs.f64 (fabs.f64 re))) |
(hypot.f64 (neg.f64 im) (exp.f64 (log.f64 re))) |
(hypot.f64 (neg.f64 im) (neg.f64 re)) |
(hypot.f64 (neg.f64 im) (fabs.f64 re)) |
(hypot.f64 (neg.f64 im) re) |
(hypot.f64 (neg.f64 re) (neg.f64 (neg.f64 im))) |
(hypot.f64 (neg.f64 re) (neg.f64 (fabs.f64 im))) |
(hypot.f64 (neg.f64 re) (fabs.f64 (fabs.f64 im))) |
(hypot.f64 (neg.f64 re) (exp.f64 (log.f64 im))) |
(hypot.f64 (neg.f64 re) (neg.f64 im)) |
(hypot.f64 (neg.f64 re) (fabs.f64 im)) |
(hypot.f64 (neg.f64 re) im) |
(hypot.f64 (fabs.f64 im) (neg.f64 (neg.f64 re))) |
(hypot.f64 (fabs.f64 im) (neg.f64 (fabs.f64 re))) |
(hypot.f64 (fabs.f64 im) (fabs.f64 (fabs.f64 re))) |
(hypot.f64 (fabs.f64 im) (exp.f64 (log.f64 re))) |
(hypot.f64 (fabs.f64 im) (neg.f64 re)) |
(hypot.f64 (fabs.f64 im) (fabs.f64 re)) |
(hypot.f64 (fabs.f64 im) re) |
(hypot.f64 (fabs.f64 re) (neg.f64 (neg.f64 im))) |
(hypot.f64 (fabs.f64 re) (neg.f64 (fabs.f64 im))) |
(hypot.f64 (fabs.f64 re) (fabs.f64 (fabs.f64 im))) |
(hypot.f64 (fabs.f64 re) (exp.f64 (log.f64 im))) |
(hypot.f64 (fabs.f64 re) (neg.f64 im)) |
(hypot.f64 (fabs.f64 re) (fabs.f64 im)) |
(hypot.f64 (fabs.f64 re) im) |
(hypot.f64 re (neg.f64 (neg.f64 im))) |
(hypot.f64 re (neg.f64 (fabs.f64 im))) |
(hypot.f64 re (fabs.f64 (fabs.f64 im))) |
(hypot.f64 re (exp.f64 (log.f64 im))) |
(hypot.f64 re (neg.f64 im)) |
(hypot.f64 re (fabs.f64 im)) |
(hypot.f64 re im) |
(hypot.f64 im (neg.f64 (neg.f64 re))) |
(hypot.f64 im (neg.f64 (fabs.f64 re))) |
(hypot.f64 im (fabs.f64 (fabs.f64 re))) |
(hypot.f64 im (exp.f64 (log.f64 re))) |
(hypot.f64 im (neg.f64 re)) |
(hypot.f64 im (fabs.f64 re)) |
(hypot.f64 im re) |
(exp.f64 (*.f64 (log.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
im |
re |
#s(literal 2 binary64) |
#s(literal 1/2 binary64) |
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))) |
(pow.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))) #s(literal 1 binary64)) |
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)) #s(literal 1/2 binary64)) |
(/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)) #s(literal -1/2 binary64))) |
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))) |
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re))) #s(literal 1/2 binary64))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)) |
(*.f64 #s(literal 4 binary64) re) |
(*.f64 re #s(literal 4 binary64)) |
#s(literal 4 binary64) |
(*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64)))) |
(*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) (sqrt.f64 #s(literal 2 binary64))) |
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) |
(pow.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))) #s(literal 1 binary64)) |
(pow.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) |
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64)) #s(literal -1/2 binary64))) |
(sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))) |
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
(*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) #s(literal 2 binary64)) |
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) |
(/.f64 (fma.f64 (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) |
(/.f64 (fma.f64 (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (*.f64 re re)) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (-.f64 (*.f64 re re) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))))) (*.f64 (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (-.f64 (*.f64 re re) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))) |
(/.f64 (fma.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (*.f64 (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (-.f64 (*.f64 re re) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (*.f64 re re)))) (*.f64 (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (-.f64 (*.f64 re re) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) |
(/.f64 (fma.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (-.f64 (*.f64 re re) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) (*.f64 (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (-.f64 (*.f64 re re) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))))) (*.f64 (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (-.f64 (*.f64 re re) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (-.f64 (*.f64 re re) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re))))) |
(fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) re)) |
(fma.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) im) (*.f64 #s(literal 2 binary64) re)) |
(+.f64 (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) re)) |
(+.f64 (*.f64 #s(literal 2 binary64) #s(approx (sqrt (+ (* re re) (* im im))) im)) (*.f64 #s(literal 2 binary64) re)) |
(+.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) |
(/.f64 (-.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)) |
(/.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) #s(approx (sqrt (+ (* re re) (* im im))) im) (-.f64 (*.f64 re re) (*.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))) |
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re) |
(+.f64 re #s(approx (sqrt (+ (* re re) (* im im))) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) im) |
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))))) |
(pow.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1 binary64)) |
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal 1/2 binary64)) |
(/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64))) |
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) |
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) |
(*.f64 (/.f64 (*.f64 im im) re) #s(literal -1 binary64)) |
(*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re)) |
(/.f64 (*.f64 #s(literal -1 binary64) (*.f64 im im)) re) |
(/.f64 (neg.f64 (*.f64 im im)) re) |
(/.f64 (*.f64 im im) (neg.f64 re)) |
(neg.f64 (/.f64 (*.f64 im im) re)) |
(*.f64 im (/.f64 im re)) |
(/.f64 (neg.f64 (*.f64 im im)) (neg.f64 re)) |
(/.f64 (*.f64 im im) re) |
(*.f64 (neg.f64 (neg.f64 im)) (neg.f64 (neg.f64 im))) |
(*.f64 (neg.f64 (fabs.f64 im)) (neg.f64 (fabs.f64 im))) |
(*.f64 (fabs.f64 (fabs.f64 im)) (fabs.f64 (fabs.f64 im))) |
(*.f64 (exp.f64 (log.f64 im)) (exp.f64 (log.f64 im))) |
(*.f64 (neg.f64 im) (neg.f64 im)) |
(*.f64 (fabs.f64 im) (fabs.f64 im)) |
(*.f64 im im) |
(pow.f64 (exp.f64 (log.f64 im)) #s(literal 2 binary64)) |
(pow.f64 (pow.f64 im (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) |
(pow.f64 (neg.f64 im) #s(literal 2 binary64)) |
(pow.f64 (fabs.f64 im) #s(literal 2 binary64)) |
(pow.f64 (*.f64 im im) #s(literal 1 binary64)) |
(pow.f64 im #s(literal 2 binary64)) |
(/.f64 #s(literal 1 binary64) (pow.f64 im #s(literal -2 binary64))) |
(fabs.f64 (*.f64 im im)) |
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) |
(+.f64 (cosh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))) |
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))))) |
(pow.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))) #s(literal 1 binary64)) |
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) #s(literal 1/2 binary64)) |
(/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) #s(literal -1/2 binary64))) |
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))) |
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) |
(/.f64 (-.f64 (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 2 binary64)) (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 2 binary64))) (-.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 #s(literal 2 binary64) im))) |
(/.f64 (-.f64 (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 2 binary64)) (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 2 binary64))) (-.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))) |
(/.f64 (+.f64 (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 3 binary64)) (*.f64 #s(literal 8 binary64) (pow.f64 im #s(literal 3 binary64)))) (+.f64 (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 2 binary64)) (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 #s(literal 2 binary64) im))))) |
(/.f64 (fma.f64 #s(literal 8 binary64) (pow.f64 im #s(literal 3 binary64)) (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 3 binary64))) (+.f64 (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 2 binary64)) (-.f64 (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))))) |
(fma.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im))) (neg.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im))) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) |
(fma.f64 (fabs.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im))) (fabs.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im))) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) |
(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)) |
(fma.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) |
(fma.f64 #s(literal 2 binary64) im (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) |
(fma.f64 re (+.f64 (/.f64 re im) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) im)) |
(fma.f64 im #s(literal 2 binary64) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) |
(-.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (neg.f64 im) #s(literal 2 binary64))) |
(-.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 (neg.f64 re) (+.f64 (/.f64 re im) #s(literal 2 binary64)))) |
(+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 #s(literal 2 binary64) im)) |
(+.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) |
(/.f64 (fma.f64 (neg.f64 re) #s(literal 2 binary64) (*.f64 (neg.f64 im) #s(literal 4 binary64))) (*.f64 (neg.f64 im) #s(literal 2 binary64))) |
(/.f64 (fma.f64 #s(literal 2 binary64) re (*.f64 im #s(literal 4 binary64))) (*.f64 #s(literal 2 binary64) im)) |
(/.f64 (fma.f64 #s(literal 4 binary64) (neg.f64 im) (*.f64 #s(literal 2 binary64) (neg.f64 re))) (*.f64 #s(literal 2 binary64) (neg.f64 im))) |
(/.f64 (fma.f64 #s(literal 4 binary64) im (*.f64 #s(literal 2 binary64) re)) (*.f64 #s(literal 2 binary64) im)) |
(/.f64 (-.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) #s(literal 4 binary64)) (-.f64 (/.f64 re im) #s(literal 2 binary64))) |
(/.f64 (-.f64 #s(literal 4 binary64) (pow.f64 (/.f64 re im) #s(literal 2 binary64))) (-.f64 #s(literal 2 binary64) (/.f64 re im))) |
(/.f64 (+.f64 (pow.f64 (/.f64 re im) #s(literal 3 binary64)) #s(literal 8 binary64)) (+.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (-.f64 #s(literal 4 binary64) (*.f64 (/.f64 re im) #s(literal 2 binary64))))) |
(/.f64 (+.f64 #s(literal 8 binary64) (pow.f64 (/.f64 re im) #s(literal 3 binary64))) (+.f64 #s(literal 4 binary64) (-.f64 (pow.f64 (/.f64 re im) #s(literal 2 binary64)) (*.f64 (/.f64 re im) #s(literal 2 binary64))))) |
(+.f64 (/.f64 re im) #s(literal 2 binary64)) |
(+.f64 #s(literal 2 binary64) (/.f64 re im)) |
(/.f64 (neg.f64 re) (neg.f64 im)) |
(/.f64 re im) |
(*.f64 (neg.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im))) (neg.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
(*.f64 (fabs.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im))) (fabs.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
(*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))) |
(*.f64 #s(literal 2 binary64) im) |
(*.f64 im #s(literal 2 binary64)) |
(pow.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 2 binary64)) |
(sqrt.f64 (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 2 binary64))) |
(+.f64 im im) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal -3/2 binary64))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -3/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 re im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/4 binary64) (pow.f64 im #s(literal -1 binary64))) re #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im)) |
#s(approx (sqrt (+ (* re re) (* im im))) im) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im)) |
#s(approx re re) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (pow.f64 im #s(literal -3/2 binary64))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) re (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -3/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re (*.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 re im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/4 binary64) (pow.f64 im #s(literal -1 binary64))) re #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) |
#s(approx (* 4 re) (*.f64 #s(literal 4 binary64) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 re im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im)) |
#s(approx (sqrt (+ (* re re) (* im im))) im) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im)) |
#s(approx (neg (/ (* im im) re)) (/.f64 (*.f64 im im) (neg.f64 re))) |
#s(approx (/ (* im im) re) (/.f64 (*.f64 im im) re)) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (*.f64 #s(literal 2 binary64) im)) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (*.f64 #s(literal 2 binary64) (+.f64 re im))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) |
#s(approx (+ (/ re im) 2) #s(literal 2 binary64)) |
#s(approx (+ (/ re im) 2) (+.f64 (/.f64 re im) #s(literal 2 binary64))) |
#s(approx (/ re im) (/.f64 re im)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1/2 binary64))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)))) re)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1/2 binary64))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))))) re)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (fma.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/64 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1/2 binary64))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)))))) re)) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))) re)) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) re)) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (fma.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/16 binary64) (fma.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/32 binary64) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))))) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) #s(literal 4 binary64)) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal 2 binary64) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64)) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 2 binary64)) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 2 binary64)) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) re) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)) re)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1/2 binary64))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)))) re)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1/2 binary64))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64))))) re)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (fma.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/64 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 re #s(literal -1/2 binary64))) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)))))) re)) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))) re)) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (pow.f64 re #s(literal -9/2 binary64)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64)))) re)) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (fma.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/16 binary64) (fma.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64)) (pow.f64 re #s(literal -9/2 binary64))) #s(literal -1/32 binary64) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -5/2 binary64)) (*.f64 (pow.f64 re #s(literal -1/2 binary64)) #s(literal 2 binary64))))) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) #s(literal 4 binary64)) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal 2 binary64) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64)) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 2 binary64)) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 2 binary64)) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) re) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)) re)) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (/.f64 (*.f64 re re) im)) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (pow.f64 im #s(literal -1 binary64))) (*.f64 re re))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (*.f64 (fma.f64 (/.f64 im (*.f64 re re)) #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 2 binary64) re) (pow.f64 im #s(literal -1 binary64)))) (*.f64 re re))) |
#s(approx (+ (/ re im) 2) (/.f64 re im)) |
#s(approx (+ (/ re im) 2) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (pow.f64 im #s(literal -1 binary64))) re)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64)))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64)) (neg.f64 (/.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -3/2 binary64)) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/64 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64)) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pow.f64 re #s(literal -3/2 binary64))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (pow.f64 re #s(literal -3/2 binary64)) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/64 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)) (neg.f64 (/.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -3/2 binary64)) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pow.f64 re #s(literal -3/2 binary64))) (*.f64 (*.f64 (pow.f64 re #s(literal -3/2 binary64)) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/32 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im))) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im)))) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re))) |
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64)))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64)) (neg.f64 (/.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -3/2 binary64)) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/64 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (pow.f64 re #s(literal -1/2 binary64)) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pow.f64 re #s(literal -3/2 binary64))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (pow.f64 re #s(literal -3/2 binary64)) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/64 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (pow.f64 re #s(literal -5/2 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)) (neg.f64 (/.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -3/2 binary64)) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (pow.f64 re #s(literal -1/2 binary64)) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (sqrt.f64 #s(literal -4 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (pow.f64 re #s(literal -3/2 binary64))) (*.f64 (*.f64 (pow.f64 re #s(literal -3/2 binary64)) (*.f64 (pow.f64 im #s(literal 5 binary64)) (sqrt.f64 #s(literal -4 binary64)))) #s(literal 1/32 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im))) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im)))) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re))) |
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (*.f64 (fma.f64 (/.f64 (-.f64 (*.f64 (/.f64 im re) #s(literal -2 binary64)) #s(literal 2 binary64)) re) #s(literal -1 binary64) (pow.f64 im #s(literal -1 binary64))) (*.f64 re re))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -3/2 binary64))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/4 binary64) (*.f64 (pow.f64 re #s(literal -3/2 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (pow.f64 re #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -1/2 binary64))) (fma.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (pow.f64 re #s(literal -3/2 binary64)) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -3/2 binary64)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -3/2 binary64)) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (pow.f64 re #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -1/2 binary64))) (fma.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (pow.f64 re #s(literal -3/2 binary64)) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/4 binary64) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im) (*.f64 #s(literal 4 binary64) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/8 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im) (*.f64 #s(literal 4 binary64) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) (*.f64 #s(literal 2 binary64) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 #s(literal 2 binary64) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 #s(literal 2 binary64) re))) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re)) |
#s(approx im im) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (pow.f64 re #s(literal -3/2 binary64))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/4 binary64) (*.f64 (pow.f64 re #s(literal -3/2 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (pow.f64 re #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -1/2 binary64))) (fma.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (pow.f64 re #s(literal -3/2 binary64)) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (pow.f64 re #s(literal -3/2 binary64)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (pow.f64 re #s(literal -1/2 binary64))) #s(literal -1/2 binary64) (*.f64 (pow.f64 re #s(literal -3/2 binary64)) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (pow.f64 re #s(literal -1/2 binary64)) (*.f64 (*.f64 #s(literal -1/2 binary64) (pow.f64 re #s(literal -1/2 binary64))) (fma.f64 (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (pow.f64 re #s(literal -3/2 binary64)) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/4 binary64) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im) (*.f64 #s(literal 4 binary64) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/8 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im) (*.f64 #s(literal 4 binary64) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) (*.f64 #s(literal 2 binary64) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 #s(literal 2 binary64) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 #s(literal 2 binary64) re))) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re)) |
#s(approx (* im im) (*.f64 im im)) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (/.f64 (fma.f64 (*.f64 re im) #s(literal 2 binary64) (*.f64 re re)) im)) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (/.f64 (fma.f64 (*.f64 #s(literal 2 binary64) (+.f64 re im)) im (*.f64 re re)) im)) |
#s(approx (+ (/ re im) 2) (/.f64 (fma.f64 #s(literal 2 binary64) im re) im)) |
#s(approx (* im 2) (*.f64 #s(literal 2 binary64) im)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) im)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)))) im)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))))) im)) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) im)) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) im)) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) (/.f64 (*.f64 re re) (*.f64 im im))) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)) im)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))) im)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re)))) im)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal 2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re))))) im)) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))) im)) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64))))) im)) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (pow.f64 im #s(literal -1/2 binary64)) (sqrt.f64 #s(literal 2 binary64)))))) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) (/.f64 (*.f64 re re) (*.f64 im im))) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)) im)) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im)) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) (/.f64 (*.f64 re re) (*.f64 im im))) im)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (neg.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (*.f64 re re) im))) im) #s(literal -1 binary64) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im) #s(literal -1 binary64) #s(literal 2 binary64)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im) re) im) #s(literal -1 binary64) #s(literal 1 binary64)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 im im)) #s(literal -1/8 binary64) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im) #s(literal -1 binary64) re) im) #s(literal -1 binary64) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)) #s(literal -1/2 binary64))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -1/2 binary64))) (sqrt.f64 #s(literal -2 binary64)) (*.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (neg.f64 (sqrt.f64 (*.f64 #s(literal -2 binary64) im)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (pow.f64 im #s(literal -5/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* im im) (* re re))) re) 2)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 im #s(literal -3/2 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal -1/2 binary64))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (*.f64 re re) im))) im) #s(literal -1 binary64) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im) #s(literal -1 binary64) #s(literal 2 binary64)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im) re) im) #s(literal -1 binary64) #s(literal 1 binary64)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 im im)) #s(literal -1/8 binary64) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im) #s(literal -1 binary64) re) im) #s(literal -1 binary64) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (*.f64 (neg.f64 im) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 re im)) #s(literal 2 binary64)))) |
#s(approx (+ (* (+ (/ re im) 2) re) (* im 2)) (*.f64 (neg.f64 im) (-.f64 (neg.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (*.f64 re re) im)) im)) #s(literal 2 binary64)))) |
Compiled 10 779 to 2 039 computations (81.1% saved)
16 alts after pruning (12 fresh and 4 done)
| Pruned | Kept | Total | |
|---|---|---|---|
| New | 398 | 11 | 409 |
| Fresh | 6 | 1 | 7 |
| Picked | 1 | 4 | 5 |
| Done | 0 | 0 | 0 |
| Total | 405 | 16 | 421 |
| Status | Accuracy | Program |
|---|---|---|
| ▶ | 78.7% | (*.f64 (*.f64 (sqrt.f64 (+.f64 (hypot.f64 re im) re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
| 26.0% | (*.f64 (sqrt.f64 (*.f64 (/.f64 (-.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 (hypot.f64 re im) re)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) | |
| ✓ | 79.2% | (*.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
| 7.1% | (*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) | |
| ▶ | 49.6% | (*.f64 (sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
| 26.0% | (*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64)) | |
| 73.8% | (*.f64 (exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) | |
| ▶ | 14.5% | (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64)))) |
| 42.3% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re)))) | |
| ✓ | 52.5% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))) |
| ▶ | 50.0% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))))) |
| ✓ | 26.9% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))) |
| 13.5% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (pow.f64 (pow.f64 im (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) re))))) | |
| ✓ | 14.1% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))))) |
| ▶ | 16.1% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))) |
| 13.5% | (*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64)))) |
Compiled 550 to 411 computations (25.3% saved)
| Inputs |
|---|
(*.f64 (*.f64 (sqrt.f64 (+.f64 (hypot.f64 re im) re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 (sqrt.f64 (+.f64 (hypot.f64 re im) re)) (sqrt.f64 #s(literal 2 binary64))) |
(sqrt.f64 (+.f64 (hypot.f64 re im) re)) |
(+.f64 (hypot.f64 re im) re) |
(hypot.f64 re im) |
re |
im |
(sqrt.f64 #s(literal 2 binary64)) |
#s(literal 2 binary64) |
#s(literal 1/2 binary64) |
(*.f64 (sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) |
(*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))) |
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))) |
(neg.f64 (*.f64 im (/.f64 im re))) |
(*.f64 im (/.f64 im re)) |
(/.f64 im re) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))))) |
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))) |
(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)) |
(+.f64 (/.f64 re im) #s(literal 2 binary64)) |
(/.f64 re im) |
(+.f64 im im) |
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64)))) |
(/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64))) |
#s(literal 1 binary64) |
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) |
(/.f64 (*.f64 im im) (neg.f64 re)) |
(*.f64 im im) |
(neg.f64 re) |
#s(literal -1/2 binary64) |
| Outputs |
|---|
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt im))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* 1/2 (* (sqrt (/ 1 im)) re))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) re)) (* 1/2 (sqrt (/ 1 im)))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/2 (sqrt (/ 1 im))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) re)) (* 1/8 (sqrt (/ 1 (pow im 3))))))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im)) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im))))))) |
#s(approx re #s(hole binary64 re)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* 2 im))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im)))))))) |
#s(approx (neg (* im (/ im re))) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (* im (/ im re)) #s(hole binary64 (/ (pow im 2) re))) |
#s(approx (/ im re) #s(hole binary64 (/ im re))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* 2 im))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 2)) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (+ 2 (/ re im)))) |
#s(approx (/ re im) #s(hole binary64 (/ re im))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* 1/2 (* (sqrt im) (/ 1 (sqrt 1/2)))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (/ re (sqrt 1/2)))) (* 1/2 (* (sqrt im) (/ 1 (sqrt 1/2))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (/ 1 (sqrt 1/2)))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* 1/4 (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2))))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (/ 1 (sqrt 1/2)))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2)))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (/ re (sqrt 1/2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (/ 1 (sqrt 1/2))))))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* (sqrt im) (/ 1 (sqrt 1/2))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (/ re (sqrt 1/2)))) (* (sqrt im) (/ 1 (sqrt 1/2)))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2)))))) (* (sqrt im) (/ 1 (sqrt 1/2)))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2)))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (/ re (sqrt 1/2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (/ 1 (sqrt 1/2)))))))) (* (sqrt im) (/ 1 (sqrt 1/2)))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (* (sqrt (/ 1 im)) (sqrt 1/2)))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* (sqrt (/ 1 im)) (sqrt 1/2))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* re (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (/ 1 (sqrt 1/2)))) (* 1/2 (* (sqrt im) (/ (* re (- (* 1/4 (/ 1 (pow im 3))) (* 1/16 (/ 1 (* (pow im 3) (pow (sqrt 1/2) 2)))))) (sqrt 1/2)))))) (* (sqrt (/ 1 im)) (sqrt 1/2))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* re (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (/ 1 (sqrt 1/2)))) (* re (+ (* 1/8 (* (sqrt (/ 1 im)) (/ (* re (- (* 1/4 (/ 1 (pow im 3))) (* 1/16 (/ 1 (* (pow im 3) (pow (sqrt 1/2) 2)))))) (pow (sqrt 1/2) 3)))) (* 1/2 (* (sqrt im) (/ (- (* 1/4 (/ 1 (pow im 3))) (* 1/16 (/ 1 (* (pow im 3) (pow (sqrt 1/2) 2))))) (sqrt 1/2)))))))) (* (sqrt (/ 1 im)) (sqrt 1/2))))) |
#s(approx (/ (* im im) (neg re)) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (neg re) #s(hole binary64 (* -1 re))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (sqrt re) (sqrt 2)))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re)) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* 4 re))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (pow re 2) im))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re)))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re))))))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ re im))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (* re (+ (/ 1 im) (* 2 (/ 1 re)))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* 1/2 (* (sqrt re) (/ (sqrt 2) (sqrt 1/2)))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* re (+ (* 1/8 (* (/ (pow im 2) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (/ (sqrt 2) (sqrt 1/2)))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* re (+ (* -1/32 (* (/ (pow im 4) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (/ (pow im 2) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (/ (sqrt 2) (sqrt 1/2))))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* re (+ (* -1/32 (* (/ (pow im 4) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (* (sqrt 1/2) (pow (sqrt 2) 3))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (/ (pow im 2) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (/ (sqrt 2) (sqrt 1/2)))))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* (sqrt re) (/ (sqrt 2) (sqrt 1/2))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (/ (sqrt 2) (sqrt 1/2))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (/ (sqrt 2) (sqrt 1/2)))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (* (sqrt 1/2) (pow (sqrt 2) 3))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (/ (sqrt 2) (sqrt 1/2))))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (* 1/2 (sqrt (/ 1 re))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/16 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (sqrt (/ 1 re)))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/16 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (+ (* 1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (* 1/2 (sqrt (/ 1 re))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/16 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (+ (* -1/256 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (* 1/2 (sqrt (/ 1 re)))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 4)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* (* im (sqrt -1)) (sqrt (/ 1 re))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt (/ 1 (pow re 5))))) (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 4)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (* -1 (* (/ (sqrt -1) im) (sqrt re))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (* -1 (* re (+ (* -1/8 (* (* im (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (/ (sqrt -1) im) (sqrt (/ 1 re)))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/2 (* (* im (* (sqrt -1) (+ (* -1/16 (pow im 2)) (* 1/8 (pow im 2))))) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* im (sqrt -1)) (sqrt re)))) (pow re 3))) (* (/ (sqrt -1) im) (sqrt (/ 1 re)))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/2 (* (* im (* (sqrt -1) (+ (* -1/16 (pow im 2)) (* 1/8 (pow im 2))))) (sqrt (/ 1 (pow re 3))))) (+ (* 1/128 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* im (sqrt -1)) (sqrt re))))) (pow re 3))) (* (/ (sqrt -1) im) (sqrt (/ 1 re)))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (sqrt 2))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt 2)) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2))))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (sqrt 2)))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt 2)) (sqrt (/ 1 re))))))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx im #s(hole binary64 im)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ (+ re (* 2 im)) im))) |
#s(approx (+ im im) #s(hole binary64 (* 2 im))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/8 (* (/ (pow im 2) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (/ (sqrt 2) (sqrt 1/2))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/4 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))) (* 1/8 (* (sqrt (/ 1 (pow re 3))) (/ 1 (* (sqrt 1/2) (sqrt 2)))))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* 1/8 (* (sqrt (/ 1 (pow re 3))) (/ 1 (* (sqrt 1/2) (sqrt 2))))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (sqrt 1/2) (sqrt 2))))) (* 1/4 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (/ (sqrt 2) (sqrt 1/2)))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* (sqrt re) (/ (sqrt 2) (sqrt 1/2))) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (* (sqrt 1/2) (sqrt 2)))))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* (sqrt re) (/ (sqrt 2) (sqrt 1/2))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (* (sqrt 1/2) (sqrt 2))))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (sqrt 1/2) (sqrt 2))))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* 1/2 (sqrt (/ 1 re))) (* (pow im 2) (+ (* -1/16 (sqrt (/ 1 (pow re 5)))) (* 7/256 (* (pow im 2) (sqrt (/ 1 (pow re 9)))))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* 1/2 (sqrt (/ 1 re))) (* (pow im 2) (+ (* -1/16 (sqrt (/ 1 (pow re 5)))) (* (pow im 2) (+ (* -33/2048 (* (pow im 2) (sqrt (/ 1 (pow re 13))))) (* 7/256 (sqrt (/ 1 (pow re 9))))))))))) |
#s(approx (* im im) #s(hole binary64 (pow im 2))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2)))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 1/2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2))))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 1/2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 1/2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2)))))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 1/2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2)))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 1/2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 1/2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2))))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (+ (* -1/2 (pow re 2)) (* 1/4 (pow re 2))) (sqrt 1/2)))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* (sqrt (/ 1 im)) (sqrt 1/2)))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (+ (* -1/2 (pow re 2)) (* 1/4 (pow re 2))) (sqrt 1/2)))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 7))) (/ (+ (* -1 (* re (+ (* -1/2 (pow re 2)) (* 1/4 (pow re 2))))) (+ (* -1/4 (pow re 3)) (* 1/16 (/ (* im (pow re 2)) (pow (sqrt 1/2) 2))))) (sqrt 1/2)))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* (sqrt (/ 1 im)) (sqrt 1/2))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* (sqrt im) (sqrt -1))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt -1)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt -1)))) (* 1/4 (* (sqrt im) (* (pow re 2) (sqrt -1))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -2 im))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im))))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* -1/2 (* (sqrt im) (/ (sqrt -1) (sqrt 1/2)))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 1/2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (sqrt -1) (sqrt 1/2))))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 1/2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 1/2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (sqrt -1) (sqrt 1/2)))))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 1/2)))) (* 1/8 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 1/2))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 1/2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (sqrt -1) (sqrt 1/2)))))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* -1 (* (sqrt im) (/ (sqrt -1) (sqrt 1/2)))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 1/2)))) (* (sqrt (/ 1 im)) (/ (sqrt -1) (sqrt 1/2)))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 1/2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 1/2)))) (* (sqrt (/ 1 im)) (/ (sqrt -1) (sqrt 1/2))))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 1/2)))) (* 1/4 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 1/2))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 1/2)))) (* (sqrt (/ 1 im)) (/ (sqrt -1) (sqrt 1/2))))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 1/2))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 1/2)))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 1/2)))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 1/2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (sqrt -1) (+ (* -1/2 (pow re 2)) (* 1/4 (pow re 2)))) (sqrt 1/2)))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 1/2))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (* (sqrt im) (/ (* (sqrt -1) (+ (* -1/2 (pow re 2)) (* 1/4 (pow re 2)))) (sqrt 1/2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (* (sqrt -1) (+ (* -1 (* re (+ (* -1/2 (pow re 2)) (* 1/4 (pow re 2))))) (+ (* -1/4 (pow re 3)) (* -1/16 (/ (* im (pow re 2)) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))) (pow im 3))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 1/2)))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 1/2))))))) |
6 calls:
| Time | Variable | Point | Expression | |
|---|---|---|---|---|
| 7.0ms | im | @ | -inf | ((* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (sqrt 2) 2 1/2 (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* im (/ im re))) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* (+ (/ re im) 2) re) (+ im im)) (+ (/ re im) 2) (/ re im) (+ im im) (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) (neg re)) (* im im) (neg re) -1/2) |
| 6.0ms | re | @ | -inf | ((* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (sqrt 2) 2 1/2 (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* im (/ im re))) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* (+ (/ re im) 2) re) (+ im im)) (+ (/ re im) 2) (/ re im) (+ im im) (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) (neg re)) (* im im) (neg re) -1/2) |
| 5.0ms | im | @ | inf | ((* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (sqrt 2) 2 1/2 (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* im (/ im re))) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* (+ (/ re im) 2) re) (+ im im)) (+ (/ re im) 2) (/ re im) (+ im im) (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) (neg re)) (* im im) (neg re) -1/2) |
| 5.0ms | im | @ | 0 | ((* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (sqrt 2) 2 1/2 (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* im (/ im re))) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* (+ (/ re im) 2) re) (+ im im)) (+ (/ re im) 2) (/ re im) (+ im im) (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) (neg re)) (* im im) (neg re) -1/2) |
| 5.0ms | re | @ | inf | ((* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im (sqrt 2) 2 1/2 (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg (* im (/ im re))) (* im (/ im re)) (/ im re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (* (+ (/ re im) 2) re) (+ im im)) (+ (/ re im) 2) (/ re im) (+ im im) (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) (neg re)) (* im im) (neg re) -1/2) |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 1382 | 14069 |
| 0 | 1414 | 11838 |
| 1 | 7924 | 11836 |
| 0 | 8003 | 11345 |
| 1× | iter-limit |
| 1× | node-limit |
| 1× | iter-limit |
| Inputs |
|---|
(*.f64 (*.f64 (sqrt.f64 (+.f64 (hypot.f64 re im) re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 (sqrt.f64 (+.f64 (hypot.f64 re im) re)) (sqrt.f64 #s(literal 2 binary64))) |
(sqrt.f64 (+.f64 (hypot.f64 re im) re)) |
(+.f64 (hypot.f64 re im) re) |
(hypot.f64 re im) |
re |
im |
(sqrt.f64 #s(literal 2 binary64)) |
#s(literal 2 binary64) |
#s(literal 1/2 binary64) |
(*.f64 (sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) |
(*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))) |
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))) |
(neg.f64 (*.f64 im (/.f64 im re))) |
(*.f64 im (/.f64 im re)) |
(/.f64 im re) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))))) |
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))) |
(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im)) |
(+.f64 (/.f64 re im) #s(literal 2 binary64)) |
(/.f64 re im) |
(+.f64 im im) |
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64)))) |
(/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64))) |
#s(literal 1 binary64) |
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) |
(/.f64 (*.f64 im im) (neg.f64 re)) |
(*.f64 im im) |
(neg.f64 re) |
#s(literal -1/2 binary64) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (sqrt im))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* 1/2 (* (sqrt (/ 1 im)) re))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) re)) (* 1/2 (sqrt (/ 1 im)))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/2 (sqrt (/ 1 im))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) re)) (* 1/8 (sqrt (/ 1 (pow im 3))))))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im)) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im))))))) |
#s(approx re #s(hole binary64 re)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* 2 im))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im)))))))) |
#s(approx (neg (* im (/ im re))) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (* im (/ im re)) #s(hole binary64 (/ (pow im 2) re))) |
#s(approx (/ im re) #s(hole binary64 (/ im re))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* 2 im))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 2)) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (+ 2 (/ re im)))) |
#s(approx (/ re im) #s(hole binary64 (/ re im))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* 1/2 (* (sqrt im) (/ 1 (sqrt 1/2)))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (/ re (sqrt 1/2)))) (* 1/2 (* (sqrt im) (/ 1 (sqrt 1/2))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (/ 1 (sqrt 1/2)))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* 1/4 (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2))))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (/ 1 (sqrt 1/2)))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2)))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (/ re (sqrt 1/2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (/ 1 (sqrt 1/2))))))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* (sqrt im) (/ 1 (sqrt 1/2))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (/ re (sqrt 1/2)))) (* (sqrt im) (/ 1 (sqrt 1/2)))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2)))))) (* (sqrt im) (/ 1 (sqrt 1/2)))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2)))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (/ re (sqrt 1/2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (/ 1 (sqrt 1/2)))))))) (* (sqrt im) (/ 1 (sqrt 1/2)))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (* (sqrt (/ 1 im)) (sqrt 1/2)))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* (sqrt (/ 1 im)) (sqrt 1/2))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* re (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (/ 1 (sqrt 1/2)))) (* 1/2 (* (sqrt im) (/ (* re (- (* 1/4 (/ 1 (pow im 3))) (* 1/16 (/ 1 (* (pow im 3) (pow (sqrt 1/2) 2)))))) (sqrt 1/2)))))) (* (sqrt (/ 1 im)) (sqrt 1/2))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* re (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (/ 1 (sqrt 1/2)))) (* re (+ (* 1/8 (* (sqrt (/ 1 im)) (/ (* re (- (* 1/4 (/ 1 (pow im 3))) (* 1/16 (/ 1 (* (pow im 3) (pow (sqrt 1/2) 2)))))) (pow (sqrt 1/2) 3)))) (* 1/2 (* (sqrt im) (/ (- (* 1/4 (/ 1 (pow im 3))) (* 1/16 (/ 1 (* (pow im 3) (pow (sqrt 1/2) 2))))) (sqrt 1/2)))))))) (* (sqrt (/ 1 im)) (sqrt 1/2))))) |
#s(approx (/ (* im im) (neg re)) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (neg re) #s(hole binary64 (* -1 re))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (sqrt re) (sqrt 2)))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re)) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* 4 re))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (pow re 2) im))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re)))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re))))))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ re im))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (* re (+ (/ 1 im) (* 2 (/ 1 re)))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* 1/2 (* (sqrt re) (/ (sqrt 2) (sqrt 1/2)))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* re (+ (* 1/8 (* (/ (pow im 2) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (/ (sqrt 2) (sqrt 1/2)))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* re (+ (* -1/32 (* (/ (pow im 4) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (/ (pow im 2) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (/ (sqrt 2) (sqrt 1/2))))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* re (+ (* -1/32 (* (/ (pow im 4) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (* (sqrt 1/2) (pow (sqrt 2) 3))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (/ (pow im 2) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (/ (sqrt 2) (sqrt 1/2)))))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* (sqrt re) (/ (sqrt 2) (sqrt 1/2))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (/ (sqrt 2) (sqrt 1/2))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (/ (sqrt 2) (sqrt 1/2)))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (* (sqrt 1/2) (pow (sqrt 2) 3))) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (/ (sqrt 2) (sqrt 1/2))))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (* 1/2 (sqrt (/ 1 re))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/16 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (sqrt (/ 1 re)))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/16 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (+ (* 1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (* 1/2 (sqrt (/ 1 re))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/16 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (+ (* -1/256 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (* 1/2 (sqrt (/ 1 re)))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 4)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (sqrt -1)) (sqrt (/ 1 re))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* (* im (sqrt -1)) (sqrt (/ 1 re))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt (/ 1 (pow re 5))))) (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 4)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (* -1 (* (/ (sqrt -1) im) (sqrt re))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (* -1 (* re (+ (* -1/8 (* (* im (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (/ (sqrt -1) im) (sqrt (/ 1 re)))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/2 (* (* im (* (sqrt -1) (+ (* -1/16 (pow im 2)) (* 1/8 (pow im 2))))) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* im (sqrt -1)) (sqrt re)))) (pow re 3))) (* (/ (sqrt -1) im) (sqrt (/ 1 re)))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (* -1 (* re (+ (* -1 (/ (+ (* -1/2 (* (* im (* (sqrt -1) (+ (* -1/16 (pow im 2)) (* 1/8 (pow im 2))))) (sqrt (/ 1 (pow re 3))))) (+ (* 1/128 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/8 (* (* im (sqrt -1)) (sqrt re))))) (pow re 3))) (* (/ (sqrt -1) im) (sqrt (/ 1 re)))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (sqrt 2))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt 2)) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2))))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (sqrt 2)))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt 2)) (sqrt (/ 1 re))))))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx im #s(hole binary64 im)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ (+ re (* 2 im)) im))) |
#s(approx (+ im im) #s(hole binary64 (* 2 im))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/8 (* (/ (pow im 2) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (/ (sqrt 2) (sqrt 1/2))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* -1/4 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))) (* 1/8 (* (sqrt (/ 1 (pow re 3))) (/ 1 (* (sqrt 1/2) (sqrt 2)))))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (/ (sqrt 2) (sqrt 1/2)))) (* (pow im 2) (+ (* 1/8 (* (sqrt (/ 1 (pow re 3))) (/ 1 (* (sqrt 1/2) (sqrt 2))))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (sqrt 1/2) (sqrt 2))))) (* 1/4 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (/ (sqrt 2) (sqrt 1/2)))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* (sqrt re) (/ (sqrt 2) (sqrt 1/2))) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (* (sqrt 1/2) (sqrt 2)))))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (+ (* (sqrt re) (/ (sqrt 2) (sqrt 1/2))) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (* (sqrt 1/2) (sqrt 2))))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (sqrt 1/2) (sqrt 2))))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (* (sqrt 1/2) (sqrt 2))) (sqrt (/ 1 re))))))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* 1/2 (sqrt (/ 1 re))) (* (pow im 2) (+ (* -1/16 (sqrt (/ 1 (pow re 5)))) (* 7/256 (* (pow im 2) (sqrt (/ 1 (pow re 9)))))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* 1/2 (sqrt (/ 1 re))) (* (pow im 2) (+ (* -1/16 (sqrt (/ 1 (pow re 5)))) (* (pow im 2) (+ (* -33/2048 (* (pow im 2) (sqrt (/ 1 (pow re 13))))) (* 7/256 (sqrt (/ 1 (pow re 9))))))))))) |
#s(approx (* im im) #s(hole binary64 (pow im 2))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2)))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 1/2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2))))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 1/2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 1/2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2)))))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 1/2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2)))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 1/2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 1/2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 1/2))))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (+ (* -1/2 (pow re 2)) (* 1/4 (pow re 2))) (sqrt 1/2)))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* (sqrt (/ 1 im)) (sqrt 1/2)))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (+ (* -1/2 (pow re 2)) (* 1/4 (pow re 2))) (sqrt 1/2)))) (+ (* -1/2 (* (sqrt (/ 1 (pow im 7))) (/ (+ (* -1 (* re (+ (* -1/2 (pow re 2)) (* 1/4 (pow re 2))))) (+ (* -1/4 (pow re 3)) (* 1/16 (/ (* im (pow re 2)) (pow (sqrt 1/2) 2))))) (sqrt 1/2)))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 1/2)))) (* (sqrt (/ 1 im)) (sqrt 1/2))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* (sqrt im) (sqrt -1))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt -1)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt -1)))) (* 1/4 (* (sqrt im) (* (pow re 2) (sqrt -1))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -2 im))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im))))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2))))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* -1/2 (* (sqrt im) (/ (sqrt -1) (sqrt 1/2)))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 1/2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (sqrt -1) (sqrt 1/2))))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 1/2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 1/2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (sqrt -1) (sqrt 1/2)))))))))) |
#s(approx (* 1/2 (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 1/2)))) (* 1/8 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 1/2))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 1/2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (sqrt -1) (sqrt 1/2)))))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* -1 (* (sqrt im) (/ (sqrt -1) (sqrt 1/2)))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 1/2)))) (* (sqrt (/ 1 im)) (/ (sqrt -1) (sqrt 1/2)))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 1/2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 1/2)))) (* (sqrt (/ 1 im)) (/ (sqrt -1) (sqrt 1/2))))))))) |
#s(approx (/ 1 (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 1/2)))) (* 1/4 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 1/2))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 1/2)))) (* (sqrt (/ 1 im)) (/ (sqrt -1) (sqrt 1/2))))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 1/2))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 1/2)))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 1/2)))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 1/2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (sqrt -1) (+ (* -1/2 (pow re 2)) (* 1/4 (pow re 2)))) (sqrt 1/2)))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 1/2))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (* (sqrt im) (/ (* (sqrt -1) (+ (* -1/2 (pow re 2)) (* 1/4 (pow re 2)))) (sqrt 1/2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (* (sqrt -1) (+ (* -1 (* re (+ (* -1/2 (pow re 2)) (* 1/4 (pow re 2))))) (+ (* -1/4 (pow re 3)) (* -1/16 (/ (* im (pow re 2)) (pow (sqrt 1/2) 2)))))) (sqrt 1/2))))) (pow im 3))) (+ (* -1/4 (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 1/2)))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 1/2))))))) |
| Outputs |
|---|
(*.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 (sqrt.f64 (+.f64 (hypot.f64 im re) re)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)))) |
(/.f64 #s(literal 1/2 binary64) (pow.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal -1/2 binary64))) |
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (hypot.f64 im re) re))) |
(*.f64 (sqrt.f64 (+.f64 (hypot.f64 im re) re)) (sqrt.f64 #s(literal 2 binary64))) |
(pow.f64 (pow.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal -1/2 binary64)) #s(literal -1 binary64)) |
(pow.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) |
(/.f64 #s(literal -1 binary64) (neg.f64 (pow.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal -1/2 binary64)))) |
(/.f64 #s(literal 1 binary64) (pow.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal -1/2 binary64))) |
(sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) |
(pow.f64 (+.f64 (hypot.f64 im re) re) #s(literal 1/2 binary64)) |
(sqrt.f64 (+.f64 (hypot.f64 im re) re)) |
(/.f64 (-.f64 (*.f64 (hypot.f64 im re) (hypot.f64 im re)) (*.f64 re re)) (-.f64 (hypot.f64 im re) re)) |
(/.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 (hypot.f64 im re) (hypot.f64 im re) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 im re) re)))) |
(+.f64 (hypot.f64 im re) re) |
(+.f64 re (hypot.f64 im re)) |
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64)) |
(sqrt.f64 (fma.f64 im im (*.f64 re re))) |
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64))) |
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 re)) |
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 re)) |
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) re) |
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64))) |
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 im)) |
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 im)) |
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) im) |
(hypot.f64 (neg.f64 im) (pow.f64 re #s(literal 1 binary64))) |
(hypot.f64 (neg.f64 im) (fabs.f64 re)) |
(hypot.f64 (neg.f64 im) (neg.f64 re)) |
(hypot.f64 (neg.f64 im) re) |
(hypot.f64 (fabs.f64 re) (pow.f64 im #s(literal 1 binary64))) |
(hypot.f64 (fabs.f64 re) (neg.f64 im)) |
(hypot.f64 (fabs.f64 re) (fabs.f64 im)) |
(hypot.f64 (fabs.f64 re) im) |
(hypot.f64 (fabs.f64 im) (pow.f64 re #s(literal 1 binary64))) |
(hypot.f64 (fabs.f64 im) (fabs.f64 re)) |
(hypot.f64 (fabs.f64 im) (neg.f64 re)) |
(hypot.f64 (fabs.f64 im) re) |
(hypot.f64 (neg.f64 re) (pow.f64 im #s(literal 1 binary64))) |
(hypot.f64 (neg.f64 re) (neg.f64 im)) |
(hypot.f64 (neg.f64 re) (fabs.f64 im)) |
(hypot.f64 (neg.f64 re) im) |
(hypot.f64 im (pow.f64 re #s(literal 1 binary64))) |
(hypot.f64 im (fabs.f64 re)) |
(hypot.f64 im (neg.f64 re)) |
(hypot.f64 im re) |
(hypot.f64 re (pow.f64 im #s(literal 1 binary64))) |
(hypot.f64 re (neg.f64 im)) |
(hypot.f64 re (fabs.f64 im)) |
(hypot.f64 re im) |
re |
im |
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)) |
(cosh.f64 (asinh.f64 #s(literal 1 binary64))) |
(sqrt.f64 #s(literal 2 binary64)) |
#s(literal 2 binary64) |
#s(literal 1/2 binary64) |
(*.f64 (sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64)))) |
(*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) (sqrt.f64 #s(literal 2 binary64))) |
(pow.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64)) #s(literal 1/2 binary64)) |
(sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) |
(*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64)) |
(*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) |
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))))) |
(/.f64 #s(literal 1/2 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal -1/2 binary64))) |
(pow.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal -1/2 binary64)) #s(literal -1 binary64)) |
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal 1/2 binary64)) |
(/.f64 #s(literal -1 binary64) (neg.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal -1/2 binary64)))) |
(/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal -1/2 binary64))) |
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) |
(*.f64 (neg.f64 im) (/.f64 im re)) |
(*.f64 (*.f64 (/.f64 im re) im) #s(literal -1 binary64)) |
(*.f64 #s(literal -1 binary64) (*.f64 (/.f64 im re) im)) |
(*.f64 im (/.f64 im (neg.f64 re))) |
(*.f64 im (neg.f64 (/.f64 im re))) |
(/.f64 (*.f64 #s(literal -1 binary64) (*.f64 im im)) re) |
(/.f64 (neg.f64 (*.f64 im im)) (neg.f64 (neg.f64 re))) |
(/.f64 (*.f64 im im) (neg.f64 re)) |
(neg.f64 (*.f64 (/.f64 im re) im)) |
(*.f64 (/.f64 im re) im) |
(*.f64 im (/.f64 im re)) |
(/.f64 (neg.f64 (*.f64 im im)) (neg.f64 re)) |
(/.f64 (*.f64 im im) re) |
(/.f64 (neg.f64 im) (neg.f64 re)) |
(/.f64 im re) |
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))))) |
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) #s(literal 1/2 binary64)) |
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) |
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 #s(literal 2 binary64) im)) (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))) (-.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))) |
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) (*.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 #s(literal 2 binary64) im))) (-.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 #s(literal 2 binary64) im))) |
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 3 binary64)) (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 #s(literal 2 binary64) im) (-.f64 (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) (*.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))))) |
(/.f64 (+.f64 (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 3 binary64)) (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 3 binary64))) (fma.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 #s(literal 2 binary64) im)) (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 #s(literal 2 binary64) im))))) |
(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)) |
(fma.f64 #s(literal 2 binary64) im (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) |
(fma.f64 im #s(literal 2 binary64) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) |
(fma.f64 re (+.f64 (/.f64 re im) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) im)) |
(-.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 (neg.f64 re) (+.f64 (/.f64 re im) #s(literal 2 binary64)))) |
(+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im) |
(+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 #s(literal 2 binary64) im)) |
(+.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) |
(/.f64 (-.f64 (*.f64 (/.f64 re im) (/.f64 re im)) #s(literal 4 binary64)) (-.f64 (/.f64 re im) #s(literal 2 binary64))) |
(/.f64 (-.f64 #s(literal 4 binary64) (*.f64 (/.f64 re im) (/.f64 re im))) (-.f64 #s(literal 2 binary64) (/.f64 re im))) |
(/.f64 (+.f64 (pow.f64 (/.f64 re im) #s(literal 3 binary64)) #s(literal 8 binary64)) (fma.f64 (/.f64 re im) (/.f64 re im) (-.f64 #s(literal 4 binary64) (*.f64 (/.f64 re im) #s(literal 2 binary64))))) |
(/.f64 (+.f64 #s(literal 8 binary64) (pow.f64 (/.f64 re im) #s(literal 3 binary64))) (+.f64 #s(literal 4 binary64) (-.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (*.f64 (/.f64 re im) #s(literal 2 binary64))))) |
(+.f64 (/.f64 re im) #s(literal 2 binary64)) |
(+.f64 #s(literal 2 binary64) (/.f64 re im)) |
(/.f64 (neg.f64 re) (neg.f64 im)) |
(/.f64 re im) |
(*.f64 #s(literal 2 binary64) im) |
(*.f64 im #s(literal 2 binary64)) |
(/.f64 (-.f64 (*.f64 im im) (*.f64 im im)) (-.f64 im im)) |
(/.f64 (+.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (fma.f64 im im (-.f64 (*.f64 im im) (*.f64 im im)))) |
(+.f64 im im) |
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))))) |
(/.f64 #s(literal 1/2 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal -1/2 binary64))) |
(pow.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal -1/2 binary64)) #s(literal -1 binary64)) |
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal 1/2 binary64)) |
(/.f64 #s(literal -1 binary64) (neg.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal -1/2 binary64)))) |
(/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal -1/2 binary64))) |
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) |
#s(literal 1 binary64) |
(*.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal -1/4 binary64)) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal -1/4 binary64))) |
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal -1/2 binary64)) |
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal -1/2 binary64))) |
(+.f64 (cosh.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal -1/2 binary64))) (sinh.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal -1/2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) |
(*.f64 (neg.f64 im) (/.f64 im re)) |
(*.f64 (*.f64 (/.f64 im re) im) #s(literal -1 binary64)) |
(*.f64 #s(literal -1 binary64) (*.f64 (/.f64 im re) im)) |
(*.f64 im (/.f64 im (neg.f64 re))) |
(*.f64 im (neg.f64 (/.f64 im re))) |
(/.f64 (*.f64 #s(literal -1 binary64) (*.f64 im im)) re) |
(/.f64 (neg.f64 (*.f64 im im)) (neg.f64 (neg.f64 re))) |
(/.f64 (*.f64 im im) (neg.f64 re)) |
(neg.f64 (*.f64 (/.f64 im re) im)) |
(*.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64))) |
(*.f64 (neg.f64 im) (neg.f64 im)) |
(*.f64 (fabs.f64 im) (fabs.f64 im)) |
(*.f64 im im) |
(pow.f64 im #s(literal 2 binary64)) |
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) |
(+.f64 (cosh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) (sinh.f64 (*.f64 (log.f64 im) #s(literal 2 binary64)))) |
(*.f64 #s(literal -1 binary64) re) |
(*.f64 re #s(literal -1 binary64)) |
(neg.f64 re) |
#s(literal -1/2 binary64) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 im)) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) re) #s(literal 1/2 binary64) (sqrt.f64 im))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (*.f64 (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) re) #s(literal 1/8 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64))) re (sqrt.f64 im))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) re) #s(literal -1/16 binary64) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64))))) re (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64))) re (sqrt.f64 im))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im)) |
#s(approx (sqrt (+ (* re re) (* im im))) im) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im)) |
#s(approx re re) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 im re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (pow.f64 im #s(literal -1 binary64))) re #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 im re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (pow.f64 im #s(literal -1 binary64))) re #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) |
#s(approx (/ (* im im) (neg re)) (*.f64 (neg.f64 im) (/.f64 im re))) |
#s(approx (* im (/ im re)) (*.f64 (/.f64 im re) im)) |
#s(approx (/ im re) (/.f64 im re)) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 #s(literal 2 binary64) im)) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 #s(literal 2 binary64) (+.f64 im re))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) |
#s(approx (+ (/ re im) 2) #s(literal 2 binary64)) |
#s(approx (+ (/ re im) 2) (+.f64 (/.f64 re im) #s(literal 2 binary64))) |
#s(approx (/ re im) (/.f64 re im)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)))) re (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)) (*.f64 (*.f64 #s(literal -1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))))) re (*.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)))) re (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)) (sqrt.f64 im))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)) (sqrt.f64 im) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)))) re (*.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)) (sqrt.f64 im)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)))) re (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)))) re (*.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)) (sqrt.f64 im)))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im)))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (*.f64 re (/.f64 (fma.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)))) re (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im)))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 re (/.f64 (fma.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 1/2 binary64)))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64)))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 im)) (/.f64 (fma.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 1/4 binary64) (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 1/2 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))))) re (*.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)))) re (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im)))) |
#s(approx (/ (* im im) (neg re)) (*.f64 (neg.f64 im) (/.f64 im re))) |
#s(approx (neg re) (neg.f64 re)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) re)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) re)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))))) re)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))) re)) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt.f64 (*.f64 #s(literal 2 binary64) re))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (*.f64 (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))) re)) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/16 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) re)))) re)) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/16 binary64) (fma.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal 2 binary64) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64)) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 2 binary64)) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 2 binary64)) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) re) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)) re)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) re)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) re)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))))) re)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) #s(literal 4 binary64)) re)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) re)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) re)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))))) re)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) #s(literal 4 binary64)) re)) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (/.f64 (*.f64 re re) im)) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (pow.f64 im #s(literal -1 binary64))) (*.f64 re re))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (fma.f64 (/.f64 im (*.f64 re re)) #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 2 binary64) re) (pow.f64 im #s(literal -1 binary64)))) (*.f64 re re))) |
#s(approx (+ (/ re im) 2) (/.f64 re im)) |
#s(approx (+ (/ re im) 2) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (pow.f64 im #s(literal -1 binary64))) re)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 im im) #s(literal 1 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) re)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 1 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 im im) #s(literal 1 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) re)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 1 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/64 binary64) (fma.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 im im) #s(literal 1 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))))) re)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) #s(literal 1 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 1 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) #s(literal 1 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 1 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/32 binary64) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) #s(literal 1 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))) re)) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (fma.f64 (*.f64 (*.f64 im im) #s(literal -1/16 binary64)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (fma.f64 (*.f64 (*.f64 im im) #s(literal -1/16 binary64)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (fma.f64 (*.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (fma.f64 (*.f64 (*.f64 im im) #s(literal -1/16 binary64)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (fma.f64 (*.f64 #s(literal -1/256 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/32 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/16 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/512 binary64) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64)))) #s(literal 1/32 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (*.f64 (/.f64 im re) im) #s(literal -1/2 binary64))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1/2 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re))) |
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/32 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/16 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im))) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im)))) re))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/64 binary64) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/32 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 #s(literal 1/32 binary64) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/16 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) (sqrt.f64 #s(literal 1/2 binary64))) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im))) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im)))) re))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (fma.f64 (/.f64 (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 im re)) #s(literal 2 binary64)) re) #s(literal -1 binary64) (pow.f64 im #s(literal -1 binary64))) (*.f64 re re))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/64 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/64 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 3 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/512 binary64) (*.f64 (*.f64 (*.f64 (pow.f64 im #s(literal 5 binary64)) (/.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/32 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (neg.f64 (*.f64 (/.f64 (sqrt.f64 #s(literal -1 binary64)) im) (sqrt.f64 re)))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (*.f64 (neg.f64 re) (fma.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 (sqrt.f64 #s(literal -1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (sqrt.f64 #s(literal -1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (sqrt.f64 re)) #s(literal 1/8 binary64) (*.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (*.f64 im im) #s(literal 1/16 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal -1/2 binary64))) (pow.f64 re #s(literal 3 binary64))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (sqrt.f64 #s(literal -1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (*.f64 (*.f64 im im) #s(literal 1/16 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal -1/2 binary64) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/128 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 (sqrt.f64 #s(literal -1 binary64)) im)) (sqrt.f64 re)))) (pow.f64 re #s(literal 3 binary64))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/8 binary64))) (*.f64 im im)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) re)))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (*.f64 (tanh.f64 (asinh.f64 #s(literal 1 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/4 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64))) (*.f64 im im) (sqrt.f64 (*.f64 #s(literal 2 binary64) re)))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (/.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (sqrt.f64 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/4 binary64)) (tanh.f64 (asinh.f64 #s(literal 1 binary64))))) (*.f64 im im) (sqrt.f64 (*.f64 #s(literal 2 binary64) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (*.f64 (/.f64 im re) im) #s(literal 1/2 binary64) (*.f64 #s(literal 2 binary64) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 #s(literal 2 binary64) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 #s(literal 2 binary64) re))) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (*.f64 (/.f64 im re) im) #s(literal 1/2 binary64) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re)) |
#s(approx (sqrt (+ (* re re) (* im im))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re)) |
#s(approx im im) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/8 binary64))) (*.f64 im im)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (*.f64 (/.f64 im re) im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/4 binary64) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im) (*.f64 #s(literal 4 binary64) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/8 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im) (*.f64 #s(literal 4 binary64) re))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (*.f64 (*.f64 im im) #s(literal 1/8 binary64)) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/8 binary64))) (*.f64 im im)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (*.f64 (/.f64 im re) im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/4 binary64) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im) (*.f64 #s(literal 4 binary64) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/8 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im) (*.f64 #s(literal 4 binary64) re))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (/.f64 (fma.f64 (*.f64 im re) #s(literal 2 binary64) (*.f64 re re)) im)) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (/.f64 (fma.f64 (*.f64 #s(literal 2 binary64) (+.f64 im re)) im (*.f64 re re)) im)) |
#s(approx (+ (/ re im) 2) (/.f64 (fma.f64 #s(literal 2 binary64) im re) im)) |
#s(approx (+ im im) (*.f64 #s(literal 2 binary64) im)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/8 binary64) (/.f64 (*.f64 im im) #s(literal 1 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (*.f64 im im) (/.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) #s(literal 1 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) #s(literal 1 binary64)))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1 binary64)) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 (*.f64 im im) #s(literal 1 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (*.f64 (*.f64 (*.f64 im im) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1 binary64)) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (/.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) #s(literal 1 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) #s(literal 1 binary64)))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1 binary64)) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (fma.f64 (fma.f64 (*.f64 #s(literal 7/256 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) #s(literal -1/16 binary64))) (*.f64 im im) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -33/2048 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -13 binary64))) (*.f64 #s(literal 7/256 binary64) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))))) (*.f64 im im) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) #s(literal -1/16 binary64))) (*.f64 im im) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 1/2 binary64)))) |
#s(approx (* im im) (*.f64 im im)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) im)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) im)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))) im)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) im)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))) im)) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) re) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) im)) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (*.f64 (*.f64 re re) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) #s(literal 1/4 binary64) (*.f64 (*.f64 (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) re) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) im)) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 re re) (fma.f64 (*.f64 (*.f64 re re) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) #s(literal 1/4 binary64) (*.f64 (*.f64 (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) re) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)) im)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) im)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) im)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))) im)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) im)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) (/.f64 (*.f64 re re) (*.f64 im im))) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) im)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) im)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))) im)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) im)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) (/.f64 (*.f64 re re) (*.f64 im im))) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im)) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im)) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) (/.f64 (*.f64 re re) (*.f64 im im))) im)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)))) im)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 re re) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64))))) im)) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 re re) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 re re) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)))))) im)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))) im)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 re re) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))) im)) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 re re) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 re re) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (*.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))) im)) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -7 binary64)))) (/.f64 (fma.f64 (neg.f64 re) (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (fma.f64 (/.f64 (*.f64 (*.f64 re re) im) #s(literal 1/2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal -1/4 binary64)))) (sqrt.f64 #s(literal 1/2 binary64))) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (/.f64 re (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (sqrt.f64 (neg.f64 im)))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal -1 binary64)))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal -1 binary64))))))) |
#s(approx (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal -1 binary64))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 re re) im) #s(literal -1/2 binary64) re) im) #s(literal -1 binary64) #s(literal 1 binary64)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 im im)) #s(literal -1/8 binary64) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im) #s(literal -1 binary64) re) im) #s(literal -1 binary64) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 im)) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* re re) (* im im))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (*.f64 re re) im))) im) #s(literal -1 binary64) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im) #s(literal -1 binary64) #s(literal 2 binary64)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (*.f64 re re) im))) im) #s(literal -1 binary64) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im) #s(literal -1 binary64) #s(literal 2 binary64)))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (neg.f64 im) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 re im)) #s(literal 2 binary64)))) |
#s(approx (+ (* (+ (/ re im) 2) re) (+ im im)) (*.f64 (neg.f64 im) (-.f64 (neg.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (*.f64 re re) im)) im)) #s(literal 2 binary64)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))) |
#s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (fma.f64 (/.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (/.f64 (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (sqrt.f64 #s(literal 1/2 binary64)))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (/.f64 (*.f64 (fma.f64 (neg.f64 re) (*.f64 (*.f64 re re) #s(literal -1/4 binary64)) (fma.f64 (/.f64 (*.f64 (*.f64 re re) im) #s(literal 1/2 binary64)) #s(literal -1/16 binary64) (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal -1/4 binary64)))) (sqrt.f64 #s(literal -1 binary64))) (sqrt.f64 #s(literal 1/2 binary64))))) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))) |
Compiled 12 438 to 1 974 computations (84.1% saved)
22 alts after pruning (15 fresh and 7 done)
| Pruned | Kept | Total | |
|---|---|---|---|
| New | 370 | 8 | 378 |
| Fresh | 0 | 7 | 7 |
| Picked | 2 | 3 | 5 |
| Done | 0 | 4 | 4 |
| Total | 372 | 22 | 394 |
| Status | Accuracy | Program |
|---|---|---|
| 16.4% | (/.f64 #s(literal 1/2 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal -1/2 binary64))) | |
| 25.8% | (*.f64 (*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 (hypot.f64 im re) (hypot.f64 im re)) (*.f64 re re)) (-.f64 (hypot.f64 im re) re))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) | |
| ▶ | 42.0% | (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
| 16.1% | (*.f64 (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (*.f64 (/.f64 im re) im) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) | |
| 26.0% | (*.f64 (sqrt.f64 (*.f64 (/.f64 (-.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 (hypot.f64 re im) re)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) | |
| ✓ | 79.2% | (*.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
| ▶ | 7.1% | (*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
| ✓ | 49.6% | (*.f64 (sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
| 26.0% | (*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64)) | |
| ▶ | 73.8% | (*.f64 (exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) |
| 15.4% | (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal -1/2 binary64))))) | |
| 49.4% | (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) #s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im))))) | |
| 42.3% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re)))) | |
| ✓ | 52.5% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))) |
| ✓ | 50.0% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))))) |
| ▶ | 50.0% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im)))) |
| ✓ | 26.9% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))) |
| 13.5% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (pow.f64 (pow.f64 im (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) re))))) | |
| ✓ | 14.1% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))))) |
| ✓ | 16.1% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))) |
| ▶ | 13.5% | (*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64)))) |
| 49.2% | (*.f64 #s(literal 1/2 binary64) #s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)) (sqrt.f64 im)))) |
Compiled 783 to 580 computations (25.9% saved)
| Inputs |
|---|
(*.f64 (exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) |
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
(*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(log.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) |
(*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64)) |
(+.f64 (hypot.f64 re im) re) |
(hypot.f64 re im) |
re |
im |
#s(literal 2 binary64) |
#s(literal 1/2 binary64) |
(*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))) |
(*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64)) |
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) |
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) |
(neg.f64 re) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im)))) |
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im)) |
(+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im) |
(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) |
(+.f64 (/.f64 re im) #s(literal 2 binary64)) |
(/.f64 re im) |
(*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))) |
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) |
(+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) |
(sqrt.f64 (fma.f64 im im (*.f64 re re))) |
(fma.f64 im im (*.f64 re re)) |
(*.f64 re re) |
(sqrt.f64 #s(literal 2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64)))) |
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64))) |
(*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64)) |
(log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) |
(/.f64 (*.f64 im im) (neg.f64 re)) |
(*.f64 im im) |
| Outputs |
|---|
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (+ (* (sqrt im) (sqrt 2)) (* (sqrt (/ 1 im)) (/ re (sqrt 2)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (+ (* re (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (log (* 2 im))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* 1/2 (/ re im))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* re (+ (* -1/12 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* re (+ (* (pow re 2) (- (* 3/80 (/ (pow re 2) (pow im 5))) (* 1/12 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (log (* 2 im)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (* 2 im)) (/ re im)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (* 2 im)) (* re (+ (* -1/6 (/ (pow re 2) (pow im 3))) (/ 1 im)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (* 2 im)) (* re (+ (* (pow re 2) (- (* 3/40 (/ (pow re 2) (pow im 5))) (* 1/6 (/ 1 (pow im 3))))) (/ 1 im)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* 2 im))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im)) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im))))))) |
#s(approx re #s(hole binary64 re)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (neg re) #s(hole binary64 (* -1 re))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im)))))))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (* 2 im))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 im)) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (+ im (* 2 re)))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (+ im (* re (+ 2 (/ re im)))))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 2)) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (+ 2 (/ re im)))) |
#s(approx (/ re im) #s(hole binary64 (/ re im))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (sqrt im))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt im) (* 1/2 (* (sqrt (/ 1 im)) re))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) re)) (* 1/2 (sqrt (/ 1 im)))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/2 (sqrt (/ 1 im))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) re)) (* 1/8 (sqrt (/ 1 (pow im 3))))))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 im)) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im re))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im)) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im))))))) |
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow im 2))) |
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2)))) |
#s(approx (* re re) #s(hole binary64 (pow re 2))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* (sqrt im) (sqrt 2)) (* (sqrt (/ 1 im)) (/ re (sqrt 2)))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* re (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (log (* 2 im))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* 1/2 (/ re im))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* re (+ (* -1/12 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* re (+ (* (pow re 2) (- (* 3/80 (/ (pow re 2) (pow im 5))) (* 1/12 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (log (* 2 im)))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 im)) (/ re im)))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 im)) (* re (+ (* -1/6 (/ (pow re 2) (pow im 3))) (/ 1 im)))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 im)) (* re (+ (* (pow re 2) (- (* 3/40 (/ (pow re 2) (pow im 5))) (* 1/6 (/ 1 (pow im 3))))) (/ 1 im)))))) |
#s(approx (/ (* im im) (neg re)) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* 2 (sqrt re)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re))))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 4) (* -1 (log (/ 1 re))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/1440 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 4) (* -1 (log (/ 1 re)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (* 1/4 (/ (pow im 2) (pow re 2))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (+ (* 1/24 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (* 1/4 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (+ (* 1/720 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/24 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (* 1/4 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* 4 re))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re)) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (/ (pow re 2) im))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re)))))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re))))))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (/ (pow re 2) im))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re)))))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (+ (* 2 (/ 1 re)) (/ im (pow re 2))))))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ re im))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (* re (+ (/ 1 im) (* 2 (/ 1 re)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (sqrt re) (sqrt 2)))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* 2 re))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re)) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow re 2))) |
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2)))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* 2 (sqrt re)))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re))))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (+ (log 4) (* -1 (log (/ 1 re))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/1440 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (* -1 (log (/ 1 re)))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (* 1/4 (/ (pow im 2) (pow re 2))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (+ (* 1/24 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (* 1/4 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (+ (* 1/720 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/24 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (* 1/4 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* (* im (sqrt -1)) (sqrt (/ 1 re))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (+ (* 1/8 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (+ (* 1/128 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log (/ -1 re)) (log (pow im 2)))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (+ (* 1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))) (* 1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (+ (* 1/1440 (/ (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))) (* 1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (/ -1 re)) (log (pow im 2))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (/ -1 re)) (+ (log (pow im 2)) (* -1/4 (/ (pow im 2) (pow re 2))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (/ -1 re)) (+ (log (pow im 2)) (+ (* -1/4 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4)))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (/ -1 re)) (+ (log (pow im 2)) (+ (* -1/4 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (* 1/24 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im))))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -1 (/ im re)) 2) re)) (/ 1 im))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re)))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* (* im (sqrt -1)) (sqrt (/ 1 re))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* 1/8 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (+ (* 1/128 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (+ (log (/ -1 re)) (log (pow im 2)))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (+ (* 1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))) (* 1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (+ (* 1/1440 (/ (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))) (* 1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (/ -1 re)) (log (pow im 2))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (/ -1 re)) (+ (log (pow im 2)) (* -1/4 (/ (pow im 2) (pow re 2))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (/ -1 re)) (+ (log (pow im 2)) (+ (* -1/4 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4)))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (/ -1 re)) (+ (log (pow im 2)) (+ (* -1/4 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (* 1/24 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 2 (sqrt re))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* -5/64 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/64 (sqrt (/ 1 (pow re 7)))) (* 21/512 (* (pow im 2) (sqrt (/ 1 (pow re 11)))))))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (log (* 4 re))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (log (* 4 re)))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 4 re))) (* (pow im 2) (+ (* -3/64 (/ (pow im 2) (pow re 4))) (* 1/8 (/ 1 (pow re 2)))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 4 re))) (* (pow im 2) (+ (* (pow im 2) (- (* 5/192 (/ (pow im 2) (pow re 6))) (* 3/64 (/ 1 (pow re 4))))) (* 1/8 (/ 1 (pow re 2)))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (log (* 4 re)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (* 4 re)) (* 1/4 (/ (pow im 2) (pow re 2)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (* 4 re)) (* (pow im 2) (+ (* -3/32 (/ (pow im 2) (pow re 4))) (* 1/4 (/ 1 (pow re 2)))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (* 4 re)) (* (pow im 2) (+ (* (pow im 2) (- (* 5/96 (/ (pow im 2) (pow re 6))) (* 3/32 (/ 1 (pow re 4))))) (* 1/4 (/ 1 (pow re 2)))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx im #s(hole binary64 im)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (/ (+ (* im (+ im (* 2 re))) (pow re 2)) im))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ (+ re (* 2 im)) im))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (sqrt 2))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt 2)) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2))))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (sqrt 2)))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt 2)) (sqrt (/ 1 re))))))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re)))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 2 (sqrt re))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* -5/64 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/64 (sqrt (/ 1 (pow re 7)))) (* 21/512 (* (pow im 2) (sqrt (/ 1 (pow re 11)))))))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (log (* 4 re))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (log (* 4 re)))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 4 re))) (* (pow im 2) (+ (* -3/64 (/ (pow im 2) (pow re 4))) (* 1/8 (/ 1 (pow re 2)))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 4 re))) (* (pow im 2) (+ (* (pow im 2) (- (* 5/192 (/ (pow im 2) (pow re 6))) (* 3/64 (/ 1 (pow re 4))))) (* 1/8 (/ 1 (pow re 2)))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (log (* 4 re)))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 4 re)) (* 1/4 (/ (pow im 2) (pow re 2)))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 4 re)) (* (pow im 2) (+ (* -3/32 (/ (pow im 2) (pow re 4))) (* 1/4 (/ 1 (pow re 2)))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 4 re)) (* (pow im 2) (+ (* (pow im 2) (- (* 5/96 (/ (pow im 2) (pow re 6))) (* 3/32 (/ 1 (pow re 4))))) (* 1/4 (/ 1 (pow re 2)))))))) |
#s(approx (* im im) #s(hole binary64 (pow im 2))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* im (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im)))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (pow im 3))) (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 2) (* -1 (log (/ 1 im)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (/ re im))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* 1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (pow im 3))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (* im (+ 1 (* 2 (/ re im)))))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (* im (+ 1 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (/ re im))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2)))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* im (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im)))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (pow im 3))) (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (* -1 (log (/ 1 im)))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (/ re im))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im)))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* 1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (pow im 3))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* im (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/2 (/ re im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) im)) (* 1/2 re)) im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) im)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2)))) im)) (* 1/2 re)) im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 2) (* -1 (log (/ -1 im)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ re im)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) im))) im)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1 (/ (+ (* -1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) im)) (* 1/2 (+ (* -1 (pow re 2)) (pow re 2)))) im))) im)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -2 im))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im))))))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2))))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2))))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 1))))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 1))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* (sqrt im) (sqrt -1))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt -1)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt -1)))) (* 1/4 (* (sqrt im) (* (pow re 2) (sqrt -1))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 im))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* -1 (* im (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/2 (/ re im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) im)) (* 1/2 re)) im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) im)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2)))) im)) (* 1/2 re)) im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (* -1 (log (/ -1 im)))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ re im)))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) im))) im)))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1 (/ (+ (* -1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) im)) (* 1/2 (+ (* -1 (pow re 2)) (pow re 2)))) im))) im)))))) |
6 calls:
| Time | Variable | Point | Expression | |
|---|---|---|---|---|
| 29.0ms | re | @ | inf | ((* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im 2 1/2 (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (+ (* (+ (/ re im) 2) re) im) im) (+ (* (+ (/ re im) 2) re) im) (+ (/ re im) 2) (/ re im) (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (sqrt 2) (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) (neg re)) (* im im)) |
| 5.0ms | re | @ | -inf | ((* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im 2 1/2 (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (+ (* (+ (/ re im) 2) re) im) im) (+ (* (+ (/ re im) 2) re) im) (+ (/ re im) 2) (/ re im) (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (sqrt 2) (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) (neg re)) (* im im)) |
| 4.0ms | re | @ | 0 | ((* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im 2 1/2 (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (+ (* (+ (/ re im) 2) re) im) im) (+ (* (+ (/ re im) 2) re) im) (+ (/ re im) 2) (/ re im) (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (sqrt 2) (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) (neg re)) (* im im)) |
| 4.0ms | im | @ | inf | ((* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im 2 1/2 (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (+ (* (+ (/ re im) 2) re) im) im) (+ (* (+ (/ re im) 2) re) im) (+ (/ re im) 2) (/ re im) (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (sqrt 2) (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) (neg re)) (* im im)) |
| 4.0ms | im | @ | 0 | ((* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) re im 2 1/2 (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (* (+ (sqrt (+ (* re re) (* im im))) re) 2) (+ (sqrt (+ (* re re) (* im im))) re) (sqrt (+ (* re re) (* im im))) (neg re) (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+ (+ (* (+ (/ re im) 2) re) im) im) (+ (* (+ (/ re im) 2) re) im) (+ (/ re im) 2) (/ re im) (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (+ (sqrt (+ (* im im) (* re re))) re) (sqrt (+ (* im im) (* re re))) (+ (* im im) (* re re)) (* re re) (sqrt 2) (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/ (* im im) (neg re)) (* im im)) |
Useful iterations: 0 (0.0ms)
| Iter | Nodes | Cost |
|---|---|---|
| 0 | 1595 | 20340 |
| 0 | 1642 | 17038 |
| 0 | 8285 | 16334 |
| 1× | iter-limit |
| 1× | node-limit |
| 1× | iter-limit |
| Inputs |
|---|
(*.f64 (exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) |
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
(*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(log.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) |
(*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64)) |
(+.f64 (hypot.f64 re im) re) |
(hypot.f64 re im) |
re |
im |
#s(literal 2 binary64) |
#s(literal 1/2 binary64) |
(*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))) |
(*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64)) |
(+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) |
#s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) |
(neg.f64 re) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im)))) |
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im)) |
(+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im) |
(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) |
(+.f64 (/.f64 re im) #s(literal 2 binary64)) |
(/.f64 re im) |
(*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))) |
(sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) |
(+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re) |
(sqrt.f64 (fma.f64 im im (*.f64 re re))) |
(fma.f64 im im (*.f64 re re)) |
(*.f64 re re) |
(sqrt.f64 #s(literal 2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64)))) |
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64))) |
(*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64)) |
(log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) |
(/.f64 (*.f64 im im) (neg.f64 re)) |
(*.f64 im im) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (+ (* (sqrt im) (sqrt 2)) (* (sqrt (/ 1 im)) (/ re (sqrt 2)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (+ (* re (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (log (* 2 im))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* 1/2 (/ re im))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* re (+ (* -1/12 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* re (+ (* (pow re 2) (- (* 3/80 (/ (pow re 2) (pow im 5))) (* 1/12 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (log (* 2 im)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (* 2 im)) (/ re im)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (* 2 im)) (* re (+ (* -1/6 (/ (pow re 2) (pow im 3))) (/ 1 im)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (* 2 im)) (* re (+ (* (pow re 2) (- (* 3/40 (/ (pow re 2) (pow im 5))) (* 1/6 (/ 1 (pow im 3))))) (/ 1 im)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* 2 im))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 im)) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im))))))) |
#s(approx re #s(hole binary64 re)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (neg re) #s(hole binary64 (* -1 re))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 2 im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (* re (+ (* -1/4 (/ (pow re 2) (pow im 3))) (/ 1 im)))))))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (* 2 im))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (+ (* 2 im) (* 2 re)))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (+ (* 2 im) (* re (+ 2 (/ re im)))))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 im)) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (+ im (* 2 re)))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (+ im (* re (+ 2 (/ re im)))))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 2)) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (+ 2 (/ re im)))) |
#s(approx (/ re im) #s(hole binary64 (/ re im))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/2 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/8 (* (sqrt (/ 1 (pow im 3))) (sqrt 2))))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (sqrt im))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt im) (* 1/2 (* (sqrt (/ 1 im)) re))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/8 (* (sqrt (/ 1 (pow im 3))) re)) (* 1/2 (sqrt (/ 1 im)))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (sqrt im) (* re (+ (* 1/2 (sqrt (/ 1 im))) (* re (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) re)) (* 1/8 (sqrt (/ 1 (pow im 3))))))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 im)) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im re))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* 1/2 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ im (* re (+ 1 (* re (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 im)) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* 1/2 (/ (pow re 2) im))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* -1/8 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ im (* (pow re 2) (+ (* (pow re 2) (- (* 1/16 (/ (pow re 2) (pow im 5))) (* 1/8 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im))))))) |
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow im 2))) |
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (+ (pow im 2) (pow re 2)))) |
#s(approx (* re re) #s(hole binary64 (pow re 2))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* 1/2 (* (sqrt im) (sqrt 2))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/4 (* (sqrt (/ 1 im)) (* re (sqrt 2)))) (* 1/2 (* (sqrt im) (sqrt 2)))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/16 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt im) (sqrt 2))) (* re (+ (* 1/4 (* (sqrt (/ 1 im)) (sqrt 2))) (* re (+ (* -1/32 (* (sqrt (/ 1 (pow im 5))) (* re (sqrt 2)))) (* 1/16 (* (sqrt (/ 1 (pow im 3))) (sqrt 2)))))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* (sqrt im) (sqrt 2)))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* (sqrt im) (sqrt 2)) (* (sqrt (/ 1 im)) (/ re (sqrt 2)))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2))))) (sqrt 2)))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* re (+ (* re (+ (* 1/2 (* (sqrt (/ 1 im)) (/ (* re (- (/ 1 (* (pow im 2) (pow (sqrt 2) 4))) (/ 1 (* (pow im 2) (pow (sqrt 2) 2))))) (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (/ (- (/ 1 im) (/ 1 (* im (pow (sqrt 2) 2)))) (sqrt 2)))))) (* (sqrt (/ 1 im)) (/ 1 (sqrt 2))))) (* (sqrt im) (sqrt 2))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (log (* 2 im))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* 1/2 (/ re im))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* re (+ (* -1/12 (/ (pow re 2) (pow im 3))) (* 1/2 (/ 1 im))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 2 im))) (* re (+ (* (pow re 2) (- (* 3/80 (/ (pow re 2) (pow im 5))) (* 1/12 (/ 1 (pow im 3))))) (* 1/2 (/ 1 im))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (log (* 2 im)))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 im)) (/ re im)))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 im)) (* re (+ (* -1/6 (/ (pow re 2) (pow im 3))) (/ 1 im)))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 2 im)) (* re (+ (* (pow re 2) (- (* 3/40 (/ (pow re 2) (pow im 5))) (* 1/6 (/ 1 (pow im 3))))) (/ 1 im)))))) |
#s(approx (/ (* im im) (neg re)) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* 2 (sqrt re)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re))))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 4) (* -1 (log (/ 1 re))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/1440 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 4) (* -1 (log (/ 1 re)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (* 1/4 (/ (pow im 2) (pow re 2))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (+ (* 1/24 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (* 1/4 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (+ (* 1/720 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/24 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (* 1/4 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* 4 re))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* 2 re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 re)) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2)))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2)))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* 4 re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (/ (pow im 2) (pow re 2)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (/ (pow im 2) (pow re 2))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* re (+ 4 (+ (* -1/4 (/ (pow im 4) (pow re 4))) (+ (* 1/8 (/ (pow im 6) (pow re 6))) (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (/ (pow re 2) im))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re)))))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (* (pow re 2) (+ (* 2 (/ im (pow re 2))) (+ (/ 1 im) (* 2 (/ 1 re))))))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (/ (pow re 2) im))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (* 2 (/ 1 re)))))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (* (pow re 2) (+ (/ 1 im) (+ (* 2 (/ 1 re)) (/ im (pow re 2))))))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ re im))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (* re (+ (/ 1 im) (* 2 (/ 1 re)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* (sqrt re) (pow (sqrt 2) 2)))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (sqrt re) (sqrt 2)))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* re (+ (* -1/16 (* (/ (pow im 4) (sqrt 2)) (sqrt (/ 1 (pow re 9))))) (+ (* -1/32 (* (/ (pow im 4) (pow (sqrt 2) 3)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 5))))) (* (sqrt (/ 1 re)) (sqrt 2)))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* 2 re))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* re (+ 2 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 re)) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (pow re 2))) |
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow re 2) (+ 1 (/ (pow im 2) (pow re 2)))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* re (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2)))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* re (+ (* -1/32 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (/ (pow im 4) (pow (sqrt 2) 2)) (sqrt (/ 1 (pow re 9))))) (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (sqrt (/ 1 re)) (pow (sqrt 2) 2))))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* 2 (sqrt re)))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* re (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re)))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* re (+ (* -1/16 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* -1/64 (* (pow im 4) (sqrt (/ 1 (pow re 9))))) (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 5))))) (* 2 (sqrt (/ 1 re))))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (+ (log 4) (* -1 (log (/ 1 re))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re))))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/1440 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/48 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log 4) (* -1 (log (/ 1 re)))))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (* -1 (log (/ 1 re)))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (* 1/4 (/ (pow im 2) (pow re 2))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (+ (* 1/24 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (* 1/4 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 4) (+ (* -1 (log (/ 1 re))) (+ (* 1/720 (/ (+ (* 15/4 (pow im 6)) (+ (* 45/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/24 (/ (+ (* -3/2 (pow im 4)) (* -3/4 (pow im 4))) (pow re 4))) (* 1/4 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* (* im (sqrt -1)) (sqrt (/ 1 re))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (+ (* 1/8 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (+ (* 1/128 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log (/ -1 re)) (log (pow im 2)))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (+ (* 1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))) (* 1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (+ (* 1/1440 (/ (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))) (* 1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (/ -1 re)) (log (pow im 2))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (/ -1 re)) (+ (log (pow im 2)) (* -1/4 (/ (pow im 2) (pow re 2))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (/ -1 re)) (+ (log (pow im 2)) (+ (* -1/4 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4)))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (/ -1 re)) (+ (log (pow im 2)) (+ (* -1/4 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (* 1/24 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 re))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (pow im 2) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (pow im 2)) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2))) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/4 (/ (pow im 4) (pow re 2))) (+ (* 1/8 (/ (pow im 6) (pow re 4))) (pow im 2)))) re)))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -2 (/ im re)) 2) re)) (/ 1 im))))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (* (pow re 2) (+ (* -1 (/ (- (* -1 (/ im re)) 2) re)) (/ 1 im))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/16 (* (/ (* (pow im 3) (sqrt -1)) (sqrt 1/2)) (sqrt re))) (+ (* 1/512 (* (/ (* (pow im 5) (sqrt -1)) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/32 (* (/ (* (pow im 5) (sqrt -1)) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (* (sqrt -1) (sqrt 1/2))) (sqrt (/ 1 re)))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1/2 (/ (pow im 2) re)))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (* 1/2 (pow im 2))) re)))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2)))) re)))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (/ (+ (* -1/2 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow re 6))) (+ (* -1/8 (/ (pow im 4) (pow re 2))) (+ (* 1/16 (/ (pow im 6) (pow re 4))) (* 1/2 (pow im 2))))) re)))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 re))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (* 1/2 (/ (pow im 2) (pow re 2)))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (* 1/2 (/ (pow im 2) (pow re 2))))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* re (+ 1 (+ (* -1/8 (/ (pow im 4) (pow re 4))) (+ (* 1/16 (/ (pow im 6) (pow re 6))) (* 1/2 (/ (pow im 2) (pow re 2)))))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re)))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 5))))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/32 (* (/ (* (pow im 3) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt re))) (+ (* 1/1024 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (pow (sqrt 1/2) 3)) (sqrt (/ 1 (pow re 3))))) (* 1/64 (* (/ (* (pow im 5) (* (sqrt -1) (sqrt 2))) (sqrt 1/2)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* 1/2 (* (* im (* (sqrt -1) (* (sqrt 1/2) (sqrt 2)))) (sqrt (/ 1 re))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* (* im (sqrt -1)) (sqrt (/ 1 re))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* 1/8 (* (* (pow im 3) (sqrt -1)) (sqrt (/ 1 (pow re 5))))) (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3)))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* -1 (/ (+ (* -1/8 (* (* (pow im 3) (sqrt -1)) (sqrt re))) (+ (* 1/128 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))) (* 1/16 (* (* (pow im 5) (sqrt -1)) (sqrt (/ 1 (pow re 3))))))) (pow re 3))) (* (* im (sqrt -1)) (sqrt (/ 1 re)))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (+ (log (/ -1 re)) (log (pow im 2)))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (+ (log (/ -1 re)) (log (pow im 2))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (+ (* 1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))) (* 1/2 (+ (log (/ -1 re)) (log (pow im 2)))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/8 (/ (pow im 2) (pow re 2))) (+ (* 1/1440 (/ (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (+ (* 1/48 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))) (* 1/2 (+ (log (/ -1 re)) (log (pow im 2))))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (/ -1 re)) (log (pow im 2))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (/ -1 re)) (+ (log (pow im 2)) (* -1/4 (/ (pow im 2) (pow re 2))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (/ -1 re)) (+ (log (pow im 2)) (+ (* -1/4 (/ (pow im 2) (pow re 2))) (* 1/24 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4)))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (/ -1 re)) (+ (log (pow im 2)) (+ (* -1/4 (/ (pow im 2) (pow re 2))) (+ (* 1/720 (/ (+ (* -720 (/ (+ (* 1/64 (pow im 8)) (* 1/16 (pow im 8))) (pow im 2))) (+ (* -15/4 (pow im 6)) (* 45/2 (pow im 6)))) (pow re 6))) (* 1/24 (/ (+ (* -3/4 (pow im 4)) (* 3 (pow im 4))) (pow re 4))))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 2 (sqrt re))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* -5/64 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/64 (sqrt (/ 1 (pow re 7)))) (* 21/512 (* (pow im 2) (sqrt (/ 1 (pow re 11)))))))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (log (* 4 re))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (log (* 4 re)))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 4 re))) (* (pow im 2) (+ (* -3/64 (/ (pow im 2) (pow re 4))) (* 1/8 (/ 1 (pow re 2)))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 4 re))) (* (pow im 2) (+ (* (pow im 2) (- (* 5/192 (/ (pow im 2) (pow re 6))) (* 3/64 (/ 1 (pow re 4))))) (* 1/8 (/ 1 (pow re 2)))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (log (* 4 re)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (* 4 re)) (* 1/4 (/ (pow im 2) (pow re 2)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (* 4 re)) (* (pow im 2) (+ (* -3/32 (/ (pow im 2) (pow re 4))) (* 1/4 (/ 1 (pow re 2)))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log (* 4 re)) (* (pow im 2) (+ (* (pow im 2) (- (* 5/96 (/ (pow im 2) (pow re 6))) (* 3/32 (/ 1 (pow re 4))))) (* 1/4 (/ 1 (pow re 2)))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re)))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx im #s(hole binary64 im)) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (/ (pow im 2) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* -1/4 (/ (pow im 2) (pow re 3))) (/ 1 re)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (+ (* 4 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/8 (/ (pow im 2) (pow re 5))) (* 1/4 (/ 1 (pow re 3))))) (/ 1 re)))))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (/ (+ (* im (+ (* 2 im) (* 2 re))) (pow re 2)) im))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (/ (+ (* 2 (* im re)) (pow re 2)) im))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (/ (+ (* im (+ im (* 2 re))) (pow re 2)) im))) |
#s(approx (+ (/ re im) 2) #s(hole binary64 (/ (+ re (* 2 im)) im))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (pow (sqrt 2) 2))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* -1/2 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (+ (* (sqrt re) (pow (sqrt 2) 2)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/2 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* 1/4 (* (/ (pow im 2) (sqrt 2)) (sqrt (/ 1 (pow re 3))))) (* (sqrt re) (sqrt 2))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* -1/2 (* (/ (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt 2)) (sqrt (/ 1 re)))) (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2))))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (+ (* (sqrt re) (sqrt 2)) (* (pow im 2) (+ (* 1/4 (* (sqrt (/ 1 (pow re 3))) (/ 1 (sqrt 2)))) (* (pow im 2) (+ (* -1/2 (* (sqrt (/ 1 re)) (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (sqrt 2)))) (* 1/2 (* (/ (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt 2)) (sqrt (/ 1 re))))))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 1/2 (/ (pow im 2) re)) (* 2 re)))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (+ (* 2 re) (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* 1/2 (/ (pow im 2) re))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* -1/8 (/ (pow im 2) (pow re 3))) (* 1/2 (/ 1 re))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (+ re (* (pow im 2) (+ (* (pow im 2) (- (* 1/16 (/ (pow im 2) (pow re 5))) (* 1/8 (/ 1 (pow re 3))))) (* 1/2 (/ 1 re))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/8 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 1/2 (* (sqrt re) (pow (sqrt 2) 2)))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* -1/4 (* (* (pow im 2) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3))))) (sqrt (/ 1 re)))) (* 1/8 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (+ (* 1/2 (* (sqrt re) (pow (sqrt 2) 2))) (* (pow im 2) (+ (* 1/8 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -1/4 (* (sqrt (/ 1 re)) (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))))) (* 1/4 (* (* (pow im 2) (- (* 1/16 (/ 1 (pow re 5))) (* -1/4 (/ (+ (* 1/16 (/ 1 (* (pow re 3) (pow (sqrt 2) 2)))) (* 1/8 (/ 1 (pow re 3)))) (* (pow re 2) (pow (sqrt 2) 2)))))) (sqrt (/ 1 re))))))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* 1/4 (* (pow im 2) (sqrt (/ 1 (pow re 3))))) (* 2 (sqrt re))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* -5/64 (* (pow im 2) (sqrt (/ 1 (pow re 7))))) (* 1/4 (sqrt (/ 1 (pow re 3))))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (+ (* 2 (sqrt re)) (* (pow im 2) (+ (* 1/4 (sqrt (/ 1 (pow re 3)))) (* (pow im 2) (+ (* -5/64 (sqrt (/ 1 (pow re 7)))) (* 21/512 (* (pow im 2) (sqrt (/ 1 (pow re 11)))))))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (log (* 4 re))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/8 (/ (pow im 2) (pow re 2))) (* 1/2 (log (* 4 re)))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 4 re))) (* (pow im 2) (+ (* -3/64 (/ (pow im 2) (pow re 4))) (* 1/8 (/ 1 (pow re 2)))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (log (* 4 re))) (* (pow im 2) (+ (* (pow im 2) (- (* 5/192 (/ (pow im 2) (pow re 6))) (* 3/64 (/ 1 (pow re 4))))) (* 1/8 (/ 1 (pow re 2)))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (log (* 4 re)))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 4 re)) (* 1/4 (/ (pow im 2) (pow re 2)))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 4 re)) (* (pow im 2) (+ (* -3/32 (/ (pow im 2) (pow re 4))) (* 1/4 (/ 1 (pow re 2)))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log (* 4 re)) (* (pow im 2) (+ (* (pow im 2) (- (* 5/96 (/ (pow im 2) (pow re 6))) (* 3/32 (/ 1 (pow re 4))))) (* 1/4 (/ 1 (pow re 2)))))))) |
#s(approx (* im im) #s(hole binary64 (pow im 2))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* im (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im)))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* 1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (pow im 3))) (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 2) (* -1 (log (/ 1 im)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (/ re im))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* 1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (pow im 3))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (/ re im))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* im (+ 2 (+ (* -1/4 (/ (pow re 4) (pow im 4))) (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2)))))))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (* im (+ 2 (* 2 (/ re im)))))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (* im (+ 2 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (* im (+ 1 (* 2 (/ re im)))))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (* im (+ 1 (+ (* 2 (/ re im)) (/ (pow re 2) (pow im 2))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* im (+ (sqrt (/ 1 im)) (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 5))) (pow re 2))) (* 1/2 (* (sqrt (/ 1 (pow im 3))) re)))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (/ re im))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im)))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/2 (/ (pow re 2) (pow im 2))) (/ re im))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (+ (* im im) (* re re)) #s(hole binary64 (* (pow im 2) (+ 1 (/ (pow re 2) (pow im 2)))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* im (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2)))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* im (+ (* -1/16 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt 2)))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt 2)))) (* 1/2 (* (sqrt (/ 1 im)) (sqrt 2))))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* im (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2)))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (pow (sqrt 2) 3)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 5))) (/ (pow re 2) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (sqrt 2)) (* (sqrt (/ 1 (pow im 3))) (/ re (sqrt 2))))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im)))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* 1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (pow im 3))) (+ (* 1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (+ (* 1/2 (+ (log 2) (* -1 (log (/ 1 im))))) (* 1/2 (/ re im))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (* -1 (log (/ 1 im)))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (/ re im))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im)))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ 1 im))) (+ (* 1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) (pow im 3))) (+ (* 1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) (pow im 2))) (/ re im))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* im (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1/2 (/ re im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) im)) (* 1/2 re)) im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) im)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2)))) im)) (* 1/2 re)) im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 2) (* -1 (log (/ -1 im)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ re im)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) im))) im)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1 (/ (+ (* -1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) im)) (* 1/2 (+ (* -1 (pow re 2)) (pow re 2)))) im))) im)))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -2 im))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im))))))) |
#s(approx (* (+ (sqrt (+ (* re re) (* im im))) re) 2) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 im))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 im))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (sqrt (+ (* re re) (* im im))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (sqrt (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* 1/2 (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re)))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (sqrt (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -2 im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -2 (/ re im))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (pow re 2) im)) (* 2 re)) im))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) #s(hole binary64 (* -1 (* im (+ 2 (* -1 (/ (+ (* -1 (/ (+ (* -1/4 (/ (pow re 4) (pow im 2))) (pow re 2)) im)) (* 2 re)) im))))))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 2))))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 2))))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (* -1 (* im (- (* -2 (/ re im)) 1))))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) #s(hole binary64 (* -1 (* im (- (* -1 (/ (+ (* 2 re) (/ (pow re 2) im)) im)) 1))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) 1/2) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt 2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/4 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* (sqrt im) (sqrt -1))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ (* -1/4 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (sqrt -1)))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/8 (* (sqrt im) (* (pow re 2) (sqrt -1)))) (* 1/4 (* (sqrt im) (* (pow re 2) (sqrt -1))))) (pow im 3))) (+ (* 1/2 (* (sqrt (/ 1 (pow im 3))) (* re (sqrt -1)))) (* (sqrt (/ 1 im)) (sqrt -1)))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 im))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ re im))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1/2 (/ (pow re 2) im))) im))))))) |
#s(approx (+ (sqrt (+ (* im im) (* re re))) re) #s(hole binary64 (* -1 (* im (+ 1 (* -1 (/ (+ re (* -1 (/ (+ (* -1/8 (/ (pow re 4) (pow im 2))) (* 1/2 (pow re 2))) im))) im))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 im))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (* 1/2 (/ (pow re 2) (pow im 2)))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (* 1/2 (/ (pow re 2) (pow im 2))))))))) |
#s(approx (sqrt (+ (* im im) (* re re))) #s(hole binary64 (* -1 (* im (+ 1 (+ (* -1/8 (/ (pow re 4) (pow im 4))) (+ (* 1/16 (/ (pow re 6) (pow im 6))) (* 1/2 (/ (pow re 2) (pow im 2)))))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* -1/2 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* -1 (* im (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* -1 (* im (+ (* -1/8 (* (sqrt (/ 1 (pow im 5))) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (* 1/2 (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2))) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/16 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2))))) (* 1/8 (* (sqrt im) (* (pow re 2) (* (sqrt -1) (sqrt 2)))))) (pow im 3))) (+ (* 1/4 (* (sqrt (/ 1 (pow im 3))) (* re (* (sqrt -1) (sqrt 2))))) (* 1/2 (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2)))))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* -1 (* (sqrt im) (* (sqrt -1) (sqrt 2)))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* -1 (* im (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2)))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1/2 (* (sqrt (/ 1 (pow im 5))) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))) |
#s(approx (exp (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2)) #s(hole binary64 (* -1 (* im (+ (* -1 (/ (+ (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (sqrt 2)))) (* 1/2 (* (sqrt im) (/ (* (pow re 2) (sqrt -1)) (pow (sqrt 2) 3))))) (pow im 3))) (+ (* (sqrt (/ 1 im)) (* (sqrt -1) (sqrt 2))) (* (sqrt (/ 1 (pow im 3))) (/ (* re (sqrt -1)) (sqrt 2))))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (* 1/2 (+ (log 2) (* -1 (log (/ -1 im))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1/2 (/ re im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1/4 (/ (+ (* -1 (pow re 2)) (pow re 2)) im)) (* 1/2 re)) im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) |
#s(approx (* (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) 1/2) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1/12 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) im)) (* 1/4 (+ (* -1 (pow re 2)) (pow re 2)))) im)) (* 1/2 re)) im)) (* 1/2 (+ (log 2) (* -1 (log (/ -1 im)))))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (* -1 (log (/ -1 im)))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ re im)))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1/2 (/ (+ (* -1 (pow re 2)) (pow re 2)) im))) im)))))) |
#s(approx (log (* 2 (+ (sqrt (+ (* re re) (* im im))) re))) #s(hole binary64 (+ (log 2) (+ (* -1 (log (/ -1 im))) (* -1 (/ (+ re (* -1 (/ (+ (* -1/6 (/ (+ (* -3 (pow re 3)) (* 2 (pow re 3))) im)) (* 1/2 (+ (* -1 (pow re 2)) (pow re 2)))) im))) im)))))) |
| Outputs |
|---|
(*.f64 (sqrt.f64 (+.f64 (hypot.f64 im re) re)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) |
(*.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)))) |
(*.f64 (sqrt.f64 (+.f64 (hypot.f64 im re) re)) (sqrt.f64 #s(literal 2 binary64))) |
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (hypot.f64 im re) re))) |
(pow.f64 (exp.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) |
(pow.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) |
(sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) |
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
(+.f64 (cosh.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (sinh.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
(*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (log.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)))) |
(+.f64 (log.f64 (+.f64 (hypot.f64 im re) re)) (log.f64 #s(literal 2 binary64))) |
(+.f64 (log.f64 #s(literal 2 binary64)) (log.f64 (+.f64 (hypot.f64 im re) re))) |
(log.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) |
(*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) |
(*.f64 #s(literal 2 binary64) (+.f64 (hypot.f64 im re) re)) |
(fma.f64 (hypot.f64 im re) #s(literal 2 binary64) (*.f64 #s(literal 2 binary64) re)) |
(fma.f64 #s(literal 2 binary64) (hypot.f64 im re) (*.f64 #s(literal 2 binary64) re)) |
(+.f64 (*.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) re)) |
(+.f64 (*.f64 #s(literal 2 binary64) (hypot.f64 im re)) (*.f64 #s(literal 2 binary64) re)) |
(+.f64 (+.f64 (hypot.f64 im re) re) (+.f64 (hypot.f64 im re) re)) |
(/.f64 (-.f64 (*.f64 (hypot.f64 im re) (hypot.f64 im re)) (*.f64 re re)) (-.f64 (hypot.f64 im re) re)) |
(/.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 (hypot.f64 im re) (hypot.f64 im re) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 im re) re)))) |
(+.f64 (hypot.f64 im re) re) |
(+.f64 re (hypot.f64 im re)) |
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64)) |
(sqrt.f64 (fma.f64 im im (*.f64 re re))) |
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64))) |
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 im)) |
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 im)) |
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) im) |
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64))) |
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 re)) |
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 re)) |
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) re) |
(hypot.f64 (neg.f64 im) (pow.f64 re #s(literal 1 binary64))) |
(hypot.f64 (neg.f64 im) (fabs.f64 re)) |
(hypot.f64 (neg.f64 im) (neg.f64 re)) |
(hypot.f64 (neg.f64 im) re) |
(hypot.f64 (fabs.f64 im) (pow.f64 re #s(literal 1 binary64))) |
(hypot.f64 (fabs.f64 im) (fabs.f64 re)) |
(hypot.f64 (fabs.f64 im) (neg.f64 re)) |
(hypot.f64 (fabs.f64 im) re) |
(hypot.f64 (fabs.f64 re) (pow.f64 im #s(literal 1 binary64))) |
(hypot.f64 (fabs.f64 re) (neg.f64 im)) |
(hypot.f64 (fabs.f64 re) (fabs.f64 im)) |
(hypot.f64 (fabs.f64 re) im) |
(hypot.f64 (neg.f64 re) (pow.f64 im #s(literal 1 binary64))) |
(hypot.f64 (neg.f64 re) (neg.f64 im)) |
(hypot.f64 (neg.f64 re) (fabs.f64 im)) |
(hypot.f64 (neg.f64 re) im) |
(hypot.f64 im (pow.f64 re #s(literal 1 binary64))) |
(hypot.f64 im (fabs.f64 re)) |
(hypot.f64 im (neg.f64 re)) |
(hypot.f64 im re) |
(hypot.f64 re (pow.f64 im #s(literal 1 binary64))) |
(hypot.f64 re (neg.f64 im)) |
(hypot.f64 re (fabs.f64 im)) |
(hypot.f64 re im) |
re |
im |
#s(literal 2 binary64) |
#s(literal 1/2 binary64) |
(*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re) #s(literal 2 binary64)))) |
(*.f64 (sqrt.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re)) (sqrt.f64 #s(literal 2 binary64))) |
(pow.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) |
(sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re) #s(literal 2 binary64))) |
(*.f64 (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re) #s(literal 2 binary64)) |
(*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re)) |
(/.f64 (-.f64 (*.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re))) (*.f64 re re)) (-.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re)) |
(/.f64 (+.f64 (pow.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) (-.f64 (*.f64 re re) (*.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re)))) |
(+.f64 #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) re) |
(+.f64 re #s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re))) |
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) |
(*.f64 #s(literal -1 binary64) re) |
(*.f64 re #s(literal -1 binary64)) |
(neg.f64 re) |
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))))) |
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) #s(literal 1/2 binary64)) |
(sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) |
(/.f64 (-.f64 (*.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 #s(literal 2 binary64) im)) (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))) (-.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))) |
(/.f64 (-.f64 (*.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im)) (*.f64 im im)) (-.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im)) |
(/.f64 (+.f64 (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 3 binary64)) (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 3 binary64))) (fma.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 #s(literal 2 binary64) im) (-.f64 (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) (*.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))))) |
(/.f64 (+.f64 (pow.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (fma.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) (-.f64 (*.f64 im im) (*.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im)))) |
(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im)) |
(fma.f64 #s(literal 2 binary64) im (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) |
(fma.f64 im #s(literal 2 binary64) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) |
(fma.f64 re (+.f64 (/.f64 re im) #s(literal 2 binary64)) (*.f64 #s(literal 2 binary64) im)) |
(-.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 (neg.f64 re) (+.f64 (/.f64 re im) #s(literal 2 binary64)))) |
(+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im) |
(+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 #s(literal 2 binary64) im)) |
(+.f64 (*.f64 #s(literal 2 binary64) im) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) |
(+.f64 im (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im)) |
(/.f64 (-.f64 (*.f64 im im) (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))) (-.f64 im (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))) |
(/.f64 (-.f64 (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) (*.f64 im im)) (-.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) im)) |
(/.f64 (+.f64 (pow.f64 im #s(literal 3 binary64)) (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 3 binary64))) (fma.f64 im im (-.f64 (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) (*.f64 im (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re))))) |
(/.f64 (+.f64 (pow.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) #s(literal 3 binary64)) (pow.f64 im #s(literal 3 binary64))) (fma.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) (-.f64 (*.f64 im im) (*.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) im)))) |
(fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) |
(fma.f64 re (+.f64 (/.f64 re im) #s(literal 2 binary64)) im) |
(-.f64 im (*.f64 (neg.f64 re) (+.f64 (/.f64 re im) #s(literal 2 binary64)))) |
(+.f64 (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re) im) |
(+.f64 im (*.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re)) |
(/.f64 (-.f64 (*.f64 (/.f64 re im) (/.f64 re im)) #s(literal 4 binary64)) (-.f64 (/.f64 re im) #s(literal 2 binary64))) |
(/.f64 (-.f64 #s(literal 4 binary64) (*.f64 (/.f64 re im) (/.f64 re im))) (-.f64 #s(literal 2 binary64) (/.f64 re im))) |
(/.f64 (+.f64 (pow.f64 (/.f64 re im) #s(literal 3 binary64)) #s(literal 8 binary64)) (fma.f64 (/.f64 re im) (/.f64 re im) (-.f64 #s(literal 4 binary64) (*.f64 (/.f64 re im) #s(literal 2 binary64))))) |
(/.f64 (+.f64 #s(literal 8 binary64) (pow.f64 (/.f64 re im) #s(literal 3 binary64))) (+.f64 #s(literal 4 binary64) (-.f64 (*.f64 (/.f64 re im) (/.f64 re im)) (*.f64 (/.f64 re im) #s(literal 2 binary64))))) |
(+.f64 (/.f64 re im) #s(literal 2 binary64)) |
(+.f64 #s(literal 2 binary64) (/.f64 re im)) |
(/.f64 (neg.f64 re) (neg.f64 im)) |
(/.f64 re im) |
(*.f64 (sqrt.f64 (+.f64 (hypot.f64 im re) re)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal 1/2 binary64))) |
(*.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)))) |
(*.f64 (sqrt.f64 (+.f64 (hypot.f64 im re) re)) (sqrt.f64 #s(literal 2 binary64))) |
(*.f64 (sqrt.f64 #s(literal 2 binary64)) (sqrt.f64 (+.f64 (hypot.f64 im re) re))) |
(pow.f64 (exp.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)))) #s(literal 1/2 binary64)) |
(pow.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64)) #s(literal 1/2 binary64)) |
(sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) |
(exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
(+.f64 (cosh.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))) (sinh.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
(pow.f64 (+.f64 (hypot.f64 im re) re) #s(literal 1/2 binary64)) |
(sqrt.f64 (+.f64 (hypot.f64 im re) re)) |
(/.f64 (-.f64 (*.f64 (hypot.f64 im re) (hypot.f64 im re)) (*.f64 re re)) (-.f64 (hypot.f64 im re) re)) |
(/.f64 (+.f64 (pow.f64 (hypot.f64 im re) #s(literal 3 binary64)) (pow.f64 re #s(literal 3 binary64))) (fma.f64 (hypot.f64 im re) (hypot.f64 im re) (-.f64 (*.f64 re re) (*.f64 (hypot.f64 im re) re)))) |
(+.f64 (hypot.f64 im re) re) |
(+.f64 re (hypot.f64 im re)) |
(pow.f64 (fma.f64 im im (*.f64 re re)) #s(literal 1/2 binary64)) |
(sqrt.f64 (fma.f64 im im (*.f64 re re))) |
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64))) |
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (neg.f64 im)) |
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) (fabs.f64 im)) |
(hypot.f64 (pow.f64 re #s(literal 1 binary64)) im) |
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64))) |
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (fabs.f64 re)) |
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) (neg.f64 re)) |
(hypot.f64 (pow.f64 im #s(literal 1 binary64)) re) |
(hypot.f64 (neg.f64 im) (pow.f64 re #s(literal 1 binary64))) |
(hypot.f64 (neg.f64 im) (fabs.f64 re)) |
(hypot.f64 (neg.f64 im) (neg.f64 re)) |
(hypot.f64 (neg.f64 im) re) |
(hypot.f64 (fabs.f64 im) (pow.f64 re #s(literal 1 binary64))) |
(hypot.f64 (fabs.f64 im) (fabs.f64 re)) |
(hypot.f64 (fabs.f64 im) (neg.f64 re)) |
(hypot.f64 (fabs.f64 im) re) |
(hypot.f64 (fabs.f64 re) (pow.f64 im #s(literal 1 binary64))) |
(hypot.f64 (fabs.f64 re) (neg.f64 im)) |
(hypot.f64 (fabs.f64 re) (fabs.f64 im)) |
(hypot.f64 (fabs.f64 re) im) |
(hypot.f64 (neg.f64 re) (pow.f64 im #s(literal 1 binary64))) |
(hypot.f64 (neg.f64 re) (neg.f64 im)) |
(hypot.f64 (neg.f64 re) (fabs.f64 im)) |
(hypot.f64 (neg.f64 re) im) |
(hypot.f64 im (pow.f64 re #s(literal 1 binary64))) |
(hypot.f64 im (fabs.f64 re)) |
(hypot.f64 im (neg.f64 re)) |
(hypot.f64 im re) |
(hypot.f64 re (pow.f64 im #s(literal 1 binary64))) |
(hypot.f64 re (neg.f64 im)) |
(hypot.f64 re (fabs.f64 im)) |
(hypot.f64 re im) |
(/.f64 (-.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) (-.f64 (*.f64 re re) (*.f64 im im))) |
(/.f64 (-.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) (-.f64 (*.f64 im im) (*.f64 re re))) |
(/.f64 (+.f64 (pow.f64 (*.f64 re re) #s(literal 3 binary64)) (pow.f64 (*.f64 im im) #s(literal 3 binary64))) (+.f64 (pow.f64 re #s(literal 4 binary64)) (-.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 (*.f64 re re) (*.f64 im im))))) |
(/.f64 (+.f64 (pow.f64 (*.f64 im im) #s(literal 3 binary64)) (pow.f64 (*.f64 re re) #s(literal 3 binary64))) (+.f64 (pow.f64 im #s(literal 4 binary64)) (-.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 (*.f64 im im) (*.f64 re re))))) |
(fma.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64)) (*.f64 im im)) |
(fma.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64)) (*.f64 re re)) |
(fma.f64 (neg.f64 im) (neg.f64 im) (*.f64 re re)) |
(fma.f64 (fabs.f64 im) (fabs.f64 im) (*.f64 re re)) |
(fma.f64 (fabs.f64 re) (fabs.f64 re) (*.f64 im im)) |
(fma.f64 (neg.f64 re) (neg.f64 re) (*.f64 im im)) |
(fma.f64 im im (*.f64 re re)) |
(fma.f64 re re (*.f64 im im)) |
(-.f64 (*.f64 re re) (*.f64 (neg.f64 im) im)) |
(-.f64 (*.f64 im im) (*.f64 (neg.f64 re) re)) |
(+.f64 (*.f64 re re) (*.f64 im im)) |
(+.f64 (*.f64 im im) (*.f64 re re)) |
(*.f64 (pow.f64 re #s(literal 1 binary64)) (pow.f64 re #s(literal 1 binary64))) |
(*.f64 (fabs.f64 re) (fabs.f64 re)) |
(*.f64 (neg.f64 re) (neg.f64 re)) |
(*.f64 re re) |
(pow.f64 re #s(literal 2 binary64)) |
(exp.f64 (*.f64 (log.f64 re) #s(literal 2 binary64))) |
(pow.f64 #s(literal 2 binary64) #s(literal 1/2 binary64)) |
(sqrt.f64 #s(literal 2 binary64)) |
(*.f64 (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im (neg.f64 re)))) #s(literal 1/2 binary64)) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im (neg.f64 re)))) #s(literal 1/2 binary64))) |
(pow.f64 (exp.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im (neg.f64 re)))))) #s(literal 1/2 binary64)) |
(pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im (neg.f64 re)))) #s(literal 1/2 binary64)) |
(exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im (neg.f64 re))))) #s(literal 1/2 binary64))) |
(+.f64 (cosh.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im (neg.f64 re))))) #s(literal 1/2 binary64))) (sinh.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im (neg.f64 re))))) #s(literal 1/2 binary64)))) |
(*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im (neg.f64 re))))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im (neg.f64 re)))))) |
(log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im (neg.f64 re))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im (neg.f64 re)))) |
(*.f64 (/.f64 (*.f64 im im) re) #s(literal -1 binary64)) |
(*.f64 #s(literal -1 binary64) (/.f64 (*.f64 im im) re)) |
(*.f64 im (/.f64 im (neg.f64 re))) |
(/.f64 (*.f64 #s(literal -1 binary64) (*.f64 im im)) re) |
(/.f64 (neg.f64 (*.f64 im im)) (neg.f64 (neg.f64 re))) |
(/.f64 (*.f64 im im) (neg.f64 re)) |
(neg.f64 (/.f64 (*.f64 im im) re)) |
(*.f64 (pow.f64 im #s(literal 1 binary64)) (pow.f64 im #s(literal 1 binary64))) |
(*.f64 (neg.f64 im) (neg.f64 im)) |
(*.f64 (fabs.f64 im) (fabs.f64 im)) |
(*.f64 im im) |
(pow.f64 im #s(literal 2 binary64)) |
(exp.f64 (*.f64 (log.f64 im) #s(literal 2 binary64))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (*.f64 re (/.f64 (-.f64 (pow.f64 im #s(literal -1 binary64)) (/.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 re (/.f64 (-.f64 (pow.f64 (*.f64 #s(literal 4 binary64) (*.f64 im im)) #s(literal -1 binary64)) (pow.f64 (*.f64 (*.f64 im im) #s(literal 2 binary64)) #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (/.f64 (-.f64 (pow.f64 im #s(literal -1 binary64)) (/.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))) re (*.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (log.f64 (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re im) (log.f64 (*.f64 #s(literal 2 binary64) im))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/12 binary64) (/.f64 #s(literal 1/2 binary64) im)) re (log.f64 (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal 3/80 binary64) (*.f64 #s(literal -1/12 binary64) (pow.f64 im #s(literal -3 binary64)))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) re (log.f64 (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (log.f64 (*.f64 #s(literal 2 binary64) im))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (/.f64 re im) (log.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 (fma.f64 #s(literal -1/6 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (pow.f64 im #s(literal -1 binary64))) re (log.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 (fma.f64 (fma.f64 #s(literal 3/40 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 5 binary64))) (*.f64 #s(literal -1/6 binary64) (pow.f64 im #s(literal -3 binary64)))) (*.f64 re re) (pow.f64 im #s(literal -1 binary64))) re (log.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 im re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (pow.f64 im #s(literal -1 binary64))) re #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im)) |
#s(approx (sqrt (+ (* im im) (* re re))) im) |
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im)) |
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im)) |
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im)) |
#s(approx re re) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (neg re) (neg.f64 re)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 2 binary64) (+.f64 im re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (pow.f64 im #s(literal -1 binary64))) re #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) (*.f64 #s(literal 2 binary64) im)) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) (*.f64 #s(literal 2 binary64) (+.f64 im re))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 #s(literal 2 binary64) im))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) im) |
#s(approx (+ (* (+ (/ re im) 2) re) im) (fma.f64 #s(literal 2 binary64) re im)) |
#s(approx (+ (* (+ (/ re im) 2) re) im) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im)) |
#s(approx (+ (/ re im) 2) #s(literal 2 binary64)) |
#s(approx (+ (/ re im) 2) (+.f64 (/.f64 re im) #s(literal 2 binary64))) |
#s(approx (/ re im) (/.f64 re im)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))))) re (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt.f64 im)) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) re) #s(literal 1/2 binary64) (sqrt.f64 im))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (fma.f64 (*.f64 (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) re) #s(literal 1/8 binary64) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64))) re (sqrt.f64 im))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (fma.f64 (fma.f64 (*.f64 (sqrt.f64 (pow.f64 im #s(literal -5 binary64))) re) #s(literal -1/16 binary64) (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64))))) re (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64))) re (sqrt.f64 im))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (+.f64 im re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 re im) #s(literal 1/2 binary64) #s(literal 1 binary64)) re im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) re #s(literal 1 binary64)) re im)) |
#s(approx (sqrt (+ (* im im) (* re re))) im) |
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (/.f64 (*.f64 re re) im) #s(literal 1/2 binary64) im)) |
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 #s(literal -1/8 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im)) |
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 im #s(literal -3 binary64)))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) (*.f64 re re) im)) |
#s(approx (+ (* im im) (* re re)) (*.f64 im im)) |
#s(approx (+ (* im im) (* re re)) (fma.f64 im im (*.f64 re re))) |
#s(approx (* re re) (*.f64 re re)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (fma.f64 (*.f64 #s(literal 1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -3 binary64)) #s(literal 2 binary64))) #s(literal 1/16 binary64))) re (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/4 binary64))) re (*.f64 (sqrt.f64 (*.f64 #s(literal 2 binary64) im)) #s(literal 1/2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (*.f64 re (/.f64 (-.f64 (pow.f64 im #s(literal -1 binary64)) (/.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (*.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (*.f64 re (/.f64 (-.f64 (pow.f64 (*.f64 #s(literal 4 binary64) (*.f64 im im)) #s(literal -1 binary64)) (pow.f64 (*.f64 (*.f64 im im) #s(literal 2 binary64)) #s(literal -1 binary64))) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) (*.f64 (/.f64 (-.f64 (pow.f64 im #s(literal -1 binary64)) (/.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))) re (*.f64 (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))) re (sqrt.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (log.f64 (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64)))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.f64 #s(literal 1/2 binary64) (+.f64 (/.f64 re im) (log.f64 (*.f64 #s(literal 2 binary64) im))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) #s(literal -1/12 binary64) (/.f64 #s(literal 1/2 binary64) im)) re (log.f64 (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 re re) (pow.f64 im #s(literal 5 binary64))) #s(literal 3/80 binary64) (*.f64 #s(literal -1/12 binary64) (pow.f64 im #s(literal -3 binary64)))) (*.f64 re re) (/.f64 #s(literal 1/2 binary64) im)) re (log.f64 (pow.f64 (*.f64 #s(literal 2 binary64) im) #s(literal 1/2 binary64))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (log.f64 (*.f64 #s(literal 2 binary64) im))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (/.f64 re im) (log.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 (fma.f64 #s(literal -1/6 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 3 binary64))) (pow.f64 im #s(literal -1 binary64))) re (log.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 (fma.f64 (fma.f64 #s(literal 3/40 binary64) (/.f64 (*.f64 re re) (pow.f64 im #s(literal 5 binary64))) (*.f64 #s(literal -1/6 binary64) (pow.f64 im #s(literal -3 binary64)))) (*.f64 re re) (pow.f64 im #s(literal -1 binary64))) re (log.f64 (*.f64 #s(literal 2 binary64) im)))) |
#s(approx (/ (* im im) (neg re)) (*.f64 im (/.f64 im (neg.f64 re)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) re)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) re)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))))) re)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal -1/64 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))) re)) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.f64 (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))) #s(literal 1/2 binary64))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/8 binary64) (*.f64 (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/48 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/8 binary64) (*.f64 (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))) #s(literal 1/2 binary64))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (/.f64 (fma.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 135/4 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 15/4 binary64))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/1440 binary64) (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/48 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/8 binary64) (*.f64 (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))) #s(literal 1/2 binary64)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/4 binary64) (neg.f64 (neg.f64 (log.f64 re)))) (log.f64 #s(literal 4 binary64)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 135/4 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 15/4 binary64))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) #s(literal 4 binary64)) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal 2 binary64) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64)) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 2 binary64)) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 2 binary64)) re)) |
#s(approx (sqrt (+ (* im im) (* re re))) re) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re)) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)) re)) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)) re)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) re)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) re)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))))) re)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))) re)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) re)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) re)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))))) re)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 4 binary64)) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (/.f64 (*.f64 im im) (*.f64 re re))) #s(literal 4 binary64)) re)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/8 binary64) (/.f64 (*.f64 im im) (*.f64 re re)))) #s(literal 4 binary64)) re)) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) (/.f64 (*.f64 re re) im)) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (pow.f64 im #s(literal -1 binary64))) (*.f64 re re))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) (*.f64 (fma.f64 (/.f64 im (*.f64 re re)) #s(literal 2 binary64) (+.f64 (/.f64 #s(literal 2 binary64) re) (pow.f64 im #s(literal -1 binary64)))) (*.f64 re re))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) (/.f64 (*.f64 re re) im)) |
#s(approx (+ (* (+ (/ re im) 2) re) im) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (pow.f64 im #s(literal -1 binary64))) (*.f64 re re))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) (*.f64 (+.f64 (+.f64 (/.f64 im (*.f64 re re)) (/.f64 #s(literal 2 binary64) re)) (pow.f64 im #s(literal -1 binary64))) (*.f64 re re))) |
#s(approx (+ (/ re im) 2) (/.f64 re im)) |
#s(approx (+ (/ re im) 2) (*.f64 (+.f64 (/.f64 #s(literal 2 binary64) re) (pow.f64 im #s(literal -1 binary64))) re)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) re)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) re)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))))) re)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal -1/32 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))) re)) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (sqrt.f64 (*.f64 #s(literal 2 binary64) re))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (fma.f64 (*.f64 (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))) re)) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (fma.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/16 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) re)))) re)) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (fma.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/16 binary64) (fma.f64 (*.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64)))) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/4 binary64) (sqrt.f64 (/.f64 #s(literal 2 binary64) re))))) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal 2 binary64) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 2 binary64)) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 2 binary64)) re)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 2 binary64)) re)) |
#s(approx (sqrt (+ (* im im) (* re re))) re) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)) re)) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)) re)) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)) re)) |
#s(approx (+ (* im im) (* re re)) (*.f64 re re)) |
#s(approx (+ (* im im) (* re re)) (*.f64 (+.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1 binary64)) (*.f64 re re))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))) re)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) re)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/32 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal -1/64 binary64) (/.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)) #s(literal 1/2 binary64))))) re)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (sqrt.f64 re) #s(literal 2 binary64))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))) re)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64)))) re)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal -1/64 binary64) (pow.f64 im #s(literal 4 binary64))) (sqrt.f64 (pow.f64 re #s(literal -9 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -5 binary64))) (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) #s(literal 2 binary64))))) re)) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.f64 (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))) #s(literal 1/2 binary64))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/8 binary64) (*.f64 (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))) #s(literal 1/2 binary64)))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/48 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/8 binary64) (*.f64 (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))) #s(literal 1/2 binary64))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (/.f64 (fma.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 135/4 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 15/4 binary64))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/1440 binary64) (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/48 binary64) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/8 binary64) (*.f64 (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))) #s(literal 1/2 binary64)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/4 binary64) (neg.f64 (neg.f64 (log.f64 re)))) (log.f64 #s(literal 4 binary64)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 (neg.f64 (log.f64 re)) #s(literal -1 binary64) (log.f64 #s(literal 4 binary64))) (fma.f64 #s(literal 1/720 binary64) (/.f64 (fma.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 135/4 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 15/4 binary64))) (pow.f64 re #s(literal 6 binary64))) (fma.f64 #s(literal 1/24 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal -9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) (/.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (*.f64 re re)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/8 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) #s(literal -1/8 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 9/128 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) #s(literal -1/8 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.f64 (fma.f64 #s(literal 2 binary64) (log.f64 im) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 1/2 binary64))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (fma.f64 #s(literal 2 binary64) (log.f64 im) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 im im)) (*.f64 re re)))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/48 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (log.f64 im) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 1/2 binary64))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 im im)) #s(literal -720 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 75/4 binary64))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/1440 binary64) (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/48 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (log.f64 im) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 1/2 binary64)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (log.f64 (/.f64 #s(literal -1 binary64) re)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 #s(literal 2 binary64) (log.f64 im) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 re re))) (log.f64 (/.f64 #s(literal -1 binary64) re)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 #s(literal 2 binary64) (log.f64 im) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 re re))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 #s(literal 2 binary64) (log.f64 im) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 im im)) #s(literal -720 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 75/4 binary64))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/720 binary64) (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64))) (pow.f64 re #s(literal 4 binary64))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im (neg.f64 re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im))) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im)))) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re))) |
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 im (/.f64 im (neg.f64 re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (*.f64 im im)) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im))) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/8 binary64) (*.f64 im im)))) re))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) (*.f64 (fma.f64 (/.f64 (-.f64 (*.f64 (/.f64 im re) #s(literal -2 binary64)) #s(literal 2 binary64)) re) #s(literal -1 binary64) (pow.f64 im #s(literal -1 binary64))) (*.f64 re re))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) (*.f64 (fma.f64 (/.f64 (-.f64 (/.f64 (neg.f64 im) re) #s(literal 2 binary64)) re) #s(literal -1 binary64) (pow.f64 im #s(literal -1 binary64))) (*.f64 re re))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 #s(literal 1/512 binary64) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/32 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/16 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1/2 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/16 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/512 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/32 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 im im) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/8 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64)))) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (pow.f64 re #s(literal 6 binary64))) (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/16 binary64) (*.f64 (*.f64 im im) #s(literal 1/2 binary64))))) re))) |
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 re)) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/2 binary64) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re))) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 re) (+.f64 (fma.f64 (/.f64 (pow.f64 im #s(literal 4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 im #s(literal 6 binary64)) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 im im) #s(literal 1/2 binary64)) (*.f64 re re)))) #s(literal 1 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/32 binary64) (*.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) #s(literal 1 binary64)) im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 #s(literal 1/2 binary64))) (sqrt.f64 re)) #s(literal -1/32 binary64) (fma.f64 (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (pow.f64 #s(literal 1/2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/1024 binary64) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 #s(literal 1/2 binary64)))) #s(literal 1/64 binary64)))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 (pow.f64 re #s(literal -5 binary64)))) #s(literal 1/8 binary64) (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 1/16 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) #s(literal -1/8 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) im) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (neg.f64 (/.f64 (fma.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 5 binary64))) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))) #s(literal 9/128 binary64) (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) (sqrt.f64 re)) #s(literal -1/8 binary64))) (pow.f64 re #s(literal 3 binary64)))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.f64 (fma.f64 #s(literal 2 binary64) (log.f64 im) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 1/2 binary64))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (fma.f64 #s(literal 2 binary64) (log.f64 im) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 im im)) (*.f64 re re)))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/48 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (log.f64 im) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 1/2 binary64))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/8 binary64) (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 im im)) #s(literal -720 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 75/4 binary64))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/1440 binary64) (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/48 binary64) (*.f64 (fma.f64 #s(literal 2 binary64) (log.f64 im) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 1/2 binary64)))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (log.f64 (/.f64 #s(literal -1 binary64) re)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 #s(literal 2 binary64) (log.f64 im) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 re re))) (log.f64 (/.f64 #s(literal -1 binary64) re)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 #s(literal 2 binary64) (log.f64 im) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64)) (pow.f64 re #s(literal 4 binary64))) #s(literal 1/24 binary64) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 re re))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 #s(literal 2 binary64) (log.f64 im) (log.f64 (/.f64 #s(literal -1 binary64) re))) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal -1/4 binary64) (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 im #s(literal 8 binary64)) #s(literal 5/64 binary64)) (*.f64 im im)) #s(literal -720 binary64) (*.f64 (pow.f64 im #s(literal 6 binary64)) #s(literal 75/4 binary64))) (pow.f64 re #s(literal 6 binary64))) #s(literal 1/720 binary64) (/.f64 (*.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 im #s(literal 4 binary64)) #s(literal 9/4 binary64))) (pow.f64 re #s(literal 4 binary64))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/8 binary64))) (*.f64 im im)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (*.f64 #s(literal -5/64 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -7 binary64))) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 21/512 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -11 binary64))) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -7 binary64))) #s(literal -5/64 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (log.f64 (pow.f64 (*.f64 #s(literal 4 binary64) re) #s(literal 1/2 binary64)))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (log.f64 (*.f64 #s(literal 4 binary64) re)) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (*.f64 re re)))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (fma.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/8 binary64) (/.f64 (*.f64 #s(literal -3/64 binary64) (*.f64 im im)) (pow.f64 re #s(literal 4 binary64)))) (*.f64 im im) (log.f64 (pow.f64 (*.f64 #s(literal 4 binary64) re) #s(literal 1/2 binary64))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 6 binary64))) #s(literal 5/192 binary64) (*.f64 #s(literal -3/64 binary64) (pow.f64 re #s(literal -4 binary64)))) (*.f64 im im) (*.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/8 binary64))) (*.f64 im im) (log.f64 (pow.f64 (*.f64 #s(literal 4 binary64) re) #s(literal 1/2 binary64))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (log.f64 (*.f64 #s(literal 4 binary64) re))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/4 binary64) (log.f64 (*.f64 #s(literal 4 binary64) re)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 (fma.f64 #s(literal -3/32 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 4 binary64))) (*.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/4 binary64))) (*.f64 im im) (log.f64 (*.f64 #s(literal 4 binary64) re)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 (fma.f64 (fma.f64 #s(literal 5/96 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 6 binary64))) (*.f64 #s(literal -3/32 binary64) (pow.f64 re #s(literal -4 binary64)))) (*.f64 im im) (*.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/4 binary64))) (*.f64 im im) (log.f64 (*.f64 #s(literal 4 binary64) re)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/4 binary64) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im) (*.f64 #s(literal 4 binary64) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/8 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im) (*.f64 #s(literal 4 binary64) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) (*.f64 #s(literal 2 binary64) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 #s(literal 2 binary64) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 #s(literal 2 binary64) re))) |
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re)) |
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re)) |
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re)) |
#s(approx im im) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/8 binary64))) (*.f64 im im)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/8 binary64))) (*.f64 im im)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/4 binary64) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im) (*.f64 #s(literal 4 binary64) re))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/8 binary64) (*.f64 #s(literal -1/4 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (pow.f64 re #s(literal -1 binary64))) (*.f64 im im) (*.f64 #s(literal 4 binary64) re))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) (/.f64 (fma.f64 (*.f64 im re) #s(literal 2 binary64) (*.f64 re re)) im)) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) (/.f64 (fma.f64 (*.f64 #s(literal 2 binary64) (+.f64 im re)) im (*.f64 re re)) im)) |
#s(approx (+ (* (+ (/ re im) 2) re) im) (/.f64 (fma.f64 (*.f64 im re) #s(literal 2 binary64) (*.f64 re re)) im)) |
#s(approx (+ (* (+ (/ re im) 2) re) im) (/.f64 (fma.f64 (fma.f64 #s(literal 2 binary64) re im) im (*.f64 re re)) im)) |
#s(approx (+ (/ re im) 2) (/.f64 (fma.f64 #s(literal 2 binary64) im re) im)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/8 binary64))) (*.f64 im im)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (/.f64 (*.f64 im im) (sqrt.f64 #s(literal 2 binary64)))) #s(literal 1/4 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) re)))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (fma.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64))) #s(literal 1/4 binary64) (*.f64 (*.f64 (/.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (sqrt.f64 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/2 binary64))) (*.f64 im im) (sqrt.f64 (*.f64 #s(literal 2 binary64) re)))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (*.f64 (*.f64 im im) (/.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (sqrt.f64 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (sqrt.f64 #s(literal 2 binary64))))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/4 binary64)) (pow.f64 (sqrt.f64 #s(literal 2 binary64)) #s(literal -1 binary64)))) (*.f64 im im) (sqrt.f64 (*.f64 #s(literal 2 binary64) re)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) (*.f64 #s(literal 2 binary64) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 #s(literal 2 binary64) re))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) (*.f64 #s(literal 2 binary64) re))) |
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (/.f64 (*.f64 im im) re) #s(literal 1/2 binary64) re)) |
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 3 binary64))) #s(literal -1/8 binary64) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re)) |
#s(approx (sqrt (+ (* im im) (* re re))) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 5 binary64))) #s(literal 1/16 binary64) (*.f64 #s(literal -1/8 binary64) (pow.f64 re #s(literal -3 binary64)))) (*.f64 im im) (/.f64 #s(literal 1/2 binary64) re)) (*.f64 im im) re)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -3 binary64)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 re)) #s(literal 2 binary64) (*.f64 (fma.f64 (*.f64 (*.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 im im)) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) #s(literal -1/4 binary64) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/8 binary64))) (*.f64 im im)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 (fma.f64 (pow.f64 re #s(literal -5 binary64)) #s(literal 1/16 binary64) (*.f64 #s(literal 1/4 binary64) (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))) (*.f64 (*.f64 re re) #s(literal 2 binary64))))) (*.f64 im im))) (/.f64 #s(literal 1 binary64) (sqrt.f64 re)) (*.f64 (*.f64 #s(literal -1/4 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 re))) (fma.f64 (/.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 2 binary64)) #s(literal 1/16 binary64) (*.f64 (pow.f64 re #s(literal -3 binary64)) #s(literal 1/8 binary64))))) (*.f64 im im) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/8 binary64))) (*.f64 im im) (*.f64 (*.f64 (sqrt.f64 re) #s(literal 2 binary64)) #s(literal 1/2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (*.f64 #s(literal -5/64 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -7 binary64))) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (fma.f64 (fma.f64 (fma.f64 (*.f64 #s(literal 21/512 binary64) (*.f64 im im)) (sqrt.f64 (pow.f64 re #s(literal -11 binary64))) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -7 binary64))) #s(literal -5/64 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 (pow.f64 re #s(literal -3 binary64))) #s(literal 1/4 binary64))) (*.f64 im im) (*.f64 (sqrt.f64 re) #s(literal 2 binary64)))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (log.f64 (pow.f64 (*.f64 #s(literal 4 binary64) re) #s(literal 1/2 binary64)))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (log.f64 (*.f64 #s(literal 4 binary64) re)) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal 1/8 binary64) (*.f64 im im)) (*.f64 re re)))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (fma.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/8 binary64) (/.f64 (*.f64 #s(literal -3/64 binary64) (*.f64 im im)) (pow.f64 re #s(literal 4 binary64)))) (*.f64 im im) (log.f64 (pow.f64 (*.f64 #s(literal 4 binary64) re) #s(literal 1/2 binary64))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (fma.f64 (fma.f64 (/.f64 (*.f64 im im) (pow.f64 re #s(literal 6 binary64))) #s(literal 5/192 binary64) (*.f64 #s(literal -3/64 binary64) (pow.f64 re #s(literal -4 binary64)))) (*.f64 im im) (*.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/8 binary64))) (*.f64 im im) (log.f64 (pow.f64 (*.f64 #s(literal 4 binary64) re) #s(literal 1/2 binary64))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (log.f64 (*.f64 #s(literal 4 binary64) re))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 (/.f64 (*.f64 im im) (*.f64 re re)) #s(literal 1/4 binary64) (log.f64 (*.f64 #s(literal 4 binary64) re)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 (fma.f64 #s(literal -3/32 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 4 binary64))) (*.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/4 binary64))) (*.f64 im im) (log.f64 (*.f64 #s(literal 4 binary64) re)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 (fma.f64 (fma.f64 #s(literal 5/96 binary64) (/.f64 (*.f64 im im) (pow.f64 re #s(literal 6 binary64))) (*.f64 #s(literal -3/32 binary64) (pow.f64 re #s(literal -4 binary64)))) (*.f64 im im) (*.f64 (pow.f64 re #s(literal -2 binary64)) #s(literal 1/4 binary64))) (*.f64 im im) (log.f64 (*.f64 #s(literal 4 binary64) re)))) |
#s(approx (* im im) (*.f64 im im)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) im)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) im)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))) im)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) im)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 re re) (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))) im)) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.f64 (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.f64 #s(literal 1/2 binary64) (+.f64 (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (/.f64 re im)) (log.f64 #s(literal 2 binary64))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (/.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) (*.f64 im im)) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (/.f64 re im)) (log.f64 #s(literal 2 binary64)))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal 1/12 binary64) (fma.f64 (/.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) (*.f64 im im)) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (/.f64 re im)) (log.f64 #s(literal 2 binary64))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (/.f64 re im)) (log.f64 #s(literal 2 binary64)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) (fma.f64 (/.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) (fma.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal 1/6 binary64) (fma.f64 (/.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) (/.f64 (*.f64 re re) (*.f64 im im))) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im)) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im)) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) im)) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)) im)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) im)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) im)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))) im)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) im)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))) im)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) im)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) im)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))) im)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) im)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) (/.f64 (*.f64 re re) (*.f64 im im))) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/4 binary64) (fma.f64 (/.f64 re im) #s(literal 2 binary64) (/.f64 (*.f64 re re) (*.f64 im im)))) #s(literal 2 binary64)) im)) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) im)) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 2 binary64)) (/.f64 (*.f64 re re) (*.f64 im im))) im)) |
#s(approx (+ (* (+ (/ re im) 2) re) im) (*.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 1 binary64)) im)) |
#s(approx (+ (* (+ (/ re im) 2) re) im) (*.f64 (+.f64 (fma.f64 (/.f64 re im) #s(literal 2 binary64) #s(literal 1 binary64)) (/.f64 (*.f64 re re) (*.f64 im im))) im)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) im)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) im)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))) im)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) im)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))) im)) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (fma.f64 (*.f64 (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) re) #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) im)) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (+.f64 (fma.f64 (*.f64 (*.f64 re re) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) #s(literal 1/4 binary64) (*.f64 (*.f64 (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) re) #s(literal 1/2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) im)) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (+.f64 (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 re re) (fma.f64 (*.f64 (*.f64 re re) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) #s(literal 1/4 binary64) (*.f64 (*.f64 (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) re) #s(literal 1/2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))) im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (/.f64 re im) #s(literal 1 binary64)) im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)) #s(literal 1 binary64)) im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))) #s(literal 1 binary64)) im)) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)) im)) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)) im)) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)) im)) |
#s(approx (+ (* im im) (* re re)) (*.f64 (+.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1 binary64)) (*.f64 im im))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) im)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) im)) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (fma.f64 (*.f64 #s(literal -1/16 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal 2 binary64)) re) (*.f64 (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))) #s(literal 1/2 binary64))))) im)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))) im)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64))))) im)) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 re re) (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64))) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 re re) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (/.f64 re (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal 2 binary64)))))) im)) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.f64 (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.f64 #s(literal 1/2 binary64) (+.f64 (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (/.f64 re im)) (log.f64 #s(literal 2 binary64))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (/.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) (*.f64 im im)) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (/.f64 re im)) (log.f64 #s(literal 2 binary64)))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal 1/12 binary64) (fma.f64 (/.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) (*.f64 im im)) #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (+.f64 (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (/.f64 re im)) (log.f64 #s(literal 2 binary64))))))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (/.f64 re im)) (log.f64 #s(literal 2 binary64)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) (fma.f64 (/.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) (fma.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal -1 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal 1/6 binary64) (fma.f64 (/.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) (*.f64 im im)) #s(literal 1/2 binary64) (/.f64 re im))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 im)))) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 re im)))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) im) #s(literal -1/4 binary64) (*.f64 #s(literal 1/2 binary64) re)) im)))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) re (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal -1 binary64)) im) #s(literal -1/12 binary64) (*.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) #s(literal 1/4 binary64))) im))) im)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 #s(literal -1 binary64) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (/.f64 re im)) (log.f64 #s(literal 2 binary64)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 #s(literal -1 binary64) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (/.f64 (fma.f64 (/.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) im) #s(literal -1/2 binary64) re) im)) (log.f64 #s(literal 2 binary64)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 #s(literal -1 binary64) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (/.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal -1 binary64)) im) #s(literal -1/6 binary64) (*.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) #s(literal 1/2 binary64))) im) #s(literal -1 binary64) re) im)) (log.f64 #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (neg.f64 (*.f64 re re)) im)) im) #s(literal -1 binary64) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im) #s(literal -1 binary64) #s(literal 2 binary64)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im) re) im) #s(literal -1 binary64) #s(literal 1 binary64)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 im im)) #s(literal -1/8 binary64) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im) #s(literal -1 binary64) re) im) #s(literal -1 binary64) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal -2 binary64) im)) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 #s(literal -2 binary64) (/.f64 re im) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (neg.f64 (*.f64 re re)) im)) im) #s(literal -1 binary64) #s(literal 2 binary64)))) |
#s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (neg.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 im im)) #s(literal -1/4 binary64) (*.f64 re re)) im))) im) #s(literal -1 binary64) #s(literal 2 binary64)))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) (*.f64 (neg.f64 im) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 re im)) #s(literal 2 binary64)))) |
#s(approx (+ (+ (* (+ (/ re im) 2) re) im) im) (*.f64 (neg.f64 im) (-.f64 (neg.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (*.f64 re re) im)) im)) #s(literal 2 binary64)))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) (*.f64 (neg.f64 im) (-.f64 (*.f64 #s(literal -2 binary64) (/.f64 re im)) #s(literal 1 binary64)))) |
#s(approx (+ (* (+ (/ re im) 2) re) im) (*.f64 (neg.f64 im) (-.f64 (neg.f64 (/.f64 (fma.f64 #s(literal 2 binary64) re (/.f64 (*.f64 re re) im)) im)) #s(literal 1 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (neg.f64 (sqrt.f64 (neg.f64 im)))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal -1 binary64)))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal -1 binary64))))))) |
#s(approx (sqrt (+ (sqrt (+ (* im im) (* re re))) re)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/8 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 (*.f64 (pow.f64 im #s(literal -1 binary64)) #s(literal -1 binary64))))))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (neg.f64 im)) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (fma.f64 #s(literal -1 binary64) (/.f64 re im) #s(literal 1 binary64)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 re re) im) re) im) #s(literal -1 binary64) #s(literal 1 binary64)))) |
#s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (*.f64 im im)) #s(literal -1/8 binary64) (*.f64 (*.f64 re re) #s(literal 1/2 binary64))) im) #s(literal -1 binary64) re) im) #s(literal -1 binary64) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* im im) (* re re))) (neg.f64 im)) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 re re) (*.f64 im im)) #s(literal 1/2 binary64) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im))) #s(literal 1 binary64)))) |
#s(approx (sqrt (+ (* im im) (* re re))) (*.f64 (neg.f64 im) (+.f64 (fma.f64 (/.f64 (pow.f64 re #s(literal 4 binary64)) (pow.f64 im #s(literal 4 binary64))) #s(literal -1/8 binary64) (fma.f64 (/.f64 (pow.f64 re #s(literal 6 binary64)) (pow.f64 im #s(literal 6 binary64))) #s(literal 1/16 binary64) (/.f64 (*.f64 (*.f64 re re) #s(literal 1/2 binary64)) (*.f64 im im)))) #s(literal 1 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 im)) (sqrt.f64 #s(literal -2 binary64)))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64)))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/8 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (* (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) 1/2) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (*.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (*.f64 re re)) (sqrt.f64 im)) #s(literal 3/16 binary64)) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (*.f64 #s(literal 1/4 binary64) (sqrt.f64 (pow.f64 im #s(literal -3 binary64)))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) re) (*.f64 (*.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 im)) #s(literal 1/2 binary64)) (sqrt.f64 #s(literal -2 binary64))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (neg.f64 (*.f64 (sqrt.f64 #s(literal -2 binary64)) (sqrt.f64 im)))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im)))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (neg.f64 im) (fma.f64 (*.f64 #s(literal -1/2 binary64) (sqrt.f64 (pow.f64 im #s(literal -5 binary64)))) (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))) |
#s(approx (exp (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2)) (*.f64 (neg.f64 im) (fma.f64 (/.f64 (*.f64 #s(literal 1/2 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 im) (*.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) (*.f64 re re)) (pow.f64 #s(literal 2 binary64) #s(literal 3/2 binary64))) (sqrt.f64 im)))) (pow.f64 im #s(literal 3 binary64))) #s(literal -1 binary64) (fma.f64 (/.f64 (*.f64 (sqrt.f64 #s(literal -1 binary64)) re) (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 (pow.f64 im #s(literal -3 binary64))) (*.f64 (sqrt.f64 #s(literal -2 binary64)) (/.f64 #s(literal 1 binary64) (sqrt.f64 im))))))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (*.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 re im)))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) im) #s(literal -1/4 binary64) (*.f64 #s(literal 1/2 binary64) re)) im)))) |
#s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64) (neg.f64 (/.f64 (fma.f64 #s(literal 1/2 binary64) re (neg.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal -1 binary64)) im) #s(literal -1/12 binary64) (*.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) #s(literal 1/4 binary64))) im))) im)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 #s(literal -1 binary64) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (/.f64 re im)) (log.f64 #s(literal 2 binary64)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 #s(literal -1 binary64) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (/.f64 (fma.f64 (/.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) im) #s(literal -1/2 binary64) re) im)) (log.f64 #s(literal 2 binary64)))) |
#s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 #s(literal -1 binary64) (+.f64 (log.f64 (/.f64 #s(literal -1 binary64) im)) (/.f64 (fma.f64 (/.f64 (fma.f64 (/.f64 (*.f64 (pow.f64 re #s(literal 3 binary64)) #s(literal -1 binary64)) im) #s(literal -1/6 binary64) (*.f64 (*.f64 #s(literal 0 binary64) (*.f64 re re)) #s(literal 1/2 binary64))) im) #s(literal -1 binary64) re) im)) (log.f64 #s(literal 2 binary64)))) |
Compiled 14 109 to 2 669 computations (81.1% saved)
29 alts after pruning (18 fresh and 11 done)
| Pruned | Kept | Total | |
|---|---|---|---|
| New | 436 | 8 | 444 |
| Fresh | 0 | 10 | 10 |
| Picked | 0 | 5 | 5 |
| Done | 1 | 6 | 7 |
| Total | 437 | 29 | 466 |
| Status | Accuracy | Program |
|---|---|---|
| 16.4% | (/.f64 #s(literal 1/2 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal -1/2 binary64))) | |
| 25.8% | (*.f64 (*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 (hypot.f64 im re) (hypot.f64 im re)) (*.f64 re re)) (-.f64 (hypot.f64 im re) re))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) | |
| ✓ | 42.0% | (*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
| 16.1% | (*.f64 (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (*.f64 (/.f64 im re) im) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) | |
| 26.0% | (*.f64 (sqrt.f64 (*.f64 (/.f64 (-.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 (hypot.f64 re im) re)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) | |
| ✓ | 79.2% | (*.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
| ✓ | 7.1% | (*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
| 26.0% | (*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64)) | |
| 24.8% | (*.f64 (exp.f64 (*.f64 (log.f64 (*.f64 (/.f64 (-.f64 (*.f64 (hypot.f64 im re) (hypot.f64 im re)) (*.f64 re re)) (-.f64 (hypot.f64 im re) re)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) | |
| ✓ | 73.8% | (*.f64 (exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) |
| 46.4% | (*.f64 (exp.f64 (*.f64 (log.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) | |
| 46.2% | (*.f64 (exp.f64 (*.f64 #s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) | |
| 25.8% | (*.f64 (exp.f64 (*.f64 #s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (log.f64 (/.f64 #s(literal -1 binary64) re)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) | |
| 22.5% | (*.f64 (exp.f64 (*.f64 #s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 #s(literal 2 binary64) (log.f64 im) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 re re))) (log.f64 (/.f64 #s(literal -1 binary64) re)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) | |
| 22.5% | (*.f64 (exp.f64 #s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (fma.f64 #s(literal 2 binary64) (log.f64 im) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 im im)) (*.f64 re re))))) #s(literal 1/2 binary64)) | |
| 15.4% | (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal -1/2 binary64))))) | |
| 49.4% | (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) #s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im))))) | |
| 42.3% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re)))) | |
| ✓ | 52.5% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))) |
| ✓ | 50.0% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))))) |
| ✓ | 50.0% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im)))) |
| 11.3% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 #s(approx (+ (* (+ (/ re im) 2) re) im) (/.f64 (*.f64 re re) im)) im)))) | |
| 49.6% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 #s(approx (+ (* (+ (/ re im) 2) re) im) im) im)))) | |
| ✓ | 26.9% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))) |
| 13.5% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (pow.f64 (pow.f64 im (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) re))))) | |
| ✓ | 14.1% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))))) |
| ✓ | 16.1% | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))) |
| ✓ | 13.5% | (*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64)))) |
| 49.2% | (*.f64 #s(literal 1/2 binary64) #s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)) (sqrt.f64 im)))) |
Compiled 1 549 to 737 computations (52.4% saved)
| Inputs |
|---|
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 #s(approx (+ (* (+ (/ re im) 2) re) im) im) im)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))) |
(*.f64 (sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))) |
(*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 #s(approx (+ (* (+ (/ re im) 2) re) im) (/.f64 (*.f64 re re) im)) im)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))) |
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) #s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im))))) |
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64)))))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) |
(*.f64 (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (*.f64 (/.f64 im re) im) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(/.f64 #s(literal 1/2 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal -1/2 binary64))) |
(*.f64 #s(literal 1/2 binary64) #s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)) (sqrt.f64 im)))) |
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (hypot.f64 im re) re)) (sqrt.f64 #s(literal 2 binary64)))) |
(*.f64 (*.f64 (sqrt.f64 (+.f64 (hypot.f64 re im) re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64)))) |
(*.f64 (exp.f64 (*.f64 (log.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64)))) |
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal -1/2 binary64))))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (pow.f64 (pow.f64 im (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) re))))) |
(*.f64 (exp.f64 (*.f64 #s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
(*.f64 (exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 (exp.f64 (*.f64 #s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (log.f64 (/.f64 #s(literal -1 binary64) re)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (/.f64 (-.f64 (pow.f64 (hypot.f64 im re) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 (hypot.f64 im re) re))))) |
(*.f64 (sqrt.f64 (*.f64 (/.f64 (-.f64 (pow.f64 (hypot.f64 re im) #s(literal 2 binary64)) (*.f64 re re)) (-.f64 (hypot.f64 re im) re)) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 (exp.f64 #s(approx (* (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) 1/2) (fma.f64 (fma.f64 #s(literal 2 binary64) (log.f64 im) (log.f64 (/.f64 #s(literal -1 binary64) re))) #s(literal 1/2 binary64) (/.f64 (*.f64 #s(literal -1/8 binary64) (*.f64 im im)) (*.f64 re re))))) #s(literal 1/2 binary64)) |
(*.f64 (exp.f64 (*.f64 #s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (+.f64 (fma.f64 #s(literal 2 binary64) (log.f64 im) (/.f64 (*.f64 #s(literal -1/4 binary64) (*.f64 im im)) (*.f64 re re))) (log.f64 (/.f64 #s(literal -1 binary64) re)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 (*.f64 (sqrt.f64 (/.f64 (-.f64 (*.f64 (hypot.f64 im re) (hypot.f64 im re)) (*.f64 re re)) (-.f64 (hypot.f64 im re) re))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 (exp.f64 (*.f64 (log.f64 (*.f64 (/.f64 (-.f64 (*.f64 (hypot.f64 im re) (hypot.f64 im re)) (*.f64 re re)) (-.f64 (hypot.f64 im re) re)) #s(literal 2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) |
| Outputs |
|---|
(*.f64 (exp.f64 (*.f64 #s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 #s(literal 2 binary64) (log.f64 im) (log.f64 (/.f64 #s(literal -1 binary64) re)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
7 calls:
| 35.0ms | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) |
| 10.0ms | re |
| 10.0ms | im |
| 9.0ms | (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)) |
| 9.0ms | (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re) |
| Accuracy | Segments | Branch |
|---|---|---|
| 79.2% | 1 | (*.f64 im im) |
| 90.0% | 2 | (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re) |
| 90.0% | 2 | (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)) |
| 90.2% | 2 | (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))) |
| 90.2% | 2 | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) |
| 87.4% | 2 | re |
| 79.2% | 1 | im |
Compiled 55 to 45 computations (18.2% saved)
| Inputs |
|---|
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 #s(approx (+ (* (+ (/ re im) 2) re) im) im) im)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))) |
(*.f64 (sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))) |
(*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 #s(approx (+ (* (+ (/ re im) 2) re) im) (/.f64 (*.f64 re re) im)) im)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))) |
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) #s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im))))) |
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64)))))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) |
(*.f64 (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (*.f64 (/.f64 im re) im) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(/.f64 #s(literal 1/2 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re))) #s(literal -1/2 binary64))) |
(*.f64 #s(literal 1/2 binary64) #s(approx (* (sqrt (+ (sqrt (+ (* re re) (* im im))) re)) (sqrt 2)) (*.f64 (pow.f64 (sqrt.f64 #s(literal 1/2 binary64)) #s(literal -1 binary64)) (sqrt.f64 im)))) |
(*.f64 #s(literal 1/2 binary64) (*.f64 (sqrt.f64 (+.f64 (hypot.f64 im re) re)) (sqrt.f64 #s(literal 2 binary64)))) |
(*.f64 (*.f64 (sqrt.f64 (+.f64 (hypot.f64 re im) re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re))) #s(literal -1/2 binary64)))) |
(*.f64 (exp.f64 (*.f64 (log.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (/.f64 (*.f64 im im) (neg.f64 re)))) #s(literal 1/2 binary64)))) |
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (exp.f64 (*.f64 (log.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 (neg.f64 im) (/.f64 im re)))) #s(literal -1/2 binary64))))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (pow.f64 (pow.f64 im (sqrt.f64 #s(literal 2 binary64))) (sqrt.f64 #s(literal 2 binary64))) re))))) |
(*.f64 (exp.f64 (*.f64 #s(approx (log (* (+ (sqrt (+ (* re re) (* im im))) re) 2)) (fma.f64 (neg.f64 (log.f64 im)) #s(literal -1 binary64) (log.f64 #s(literal 2 binary64)))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)))) |
(*.f64 (exp.f64 (*.f64 (log.f64 (*.f64 (+.f64 (hypot.f64 re im) re) #s(literal 2 binary64))) #s(literal 1/2 binary64))) #s(literal 1/2 binary64)) |
| Outputs |
|---|
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))) |
(*.f64 (sqrt.f64 (*.f64 (+.f64 (hypot.f64 im re) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
5 calls:
| 32.0ms | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) |
| 16.0ms | re |
| 8.0ms | (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re) |
| 8.0ms | (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)) |
| 7.0ms | (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))) |
| Accuracy | Segments | Branch |
|---|---|---|
| 82.8% | 2 | re |
| 83.3% | 2 | (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re) |
| 83.3% | 2 | (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)) |
| 84.1% | 2 | (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))) |
| 84.1% | 2 | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) |
Compiled 51 to 40 computations (21.6% saved)
| Inputs |
|---|
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 #s(approx (+ (* (+ (/ re im) 2) re) im) im) im)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))) |
(*.f64 (sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))) |
(*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 #s(approx (+ (* (+ (/ re im) 2) re) im) (/.f64 (*.f64 re re) im)) im)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))) |
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) #s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im))))) |
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (+.f64 im im))))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re (*.f64 im #s(literal 2 binary64)))))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (fma.f64 re re (*.f64 im im))) re)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) |
(*.f64 (*.f64 (sqrt.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) (*.f64 (*.f64 (/.f64 im re) im) #s(literal -1/2 binary64)))) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 (*.f64 (sqrt.f64 (+.f64 (sqrt.f64 (fma.f64 im im (*.f64 re re))) re)) (sqrt.f64 #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
| Outputs |
|---|
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 (fma.f64 (+.f64 (/.f64 re im) #s(literal 2 binary64)) re im) im)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))) |
7 calls:
| 8.0ms | (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)) |
| 7.0ms | im |
| 5.0ms | re |
| 5.0ms | (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))) |
| 5.0ms | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) |
| Accuracy | Segments | Branch |
|---|---|---|
| 66.2% | 3 | (*.f64 im im) |
| 66.2% | 3 | im |
| 72.2% | 3 | re |
| 72.2% | 4 | (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re) |
| 72.2% | 4 | (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)) |
| 72.7% | 4 | (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))) |
| 72.7% | 4 | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) |
Compiled 55 to 45 computations (18.2% saved)
| Inputs |
|---|
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 #s(approx (+ (* (+ (/ re im) 2) re) im) im) im)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))) |
(*.f64 (sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))) |
(*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (/.f64 (*.f64 im im) re))))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 #s(approx (+ (* (+ (/ re im) 2) re) im) (/.f64 (*.f64 re re) im)) im)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re))))) |
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) #s(approx (pow (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) -1/2) (sqrt.f64 (/.f64 #s(literal 1/2 binary64) im))))) |
(*.f64 (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (fma.f64 #s(literal 4 binary64) re (/.f64 (*.f64 im im) re)))) #s(literal 1/2 binary64)) |
| Outputs |
|---|
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (neg.f64 (*.f64 im (/.f64 im re)))))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 #s(approx (+ (* (+ (/ re im) 2) re) im) im) im)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))) |
1 calls:
| 4.0ms | re |
| Accuracy | Segments | Branch |
|---|---|---|
| 71.9% | 3 | re |
Compiled 1 to 2 computations (-100% saved)
| Inputs |
|---|
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 #s(approx (+ (* (+ (/ re im) 2) re) im) im) im)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im)))) |
(*.f64 (sqrt.f64 (*.f64 #s(approx (+ (sqrt (+ (* re re) (* im im))) re) im) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) im) re)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re)))) |
(*.f64 (sqrt.f64 (*.f64 (+.f64 #s(approx (sqrt (+ (* re re) (* im im))) (neg.f64 re)) re) #s(literal 2 binary64))) #s(literal 1/2 binary64)) |
| Outputs |
|---|
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 #s(approx (+ (* (+ (/ re im) 2) re) im) im) im)))) |
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (*.f64 #s(literal 4 binary64) re)))) |
7 calls:
| 7.0ms | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) |
| 2.0ms | im |
| 2.0ms | re |
| 2.0ms | (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re) |
| 2.0ms | (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))) |
| Accuracy | Segments | Branch |
|---|---|---|
| 61.4% | 2 | (*.f64 im im) |
| 61.4% | 2 | im |
| 54.3% | 2 | (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re) |
| 54.3% | 2 | (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)) |
| 55.0% | 2 | (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))) |
| 55.0% | 2 | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) |
| 64.4% | 2 | re |
Compiled 55 to 45 computations (18.2% saved)
| Inputs |
|---|
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 #s(approx (+ (* (+ (/ re im) 2) re) im) im) im)))) |
| Outputs |
|---|
(*.f64 #s(literal 1/2 binary64) (sqrt.f64 #s(approx (* 2 (+ (sqrt (+ (* re re) (* im im))) re)) (+.f64 #s(approx (+ (* (+ (/ re im) 2) re) im) im) im)))) |
7 calls:
| 3.0ms | im |
| 1.0ms | re |
| 1.0ms | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) |
| 1.0ms | (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))) |
| 1.0ms | (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)) |
| Accuracy | Segments | Branch |
|---|---|---|
| 49.6% | 1 | (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re) |
| 49.6% | 1 | (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)) |
| 49.6% | 1 | (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re))) |
| 49.6% | 1 | (*.f64 #s(literal 1/2 binary64) (sqrt.f64 (*.f64 #s(literal 2 binary64) (+.f64 (sqrt.f64 (+.f64 (*.f64 re re) (*.f64 im im))) re)))) |
| 49.6% | 1 | (*.f64 im im) |
| 49.6% | 1 | im |
| 49.6% | 1 | re |
Compiled 55 to 45 computations (18.2% saved)
| 1× | left-value |
| Time | Left | Right |
|---|---|---|
| 0.0ms | 0.0 | 2.279635220850674e-139 |
Compiled 18 to 17 computations (5.6% saved)
| 1× | left-value |
| Time | Left | Right |
|---|---|---|
| 0.0ms | 0.0 | 2.279635220850674e-139 |
Compiled 18 to 17 computations (5.6% saved)
| 2× | binary-search |
| 1× | narrow-enough |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 55.0ms | 4.2007910334312415e-131 | 9.903080759455362e-126 |
| 24.0ms | -2.722096474363663e+64 | -3.584081266082238e+62 |
| 51.0ms | 180× | 0 | valid |
| 7.0ms | 38× | 2 | valid |
| 7.0ms | 23× | 3 | valid |
| 4.0ms | 15× | 1 | valid |
Compiled 759 to 581 computations (23.5% saved)
ival-mult!: 44.0ms (71.5% of total)ival-hypot: 12.0ms (19.5% of total)ival-sqrt: 3.0ms (4.9% of total)adjust: 2.0ms (3.2% of total)ival-add!: 1.0ms (1.6% of total)| 2× | binary-search |
| 1× | narrow-enough |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 3.0ms | 4.2007910334312415e-131 | 9.903080759455362e-126 |
| 1.0ms | -2.722096474363663e+64 | -3.584081266082238e+62 |
| 1.0ms | 16× | 0 | valid |
Compiled 807 to 597 computations (26% saved)
adjust: 0.0ms (0% of total)ival-hypot: 0.0ms (0% of total)ival-add!: 0.0ms (0% of total)ival-sqrt: 0.0ms (0% of total)ival-mult!: 0.0ms (0% of total)| 1× | binary-search |
| 1× | narrow-enough |
| Time | Left | Right |
|---|---|---|
| 1.0ms | 4.2007910334312415e-131 | 9.903080759455362e-126 |
Compiled 450 to 338 computations (24.9% saved)
| 1× | fuel |
Compiled 339 to 76 computations (77.6% saved)
Compiled 708 to 398 computations (43.8% saved)
Loading profile data...